09.08.2009, 03:29
|
|
Banned
Регистрация: 06.07.2009
Сообщений: 74
Провел на форуме:
437317
Репутация:
209
|
|
Perl + гугля)
Вот тоже на перле написал антибоян, вроде норм пашет, пишите что ни так )
PHP код:
#!usr/bin/perl
system('title Anti-boyan from ANTICHAT - Coded By mr.gr33n');
system('color A');
system('cls');
use LWP::UserAgent;
use HTTP::Request::Common;
$cenzura="\n\n\nNe xuya sebe, ti x3k0r!!!=)\n\n\n\n";
print "\n\t***********************************\n";
print "\t* Anti-boyan *\n";
print "\t* Coded By mr.gr33n *\n";
print "\t***********************************\n";
print "\tEnter site:\n\n\n";
$site=<STDIN>;
if ($site=~ /forum.antichat.ru/)
{
print "$cenzura";
$w=<STDIN>;
exit;
}
if ($site=~ /antichat.ru/)
{
print "$cenzura";
$w=<STDIN>;
exit;
}
if ($site=~ /milw0rm.com/)
{
print "$cenzura";
$w=<STDIN>;
exit;
}
$url = "http://www.google.com/search?q=.$site site:forum.antichat.ru";
$lwp = LWP::UserAgent->new();
$lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");
$connect = $lwp -> get($url);
if ($connect -> content =~ /SQL/)
{
if ($connect -> content =~ /Ingen/)
{
print "[+] Proverka : Prodolzhai, eto Ne boyan =)\n";
} else {
print "[-] Proverka : Zabei, eto BOYAN =(";
}
} else {
print "[+] Proverka : Prodolzhai, eto Ne boyan =)\n";
}
print "\n\n\n\n\n\n##";
print "\n# Coded by mr.gr33n";
print "\n##\n";
$a=<STDIN>;
###
## mr.gr33n
###
Последний раз редактировалось mr.gr33n; 09.08.2009 в 10:37..
|
|
|