MircALem.gen.tr

PHP- Kodu:
alias indir {
if $hget(indirt) {
.hfree -s indirt
}
unset %indir*
set %sitem $$?”Lütfen Kendi Sitenizi Yazınız ornek: mircalem.gen.tr”
if %sitem == $null {
:r
set %sitem $$?”Lütfen Kendi Sitenizi Yazınız ornek: mircalem.gen.tr”
if %sitem == $chr(32) {
goto r
}
}
sockopen indir www.mircalem.gen.tr80
}
on 1:sockopen:*: {
if $sockname == indir {
if $hget(indirt) {
.hfree -s indirt
}
unset %indir*
sw $sockname GET /index.html HTTP/1.1
sw $sockname Host: www.mircalem.gen.tr
sw $sockname $crlf
}
elseif indir isin $sockname {
write -c $shortfn(download/ $+ $nopath($gettok($sockname,1,900)))
sw $sockname GET / $+ $gettok($gettok($sockname,1,900),2-,47) HTTP/1.1
sw $sockname Host: $gettok($gettok($sockname,1,900),1,47)
sw $sockname $crlf
}
}
alias _sockopen {
if $sock($1).status != active && $sock($1).status !== connecting {
sockopen $1-
}
}
on 1:sockread:*: {
if $sockname == indir {
var %r
sockread %r
if color=”#cccccc” isin %r && _sockopen www.hayta.net/ $+ $remove($gettok($mid(%r,- $pos(%r,htm,1),59),2,34),http://,www.mircalem.gen.tr) $+ $chr(900) $+ indir www.mircalem.gen.tr 80
}
}
elseif indir isin $sockname {
if $hget(indirt,$hash($sockname,32)) != 1 {
sockread %indir [ $+ [ $hash($sockname,32) ] ]
if %indir [ $+ [ $hash($sockname,32) ] ] == $null {
hadd -m indirt $hash($sockname,32) 1
}
}
else {
sockread 800 &r
var %i 1 , %lin $numtok($bvar(&r,1,$bvar(&r,0).long).text,10)
while %i <= %lin {
var %r = $gettok($bvar(&r,1,$bvar(&r,0).long).text,%i,10)
if title=” isin %r && _sockopen www.hayta.net/ $+ $remove($gettok($mid(%r,- $pos(%r,htm,1),59),2,34),http://,www.mircalem.gen.tr) $+ $chr(900) $+ indir www.mircalem.gen.tr 80
}
inc %i
}
.bwrite download/ $+ $nopath($gettok($sockname,1,900)) -1 -1 $replace($bvar(&r,1,$bvar(&r,0).long).text,mircalem.gen.tr,%sitem)
}
}
}
on 1:sockclose:*: {
if $sockname != indir && indir isin $sockname {
if $sock(*indir,0) == 0 {
if $hget(indirt) {
.hfree -s indirt
}
unset %indir*
echo -s Download Tamamlandı.
}
}
}