| demonoid |
09.11.2007 23:04 |
Checker kidala.info
Почитав тему _http://forum.antichat.ru/threadnav43588-3-10-kidala.info.html
накидал немного ....
Некогда не сталкивался с кидаловом
говорят _kidala.info дезинформирует, но все-таки будьте повнимательней
Код:
#!perl
use strict;
use warnings;
use LWP::Simple;
my $uin = shift || exit print "\x09 kidala.info ~/Black-list THREW in the internet (Black List)/ \n\n\x09\x09 usage :$0 <uin> \n\x09\x09 example :$0 332065167 \n";
my $res = get("http://$uin.kidala.info/"); exit print "[-] This uin is not added to the black-list threw" unless defined $res;
printf "
.--------------------------------------------------------------.
| | _ | O | X |
.---------------------------------------------------------------'
| Nick : %35s |
| Nik victim : %35s |
| Added : %35s |
| Added Nick : %35s |
| ID of request : %35d |
| Date of addition : %35s |
| Comments : %35d |
| More information : http://$uin.kidala.info/ |
---------------------------------------------------------------'
",
$res =~m/Ник:<\/b>(.*?)<br>/g,
$res =~m/Ник потерпевшего:<\/b>(.*?)<br>/g,
$res =~m/Добавил: <a href='(.*?)'>/g,
$res =~m/.html'>(.*?)<\/a>/g,
$res =~m/ID заявки: (\d+)/g,
$res =~m/font color=#FFFF00>(.*?)<\/font>/g,
$res =~m/Комментариев: <font color=#FFFF00>(\d+)<\/font>/g;
Код:
C:\>r.pl
kidala.info ~/Black-list THREW in the internet (Black List)/
usage :C:\r.pl <uin>
example :C:\r.pl 332065167
C:\>r.pl 332065167
.--------------------------------------------------------------.
| | _ | O | X |
.---------------------------------------------------------------'
| Nick : Sparky |
| Nik victim : Maximus |
| Added : http://kidala.info/forum/su1.html |
| Added Nick : ononim |
| ID of request : 33 |
| Date of addition : 01.05.2006 17:42 |
| Comments : 0 |
| More information : http://332065167.kidala.info/ |
---------------------------------------------------------------'
C:\>
|
