Yang dimaksud dengan SMS Bomber adalah sebuah program komputer yang di program untuk melakukan pengiriman SMS secara terus-menerus dalam jumlah yang telah kita tentukan sebelumnya. Efek dari SMS Bomber sangat berbahaya karna selain mengganggu sang korban yang handphone nya akan berbunyi dan getar-getar terus, SMS Bomber juga dapat menyebabkan Handphone target akan hang dan restart. Oleh karna itu saya tegaskan disini, “Saya tidak bertanggung jawab atas akibat yang ditimbulkan oleh artikel ini. USE IT WITH YOUR OWN RISK.”
Untuk membuat SMS Bomber ini saya menggunakan Visual Basic 6.0, dan masih memanfaatkan Gammu untuk send & recieve sms dari handphone. Didalam SMS Bomber saya ini telah saya tambahkan sedikit trik untuk melewati SMS Firewall yang terdapat pada beberapa handphone (beberapa handphone produksi china telah dilengkapi SMS Firewall). Thank to StardustMemory for the Idea.
Untuk menggunakan SMS Bomber ini, komputer anda harus terinstall MySQL dan Gammu, baca artikel saya sebelum nya tentang untuk melakukan konfigurasi & menjalankan Gammu, tanpa MySQL & Gammu yang terpasang di komputer anda, SMS Bomber ini tidak akan dapat bekerja.
Penulis tidak bertanggung jawab atas segala akibat yang ditimbulkan oleh artikel ini. Semua akibat yang ditimbulkan tanggung jawab masing-masing individu. USE IT WITH YOUR OWN RISK.
Pada artikel kali ini saya akan membahas tentang cara mengendalikan komputer dengan menggunakan sms. Untuk melakukan hal tersebut kita membutuhkan sebuah software komputer bernama Gammu dan development tolls yang akan kita gunakan adalah Microsoft Visual Basic. 6.0. Untuk informasi lebih lengkap mengenai gammu dapat dilihat pada link berikut http://www.gammu.org/wiki/index.php
Installing Gammu
Bagi teman-teman yang belum tau apa itu Gammu, saya akan memberikan sedikit gambaran tentang Gammu. Gammu adalah sebuah software yang berguna untuk mengambil sms yang terdapat pada inbox handphone kita dan menyimpannya ke dalam database. Database yang digunakan adalah MySQL. (Untuk saat ini telah banyak database yang disuuport oleh Gammu selain MySQL, untuk info lebih lanjut silahkan kunjungi website resminya). Pada artikel kali ini saya menggunakan Gammu versi lama yaitu versi 1.09.00.
Sebelum kita menginstall Gamu pastikan database MySQL telah terinstall di mesin yang akan digunakan, buat sebuah database dengan nama “smsd” dan kemudian dump file berikut kedalam database MySQL. Yang perlu diperhatikan saat mengintall Gammu adalah dua file konfigurasinya yaitu “gammurc” dan “smsdrc”. Pada file gammurc yang harus kita perhatikan adalah bagian port dan connection. Isi nilai port dengan port yang kita gunakan untuk melakukan koneksi handphone dengan mesin yang digunakan. Untuk connection sesuaikan dengan koneksi yang kita gunakan. Pada percobaan ini saya menggunakan Sony Ericsson W.660i dengan port Com6 dan jenis koneksinya adalah “at”. Untuk mengetahui jenis koneksi yang anda gunakan silahkan klik link berikut http://wammu.eu/phones/ cari jenis handphone yang digunakan dan lihat koneksi yang digunakan.
Setelah port dan jenis koneksi telah kita dapatkan, maka sekarang kita test apakah konfigurasi yang telah kita masukan sudah benar atau belum. Untuk mengetestnya buka command prompt dan masuk ke direktori dimana Gammu kita simpan, dan kemudian ketikan perintah berikut. “gammu –identify” Apabila konfigurasi yang telah kita masukan telah sesuai maka akan tampil imei dari handphone yang kita gunakan.
Setelah handphone kita berhasil di kenali oleh gammu, langkah selanjutnya adalah memasukan konfigurasi untuk file “smsdrc”. Perhatikan pada bagian user, password, pc, dan database. Isi user dengan user yang digunakan untuk login ke database MySQL, isi password dengan password yang digunakan untuk login ke database, isi pc dengan alamat komputer (localhost) dan isi database dengan nama database yang akan kita gunakan, kemudian simpan file tersebut. Lalu saat nya kita melakukan test untuk mengetahui apakah gammu sudah berhasil melakukan koneksi dengan database. Perintah yang kita gunnakan adalah “gammu –smsd MYSQL smsdrc”. Apabila berhasil akan tampil seperti berikut.
Kemudian kita cek ke table Inbox pada database apakah sms-sms yang ada di handphone kita sudah masuk kedalam database, apabila sudah masuk maka pengisntallan telah sukses dilakukan, dan kita bisa ke tahap development untuk membuat sebuah program yang dapat mengedalikan komputer dengan memanfaatkan data-data sms yang telah di masukan oleh gammu kedalam database.
Development
Untuk tahap development ini kita mengguanakan Visual Basic. 6.0. Pada intinya cara kerja program ini adalah membaca sms terakhir yang masuk, dan menterjemahkan sms tersebut untuk menentukan langkah apa yang akan dilakukan si program. Kita juga membutuhkan MySQL Connector untuk melakukan koneksi dari Visual Basic ke MySQL.
Berikut sedikit potongan kode program nya. Mengapa saya hanya berikan potongan kode nya saja? Karna tidak mungkin saya paste disini semua, kalo saya paste semua yang ada penuh dengan code aja nanti isi artikel nya. Pada bagian terakhir saya akan memberikan link untuk mendownload full soruce code nya.
Private Sub TimerSMS_Timer()
On Error GoTo errHDL
Dim sSQL As String
Dim rst As RecordSet
Dim sLastID As String
Dim sCommand As String
Dim sID As String
Dim LRet As Long
ucFirefoxWait.Visible = True
ucFirefoxWait.PlayWait
sLastID = getLastID
Set rst = New RecordSet
sSQL = “SELECT * FROM INBOX WHERE ID =’” & sLastID & “‘ AND PROCESSED=’FALSE’ LIMIT 0,1;”
Nah, dilihat dari kode tersebut diatas sebuah timer akan terus mengecek sms terakhir kedatabase, apabila ada kemudian program tersebut akan membaca isi dari sms tersebut, apabila isi dari sms tersebut sesuai dengan perintah yang ditentukan maka si program akan memproses langkah selanjutnya. Dalam source code yang saya berikan nanti, program tersebut hanya baru bisa memproses bebrapa perintah antara lain ver yang digunakan untuk mengetahui versi program, check inbox untuk mengetahui jumlah sms yang terdapat dalam table inbox, about untuk mengetahui tentang program, tutupcdrom untuk menutup cd rom, bukacdrom perintah untuk membuka cd rom, turnoff untuk mematikan komputer. Teman-teman dapat menambahkan perintah-perintah lain sesuai dengan yang dikehendaki.
Dear all reader, This time i will share about ecrypt & decrypt using Capicom. Before we start the code section, i will explain what is Capicom. Capicom is an ActiveX control created by Microsoft to help expose a select set of Microsoft Cryptographic Application Programming Interface (CryptoAPI) functions through Microsoft Component Object Model (COM). It was intended to enable every environment that supports ActiveX to use Microsoft Cryptographic technologies, including web pages that are opened with Microsoft Internet Explorer or any other web browser that supports ActiveX.
CAPICOM can be used to digitally sign data, inspect, verify and display their digital signature and/or digital certificate, add or remove certificates to or from the certificate stores, and finally, to encrypt or decrypt data.
CAPICOM Version 2.1.0.2, the latest and last version of CAPICOM, is officially supported on Windows Vista.However, Microsoft has announced that CAPICOM is discontinued and is no longer being developed. Microsoft suggests replacing CAPICOM with .NET Framework’s X509 Cryptographic Classes and a number of other alternatives.
Ok, let start code it. In this tutorial we need Capicom.dll, Usually located on C:\Windows\System32\Capicom.dll. Add Capicon into vb project (Project -> Reference -> Browse and add capicom.dll). After we add capicom to visual basic project, add 3 TextBoxs (name => tbPlain, tbHash, tbSecret, 3 Labels and 2 Command Button (name => btnEnc, btnDecrypt) to form. And copy & paste code below into form
Private Sub btnDecrypt_Click()
On Error GoTo errHDL
Dim sPlain As String
If tbHash.Text <> “” And tbSecret.Text <> “” Then
sPlain = DecryptString
If sPlain <> “” Then
tbPlain.Text = sPlain
tbHash.Text = “”
tbSecret.Text = “”
End If
End If
Exit Sub
errHDL:
MsgBox Err.Number & ” – ” & Err.Description
End Sub
Private Sub btnEnc_Click()
On Error GoTo errHDL
Dim sHash As String
If tbPlain.Text <> “” And tbSecret.Text <> “” Then
sHash = EncryptString(Trim(tbPlain.Text))
If sHash <> “” Then
tbHash.Text = sHash
tbPlain.Text = “”
tbSecret.Text = “”
End If
End If
Exit Sub
errHDL:
MsgBox Err.Number & ” – ” & Err.Description
End Sub
Private Function DecryptString() As String
Dim oDecrypt As New EncryptedData
Dim sRet As String
On Error GoTo errHDL
oDecrypt.SetSecret (Trim(tbSecret.Text))
oDecrypt.Decrypt (tbHash.Text)
sRet = oDecrypt.Content
DecryptString = sRet
Exit Function
errHDL:
MsgBox Err.Number & ” – ” & Err.Description
Set oDecrypt = Nothing
End Function
Private Function EncryptString(ByVal sValue As String) As String
Dim oEncrypt As New EncryptedData
Dim sRet As String
On Error GoTo errHDL
Dah lama juga rasanya gw nggak update isi dari blog gw yang katrok ini, Setelah disibukan dengan beberapa kegiatan di dunia nyata, malem ini gw coba buat share sedikit tentang programming. Untuk kali ini gw akan coba membahas tentang pembuatan sebuah fake mailer dengan menggunakan visual basic. Yah langsung aja berhubung udah malem juga and besok gw juga musti masuk kerja. Fake mailer adalah sebuah program komputer yang berfungsi untuk mengirim fake email. Dalam pembuatan program ini gw menggunakan sebuah dll yaitu YaDoYMailSender.dll yang code nya gw dapet dari internet and udah gw modip dikit disesuaikan dengan kebutuhan.
Langsung aja, buat sebuah project baru tambahkan sebuah form dan add reference ke YaDoYMailSender.dll, setelah itu susun GUI nya seperti gambar berikut, atau sesuka hati kalian masing-masing
Lalu kopi paste kan code berikut
Dim WithEvents oMailer As YaDoYMailSender.clsSendMail
Private Sub Command1_Click() On Error GoTo errHDL
If ValidateMe = True Then tbStatus.Text = “” With oMailer .SMTPHostValidation = VALIDATE_HOST_NONE .EmailAddressValidation = VALIDATE_SYNTAX .SMTPHost = “fill with ur smtp host” ‘SMTPHOST .From = tbMailer(0) .FromDisplayName = tbMailer(1) .Recipient = tbMailer(2) .RecipientDisplayName = tbMailer(3) .ReplyToAddress = tbMailer(1) .Subject = tbMailer(4) .Message = tbMailer(5) .Priority = HIGH_PRIORITY .UseAuthentication = True .Username = “fill with your smtp username” ‘Username SMTP .Password = “fill with your smtp password” ‘Password SMTP .MaxRecipients = 100 .ConnectTimeout = 20 .ConnectRetry = 5 .MessageTimeout = 60 .Send sSMTPServer = .SMTPHost End With End If
Exit Sub errHDL: MsgBox Err.Description End Sub
Private Sub Command2_Click() Dim i As Integer
For i = 0 To 5 tbMailer(i).Text = “” Next
tbStatus.Text = “”
End Sub
Private Sub Form_Load() On Error GoTo errHDL Set oMailer = New clsSendMail
Exit Sub errHDL: MsgBox Err.Description End Sub
Private Function ValidateMe() As Boolean On Error GoTo errHDL Dim i As Integer
i = 0
For i = 1 To 5 If tbMailer(i).Text = “” Then MsgBox “Invalid Value” tbMailer(i).SetFocus ValidateMe = False End If
If InStr(Trim(tbMailer(0).Text), “@”) = 0 Then MsgBox “Invalid Value” tbMailer(0).SetFocus ValidateMe = False End If If InStr(Trim(tbMailer(2).Text), “@”) = 0 Then MsgBox “Invalid Value” tbMailer(2).SetFocus ValidateMe = False End If Next ValidateMe = True Exit Function errHDL: MsgBox Err.Description ValidateMe = False End Function
Private Sub oMailer_SendFailed(Explanation As String) Dim sExplanation As String sExplanation = tbStatus.Text & vbCrLf & sExplanation tbStatus.Text = sMessage End Sub
Private Sub oMailer_Status(Status As String) Dim sMessage As String sMessage = tbStatus.Text & vbCrLf & Status tbStatus.Text = sMessage End Sub
Setelah itu coba jalankan dengan menekan tombol F5 pada keyboard, isi sender dengan alamat fake email pengirim, sender display name dengan fake name pengirim, recipient dengan alamat email target, Recipient display name dengan nama target, subject dengan subject yang akan dikirim, dan message dengan isi pesan yang akan dikirim ke target, kemudian klik tombol send. Lihat pada textbox status pada bagian bawah untuk mengetahui status pengiriman email tersebut. Apabila pengiriman berhasil maka akan terdapat message sebagai berikut
Note* Penulis tidak bertanggung jawab atas penyalahgunaan program ini, segala resiko akan penyalahgunaan program ini ditanggung oleh masing-masing pengguna. *USE IT WITH YOUR OWN RISK*
In this time i would like to show you how to get location from some IP Address. I using Visual Basic 6.0 to make this program.
How it’s work Just simple trick, I just get some data from http://www.ip2location.com. lol
Ok, Lets start it.
We need MSINET.OCX component to make this program.
Place this component in your from and make UI like this
And copy paste this code.
Private Sub btnBlack_Click() On Error Resume Next
Dim source As String SetUI Inet1.Cancel ucFirefoxWait.Visible = True Timer1.Enabled = True
If txtIP.Text = “” Then MsgBox “IP Not valid” Exit Sub Else ucFirefoxWait.PlayWait source = Inet1.OpenURL(“http://www.ip2location.com/” & txtIP.Text) lblCountry.Caption = Mid(Split(Split(source, “dgLookup__ctl2_lblICountry”)(1), “”)(0), 3) lblRegion.Caption = Mid(Split(Split(source, “dgLookup__ctl2_lblIRegion”)(1), “”)(0), 3) lblCity.Caption = Mid(Split(Split(source, “dgLookup__ctl2_lblICity”)(1), “”)(0), 3) lblISP.Caption = Mid(Split(Split(source, “dgLookup__ctl2_lblIISP”)(1), “”)(0), 3) End If
End Sub
Private Sub Form_Load()
SetUI
End Sub
Private Sub SetUI()
lblCountry.Caption = “” lblRegion.Caption = “” lblCity.Caption = “” lblISP.Caption = “” Timer1.Enabled = False ucFirefoxWait.Visible = False End Sub
Private Sub Timer1_Timer()
If lblCountry.Caption <> “” Or lblRegion.Caption <> “” Or lblCity.Caption <> “” Or lblRegion.Caption <> “” Or lblISP.Caption <> “” Then ucFirefoxWait.StopWait ucFirefoxWait.Visible = False Timer1.Enabled = False End If
DESTINATIONNUMBER, CODING, TEXTDECODED) VALUES (‘” & _
