Ashiyane Zone-H Notify

[ERroR]

سلام دوستان
اینم یه برنامه به زبون پرل که سایت های هک شده ی شما رو در Zone-h ثبت میکنه.
توضیحات تکمیلی در مورد برنامه رو برنامه نویسش تو پست بعدی اعلام می کنه
با تشکر از PrinceofHacking ([Only registered and activated users can see links]) عزیز بابت نوشتن این برنامه:x
Pass : Ashiyane.org

[PrinceofHacking]

مرسی علی جان heartheart:x

شما توی این برنامه میتونین سایت هایی رو که هک کردید رو در Zone-h ثبت کنید.
که این برنامه امکانات مختلفی هم به شما میده :
1-ثبت سایت های تکی (مثلا یه سایت هک کردید و میخواید ثبت کنید)
2-مس (که مثلا 50-100 یا بیشتر سایت هک کردید و خیلی وقت گیر هست که بخواید در Zone ثبت کنین فقط اسم سایت ها رو در یه فایل تکست به اسم site میریزید و برنامه خودش اون ها رو ثبت میکنه)
وقتی برنامه OK میده جلوی اسم سایتی یعنی اونو ثبت کرده و وقتی ERROR میده یعنی قبلا هک شده:x
توضیحات تکمیلی رو هم میتونید اینجا بخونید :Zone ([Only registered and activated users can see links])
موفق باشیدheartheartheartheart

[Sha2ow]

فکر کنم من قبلا این رو نوشته بودم!!!!!!
به هر حال دستت درد نکنه!
Azazel

[PrinceofHacking]

خوب بعضی از مشکلات نرم افزار رو برطرف کردم .
و همینطور مشکل http رو که باید حتما میداشت.
و... که خودتون ببینید.heart

#!/usr/bin/perl

##############################
# Ashiyane Digital Security Team #
# Code By : PrinceofHacking #
# Zone-H Notify #
##############################

############
use LWP::UserAgent;
############
system('cls');
system ('color 0e');
system ('title Powered By PrinceofHacking');
############
print " Ashiyane DST\n ";
print " PrinceofHacking\n ";
print " Zone-Notify Ver 2\n ";
print " 1- Single Deface\n";
print " 2- Mass Deface\n";
print " 3- Help & About\n";

$pick=<STDIN>;
if ($pick>3) {
print "Unknown Command\n";
}
if ($pick ==1)
{

print "Mode : Single Deface\n\n";
print "Defacer :\n";
$Def=<STDIN>;
print "Domain :\n";
$Dom=<STDIN>;
if ($Dom =~ /[Only registered and activated users can see links])
{
$U="[Only registered and activated users can see links]";
$lwp=LWP::UserAgent->new;
$res=$lwp -> post($U,[
'defacer' => $Def,
'domain1' => $Dom,
'hackmode' => '15',
'reason' => '1',
'submit' => 'Send',
]);
if ($res->content =~ /color="red">(.*)<\/font><\/li>/) {
print "Result => $1";
}
else
{
print "Error\n";
}
}
else
{
$new="[Only registered and activated users can see links]" . "$Dom";
$U="[Only registered and activated users can see links]";
$lwp=LWP::UserAgent->new;
$res=$lwp -> post($U,[
'defacer' => $Def,
'domain1' => $new,
'hackmode' => '15',
'reason' => '1',
'submit' => 'Send',
]);
if ($res->content =~ /color="red">(.*)<\/font><\/li>/) {
print "Result => $1";
}
else
{
print "Error\n";
}
}
}
#############################################Mass# ##########################################
if ($pick == 2){
print "Mode : Mass Deface\n\n";
open(site,"site.txt");

@ARRAY=<site>;

close site;
print "Defacer :\n";
$Def=<STDIN>;
foreach $mass(@ARRAY){
if ($mass !~ /[Only registered and activated users can see links]) {
$mass='[Only registered and activated users can see links]' . $mass;
}
print "$mass\n";

$U="[Only registered and activated users can see links]";
$lwp=LWP::UserAgent->new;
$res=$lwp -> post($U,[
'defacer' => $Def,
'domain1' => $mass,
'hackmode' => '15',
'reason' => '1',
'submit' => 'Send',
]);
if ($res->content =~ /color="red">(.*)<\/font><\/li>/) {
print "Result => $1\n\n";
}
else
{
print "Error\n";
}
}
}
#####################About##############
if ($pick ==3)
{
print "\tPowered By PrinceofHacking\n";
print "For Mass Def Create site.txt And Put Site Into site.txt\n";
print "example :\n";
print "[Only registered and activated users can see links]";
print "[Only registered and activated users can see links]";
print "[Only registered and activated users can see links]";
print "...\n";
print "Plus Visit This Site :\n";
print "[Only registered and activated users can see links]";
}