~perl php webclicker~ - DosyaArsivi.Com® | Hosting ~ ProgramLar ~ OyunLar ~ Kitap ~ Donanım&YazıLım ~ Sohbet ~ İnternet HizmetLeri

**ghostroot** · 17. July 2007, 03:11

~php - Perl~ Webclicker
php

<?
####################################
# (C)oded by h4ckinger
# Hackinger's Web Page: [Yalnızca Kayıtlı Üyeler Linkleri Görebilir. Ücretsiz Üye Olmak İçin Tıklayınız!]
# plz send e-mail me when u find a bug in this script
# mail:hackingerboy@gmail.com
# h4ckinger's webclicker ~php~
# greatz ;
# Darkcode,CyberGhost,excellance,redLine,RealWarrior ,The_BeKiR,****llicali,bolivar...
# and All my Friends...
####################################
error_reporting(0);#hata vermesin
set_time_limit(0);#timeout olmayalım

#Değişkenlerimiz>>
$site=$_POST['site'];
$kac=$_POST['kac'];
#Değişkenler end<<

#head >>
echo "<title>PHP WebClicker (c) h4ckinger</title>";
#bu style miz
echo "<style>
body{margin:0px;font-style:normal;font-size:10px;color:#FFFFFF;font-family:Verdana,Arial;background-color:#3a3a3a;scrollbar-face-color: #303030;scrollbar-highlight-color: #5d5d5d;scrollbar-shadow-color: #121212;scrollbar-3dlight-color: #3a3a3a;scrollbar-arrow-color: #9d9d9d;scrollbar-track-color: #3a3a3a;scrollbar-darkshadow-color: #3a3a3a;}
input,
.kbrtm,select{background:#303030;color:#FFFFFF;fon t-family:Verdana,Arial;font-size:10px;vertical-align:middle; height:18; border-left:1px solid #5d5d5d; border-right:1px solid #121212; border-bottom:1px solid #121212; border-top:1px solid #5d5d5d;}
button{background-color: #666666; font-size: 8pt; color: #FFFFFF; font-family: Tahoma; border: 1 solid #666666;}
body,td,th { font-family: verdana; color: #d9d9d9; font-size: 11px;}body { background-color: #000000;}
</style>";
#bu about popup ımız
echo "<SCRIPT LANGUAGE=\"JavaScript\">

</script>";
#buda yukarıdaki table
echo "<br><TABLE style=\"BORDER-COLLAPSE: collapse\" cellSpacing=0 borderColorDark=#666666 cellPadding=5 width=\"100%\" bgColor=#303030 borderColorLight=#666666 border=1><tr><td width=\"100%\">
<b><center><font face=tahoma>Hackinger's WebClicker ~php~<br>(C)oded by h4ckinger © www.hackinger.org</font><center><b>
</td></tr></table><br><br><br>";
echo "<TABLE style=\"BORDER-COLLAPSE: collapse\" cellSpacing=0 borderColorDark=#666666 cellPadding=5 width=\"100%\" bgColor=#303030 borderColorLight=#666666 border=1><tr><td width=\"100%\">";
#buda aşağıdaki table
echo "<table align=center><td>
<div align=center>
<form action=\"\" method=post>
<tr class=tr1><td class=td1 width=30% align=center><b>Page</b></td><td class=td1 >
<input name=\"site\" class=\"yazi\" type=\"text\" value=\"http://\"></td></tr>
<tr class=tr1><td class=td1 width=30% align=center><b>Repeat</b></td><td class=td1 >
<input type=text name=kac value=10></td></tr>
<tr class=tr1><td class=td1 width=30% align=center></td><td class=td1 >
<input type=\"submit\" name=\"submit\" value=\" 0ke \" class=\"yazi\" /> <input type=\"button\" onclick=\"javascript:win();\" value=\"About \" class=\"yazi\" /></td></tr>
</form>
</div></td></tr></table>";
echo "</td></tr></table>";
#head end<<
#ana kodlar
if($site && $kac && is_numeric($kac) && substr($site,0,7)=="http://"){
#post dan site parametresine ait değer gelmişse ve post dan kac parametresine ait değer gelmişse ve kac dan gelen değer numeric ise ve site değişkeninin ilk 7 karakteri http:// ise

for($i=0;$i<=$kac;$i++){
#kac değişkeni kadar kodları işlet
file_get_contents($site);#döngü boyunca baglan,sockete ne gerek var şimdi :]
}
}

?>

perl

#!/usr/bin/perl
####################################
# (C)oded by h4ckinger
# Hackinger's Web Page: [Yalnızca Kayıtlı Üyeler Linkleri Görebilir. Ücretsiz Üye Olmak İçin Tıklayınız!]
# plz send e-mail me when u find a bug in this script
# mail:hackingerboy@gmail.com
# h4ckinger's perl webclicker
# greatz ;
# Darkcode,CyberGhost,excellance,redLine,RealWarrior ,The_BeKiR,Mardinli,RiceBoy,****llicali,bolivar,Ko sova-X...
# and All my Friends...
####################################
use LWP::Simple;
$site=$ARGV[0];
$kac=$ARGV[1];
if(@ARGV<2){&usage}
else{
if(int($kac)){
for($i=0;$i<=$kac;$i++){
get($site) || die "Site adresi yanlis\n";
}
print "$kac tane hiti artirilmisitir";
}
else {print "Numeric bir sayi girin";}
}
sub usage{
print q[
WebClicker Perl Version
Coded by h4ckinger
usageerl webclicker.pl [Yalnızca Kayıtlı Üyeler Linkleri Görebilir. Ücretsiz Üye Olmak İçin Tıklayınız!] <hit>
exmerl webclicker.pl [Yalnızca Kayıtlı Üyeler Linkleri Görebilir. Ücretsiz Üye Olmak İçin Tıklayınız!] 20
];
}

:: Foto Galeri ::

:: Makaleler ::

:: Depo ::

:: Forum Kuralları ::

:: Blog ::

:: Tasarım ::

:: Sohbet ::