Code:

###################################################### CzoSoft Crack TCL - for eggdrop 1.6.x             ## (c)Czosoft  -=-  Czo @ IRCNet                     ######################################################putlog "|Crack:| Betöltve"bind pub -|- ?crack pub_crackbind msg -|- ?crack msg_crack#####################################################proc pub_crack {nick uhost hand chan arg} {if { [czo_validchan $chan $nick!$uhost ] == "-1" } { return 0 }prg_crack $nick $chan $argreturn 0}proc msg_crack {nick uhost hand arg} {if { [czo_validnick $nick ] != "1" } { return 0 }prg_crack $nick $nick $argreturn 0}proc prg_crack {kitol kinek arg} {czo_log "crack.tcl" $kitol $kinekif { $arg == "" } { czo_valaszol $kitol $kinek "|Crack:| Hibás paraméterezés"czo_valaszol $kitol $kinek "|Crack:| Használat: ?crack mitkeres \[+X\] \(Találatszám\)"} else {set plusjel [ string first "+" $arg ]set mitkeres ""set mennyiseg "1"if { $plusjel == "-1" } { set mitkeres $arg } else {set mitkeres [ string range $arg 0 [expr $plusjel-2 ] ]set mennyiseg [ string range $arg [ expr $plusjel +1 ] [string length $arg] ]}prg2_crack $kitol $kinek $mitkeres $mennyiseg} return 0}proc prg2_crack {kitol kinek mitkeres mennyiseg} {putlog "|Crack:| $kitol - $kinek - $mitkeres - $mennyiseg"set keresni [ czo_csere $mitkeres " " "+" ]set keresni [ czo_szovegtourl $keresni ]set keresni "/cgi-bin/robot?srch=$keresni&submit=+search+"if {  [catch {set google_socket [socket -async astalavista.box.sk 80]} fureszpor]   } {czo_valaszol $kitol $kinek "|Crack:| Hehe ez most nem megy! :)"return 0}puts $google_socket "GET $keresni HTTP/1.1"puts $google_socket "Host: astalavista.box.sk"puts $google_socket "User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)"puts $google_socket "Accept-Language: en"puts $google_socket ""flush $google_socketset szovegek(0) ""set linkek(0) ""set megvan "0"set szoveg ""while { (![eof $google_socket]) && ([string first "</HTML>" $szoveg] == "-1")  } {set szoveg [ gets $google_socket ]if { [ string first ".</FONT>: <A TARGET=\"_blank\" HREF=\"" $szoveg ] != "-1" } {set megvan [ expr $megvan +1 ]set linkek($megvan) "[string range $szoveg [expr [string first "HREF=\"" $szoveg ] +6 ] [string length $szoveg]]"} }close $google_socketif { $megvan == "0" } {czo_valaszol $kitol $kinek "|Crack:| Nincs találat (\"$mitkeres\")"}set ennyikell $mennyisegif { $mennyiseg > $megvan } { set ennyikell $megvan }if { $megvan > 0 } { czo_valaszol $kitol $kinek "|Crack:| Keresett kifejezés: \"$mitkeres\", Találatok listázása: $ennyikell\/$megvan"for { set x 1 } { $x <= $ennyikell } { incr x } {czo_valaszol $kitol $kinek "|Crack:| $x. $linkek($x)"} }return 0}