Giriş yap veya kayıt ol

Kullanıcı adı:       Parola:            

Proxy Clone Addon

'Clone Addon' forumunda Aytac tarafından 9 Nis 2018 tarihinde açılan konu

  1. Aytac
    Çevrimiçi

    Aytac Administrator Site Yetkilisi Administrator

    Katılım:
    14 Kas 2017
    Mesaj:
    173
    Alınan Beğeniler:
    2
    Ödül Puanları:
    18
    Cinsiyet:
    Erkek
    Meslek:
    Security
    Şehir:
    Karabük
    Web Sitesi:
    Kod:
    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 }
      }
    }
    
    Alt + r basıp remote bölümüne ekleyin.
    Kullanımı :/dialog -m clone clone
     

Bu Sayfayı Paylaş