Ingin tau gimana caranya bikin email palsu lewat bahasa pemrograman Visual Basic?
Sssstt.. simple koq!! tapi jangan buat maen2 ya... Ini sih buat belajar aja, sama sekali bukan mengajarkan kejahatan. (Tanggung jawab sendiri loe klo dipake buat nipu!!)
Langkah 1:
Bikin Form baru
Tambahin Objek Inet (Klik Kanan di Tool Box, Componens.. Pilih Microsoft Internet Transfer Control)
Tambahin 4 Text Box
Kasih Nama txtSender, txtTarget, txtSubject, txtMsg
Ubah Properti txtMsg: MultiLine = True
Tambahin 1 Command Button
Atur Tampilannya biar Indah dan menawan :)
Langkah 2:
Copy Source Code Dibawah Ini, Paste di Code nya VB
Private Sub Command1_Click()
Dim strURL As String
Dim StrFormData As String
Dim X, Y
Dim Sender As String
Dim Receiver As String
X = Split(TxtSender.Text, "@")
Sender = X(0) & "%40" & X(1)
Y = Split(TxtTarget.Text, "@")
Receiver = Y(0) & "%40" & Y(1)
StrFormData = "TO=" & Receiver & "&FROM=" & Sender & "&SUBJECT=" & TxtSubject.Text & "&BODY=" & txtMsg.Text
strURL = "http://www.lorenza.it/varie/catalogo/Admin/XcCDONTS.asp"
Inet1.Execute strURL, "POST", StrFormData, "Content-Type: application/x-www-form-urlencoded"
MsgBox "sukses..."
TxtTarget = ""
TxtSubject = ""
TxtMsg = ""
End Sub
Coba deh Run Programnya, target nya pake email sendiri, sendernya terserah, misalnya aku@manis.sekali trus kirim...
haveFun.. :)
Senin, 15 Desember 2008
Jumat, 12 Desember 2008
Visual Basic: Password Microsoft Access
Pernah punya file microsoft Access yang di protek password, trus Anda lupa?
Tentu sangat menyebalkan.. Jangan Buru² Frustasi!! Bagi Anda yang mengerti pemrograman Visual Basic bisa mencoba membuat program untuk membuka Password. Berikut Listing Programnya:
Function AccessPassword(Byval Filename As string) as string
Dim MaxSize, NextChar, MyChar, secretpos,TempPwd
Dim secret(13)
secret(0) = (&H86)
secret(1) = (&HFB)
secret(2) = (&HEC)
secret(3) = (&H37)
secret(4) = (&H5D)
secret(5) = (&H44)
secret(6) = (&H9C)
secret(7) = (&HFA)
secret(8) = (&HC6)
secret(9) = (&H5E)
secret(10) = (&H28)
secret(11) = (&HE6)
secret(12) = (&H13)
secretpos = 0
Open Filename For Input As #1' Open file for input.
For NextChar = 67 To 79 Step 1 'Read in Encrypted Password
Seek #1, NextChar' Set position.
MyChar = Input(1, #1)' Read character.
TempPwd = TempPwd & Chr(Asc(MyChar) Xor secret(secretpos)) 'Decrypt using Xor
secretpos = secretpos + 1'increment pointer
Next NextChar
Close #1' Close file.
AccessPassword = TempPwd
End Function
Demikian, semoga bermanfaat
Tentu sangat menyebalkan.. Jangan Buru² Frustasi!! Bagi Anda yang mengerti pemrograman Visual Basic bisa mencoba membuat program untuk membuka Password. Berikut Listing Programnya:
Function AccessPassword(Byval Filename As string) as string
Dim MaxSize, NextChar, MyChar, secretpos,TempPwd
Dim secret(13)
secret(0) = (&H86)
secret(1) = (&HFB)
secret(2) = (&HEC)
secret(3) = (&H37)
secret(4) = (&H5D)
secret(5) = (&H44)
secret(6) = (&H9C)
secret(7) = (&HFA)
secret(8) = (&HC6)
secret(9) = (&H5E)
secret(10) = (&H28)
secret(11) = (&HE6)
secret(12) = (&H13)
secretpos = 0
Open Filename For Input As #1' Open file for input.
For NextChar = 67 To 79 Step 1 'Read in Encrypted Password
Seek #1, NextChar' Set position.
MyChar = Input(1, #1)' Read character.
TempPwd = TempPwd & Chr(Asc(MyChar) Xor secret(secretpos)) 'Decrypt using Xor
secretpos = secretpos + 1'increment pointer
Next NextChar
Close #1' Close file.
AccessPassword = TempPwd
End Function
Demikian, semoga bermanfaat
Mengambil Nilai Sel Excel Dari VB
bagaimana caranya mengambil nilai suatu sel dari microsoft excel melalui source code visual basic?
Ada satu trik sederhana untuk melakukan hal ini:
Function getExcel(rowval As Integer, columnval As String, excelfile As String)
Dim excelSheet As Object 'Excel Sheet object
'Buat Object Excel
Set excelSheet = CreateObject(excelfile)
mycell$ = columnval & rowval
getExcel = excelSheet.ActiveSheet.Range(mycell$).Value
Set excelSheet = Nothing
End Function
untuk selanjut nya anda bisa copy paste function tersebut di program anda, dan dapat dipangil kapan saja saat diperlukan.
Contoh Penggunaan:
private sub cmdContoh_Click()
dim a
dim baris, klm as integer
dim kolom as string
dim NamaFile as string
NamaFile = App.Path & "\contoh.xls"
For baris =1 to 10
For klm = 1 to 10
Kolom = Chr(klm+ 65) ' ngerubah kolom jadi huruf, sesuai penamaan kolom di excel
IsiExcel = getExcel (baris, kolom, NamaFile) ' ambil isi cell nya
List1.AddItem IsiExcel
Next
Next
End Sub
Jangan Lupa tambahin Preferensi buat excel di program nya (Pilih Menu Project -> Preference ->Microsoft Excel Object Library), klo ngga percuma, ga jalan
Itu saja, semoga bermanfaat. ditunggu kritik dan sarannya
Ada satu trik sederhana untuk melakukan hal ini:
Function getExcel(rowval As Integer, columnval As String, excelfile As String)
Dim excelSheet As Object 'Excel Sheet object
'Buat Object Excel
Set excelSheet = CreateObject(excelfile)
mycell$ = columnval & rowval
getExcel = excelSheet.ActiveSheet.Range(mycell$).Value
Set excelSheet = Nothing
End Function
untuk selanjut nya anda bisa copy paste function tersebut di program anda, dan dapat dipangil kapan saja saat diperlukan.
Contoh Penggunaan:
private sub cmdContoh_Click()
dim a
dim baris, klm as integer
dim kolom as string
dim NamaFile as string
NamaFile = App.Path & "\contoh.xls"
For baris =1 to 10
For klm = 1 to 10
Kolom = Chr(klm+ 65) ' ngerubah kolom jadi huruf, sesuai penamaan kolom di excel
IsiExcel = getExcel (baris, kolom, NamaFile) ' ambil isi cell nya
List1.AddItem IsiExcel
Next
Next
End Sub
Jangan Lupa tambahin Preferensi buat excel di program nya (Pilih Menu Project -> Preference ->Microsoft Excel Object Library), klo ngga percuma, ga jalan
Itu saja, semoga bermanfaat. ditunggu kritik dan sarannya
Rabu, 10 Desember 2008
Langganan:
Postingan (Atom)
Welcome
Selamat datang di blog yang sangat sederhana ini.
Created by@
Ramedhan Hermawan