ANTICHAT - Показать сообщение отдельно

[Анти-боян, 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; 



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 "\n\n\nNe xuya sebe, ti x3k0r!!!=)\n\n\n\n"; 

$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