Zone-H PerL Versiyon Mass Mirror Postalayıcı

Zone-H PerL Version Mass Mirror Postalayıcı Command Prompt'dan [ cmd.exe ] Çalışır [ 20/10/2017 ]

[img]http://i.hizliresim.com/5gvnMA.png[/img]

Selamün Aleyküm. Daha Öncedende Zone-H Mirror Poster Kodlarını Vermiştim. Ama onlar PHP ve Localhost üzerinden gönderiliyordu. Biraz üzerinde farklı olarak çalıştım ve Başlat + Çalıştır+ Command Prompt üzerindende Zone-H'ya mass çoklu şekilde mirror gönderebilieceğiz. Zone-H kullanmak pek tercihim değil son zamanlarda önemli .gov .edu ve hack sitelerinin heykli olduğu halde adminlerin mirror silmesi iyice güven sarstı o yüzden diğerlerini kullanıyorum. Ya siteler önceden kaydedilmiş oluyor yada ReDefacement oluyor. Şuan sadece en önemli Domainleri ekliyorum bilginize :D  Şimdiki Zone-H Perl Version ise sadeece cmd.exe 'den gönderebileceksiniz.Çoğunlukla ya shell'e ihtiyaç duyar gibiyim mirror postalamak için ama artık onlar geçmişte kaldı. Teknoloji ilerliyor bizde elimizden geleni yapıyoruz.

Eski Konu Linkleri =>

Zone-H Çoklu Zone Mirror Postalayıcı PHP Kod LocalHostta Çalışır  => PHP + LocalHost

[img]https://i.hizliresim.com/1gvzlG.png[/img]

[code]https://www.cyberizm.org/cyberizm-zone-h-coklu-zone-mirror-postalayici-php-kod-localhostta-calisir.html[/code]

CDST Zone-H.Org Çoklu Mirror Postalayıcısı PHP Script Priv8 => PHP + Özellikli + Hangi Yöntem Seçenekleri

[code]https://www.cyberizm.org/cyberizm-cdst-zone-h-org-coklu-mirror-postalayicisi-php-script-priv8.html[/code]

[img]http://i.hizliresim.com/yEDpP9.png[/img]

Perl Version Zone-H Mirror Poster Kodları [ 20.10.2017 ]

[hide][code]#!/usr/bin/perl
# Coded By : KingSkrupellos
# Site : Cyberizm.Org Digital Security Technological Turkish Moslem Army

use URI::URL;
use LWP::UserAgent;
use Term::ANSIColor;
use IO::Socket::INET;
use HTTP::Request;
use HTTP::Request::Common qw(POST);
use HTTP::Request::Common qw(GET);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print qq(
 _______  _______  __    _  _______         __   __
|       ||       ||  |  | ||       |       |  | |  |
|____   ||   _   ||   |_| ||    ___| ____  |  |_|  |
 ____|  ||  | |  ||       ||   |___ |____| |       |
| ______||  |_|  ||  _    ||    ___|       |       |
| |_____ |       || | |   ||   |___        |   _   |
|_______||_______||_|  |__||_______|       |__| |__|
 __   __  _______  _______  _______
|  |_|  ||   _   ||       ||       |
|       ||  |_|  ||  _____||  _____|
|       ||       || |_____ | |_____
|       ||       ||_____  ||_____  |
| ||_|| ||   _   | _____| | _____| |
|_|   |_||__| |__||_______||_______|
 _______  _______  _______  _______  _______  ______
|       ||       ||       ||       ||       ||    _ |
|    _  ||   _   ||  _____||_     _||    ___||   | ||
|   |_| ||  | |  || |_____   |   |  |   |___ |   |_||_
|    ___||  |_|  ||_____  |  |   |  |    ___||    __  |
|   |    |       | _____| |  |   |  |   |___ |   |  | |
|___|    |_______||_______|  |___|  |_______||___|  |_|
);

print "[START] Targets List :";
my $list=<STDIN>;
chomp($list);
  open (THETARGET, "<$list") || die "[-] Can't open the Targets List !";
@TARGETS = <THETARGET>;
close THETARGET;
$link=$#TARGETS + 1;
foreach $tofuck(@TARGETS){

chomp($tofuck);



$req = HTTP::Request->new(GET=>$tofuck);
$useragent = LWP::UserAgent->new();
$response = $useragent->request($req);
$ar = $response->content;
if ($ar =~ /Hacked|/){
open (TEXT, '>>Defaced.txt');
print TEXT "\n$tofuck   =>  Posted !!\n\n";
close (TEXT);
print colored ("Wait",'white on_red'),"\n";
                                $dmn= $tofuck;
                                $def="KingSkrupellos";
                                $zn="http://zone-h.org/notify/single";
                                $lwp=LWP::UserAgent->new;
                                $res=$lwp  -> post($zn,[
				'defacer'     => $def,
				'domain1'   => $dmn,
				'hackmode' => '15',
				'reason'       => '1',
				'submit'       => 'Send',
                                ]);
				if ($res->content =~ /color="red">(.*)<\/font><\/li>/) {
				print "$dmn submit $1\n";
                                }
                                else
                                {
                                print colored ("[ERROR] Submited During Last Year",'white on_red'),"\n";
                                     }
}
}[/code][/hide]

[img]https://i.hizliresim.com/JOq0Nq.png[/img]

[img]https://i.hizliresim.com/OyVGN0.png[/img]

[img]https://i.hizliresim.com/Ayn9YX.png[/img]

[img]https://i.hizliresim.com/bLkn4V.png[/img]

Yapmanız Gerekenler ve Kullanımı =>

1) Yukarıdaki Dosyayı .pl haline getirin mesela zonehmasscyberizm.pl gibi.

2) Sonra Başlat + Çalıştır + Command Prompt'a girin.

3) Masaüstünde kullanıyorsanız dosyayı  cd Desktop  sonra perl zonehmasscyberizm.pl

4) Masaüstündeki Defaced.txt tıklayın ve otomatik olarak herhangi bir shell'e ihtiyaç duymadan

Zone Mirror Kayıtlarınızı Zone-H.Org/Zone-H.Com'a yollayabilirsiniz.

5) Yani kısaca perl zonehmasscyberizm.pl Defaced.txt  gibi kullanabilirsiniz.

Mr. KingSkrupellos - Cyberizm.Org Başarılar Diler :D :cigara:

#############  SON #######################