Code: Select all
#####################################################
# CzoSoft Crack TCL - for eggdrop 1.6.x #
# (c)Czosoft -=- Czo @ IRCNet #
#####################################################
putlog "|Crack:| Betöltve"
bind pub -|- ?crack pub_crack
bind 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 $arg
return 0
}
proc msg_crack {nick uhost hand arg} {
if { [czo_validnick $nick ] != "1" } { return 0 }
prg_crack $nick $nick $arg
return 0
}
proc prg_crack {kitol kinek arg} {
czo_log "crack.tcl" $kitol $kinek
if { $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_socket
set 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_socket
if { $megvan == "0" } {
czo_valaszol $kitol $kinek "|Crack:| Nincs találat (\"$mitkeres\")"
}
set ennyikell $mennyiseg
if { $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
}