Digital Cat Tools

[poni]

Digital cat: semua file .exe yg u upload terinfeksi worm/virut.gen .harap scan kompie u dan upload ulang.

[gilang_perusak]

tolong ya kakak upload ulang lg tanpa virus.

[eAR_comic]

bos ternyata masih juga tetep terinfeksi tuh meski ekstentionnya di ganti!
mungkin selama ini virusnya berada di kompie sampean

[Digital Cat]

Digital Deep Freeze v1.0




Saya membuatnya dengan Program Delphi 7 yang digabungkan dengan
2 (dua) bahasa pemrograman :

Program Assembler dan Program C



Untuk cara menjalankan programnya :



Setelah klik Tombol Bypass Deep Freeze

Pada icon Deep Freeze di pojok kanan bagian bawah

Klik 2 X (Dua Kali) sambil tekan tombol Shift

jangan ditambah tombol Ctrl / Alt,etc…
Saat keluar tampilan Deep Freeze yang di hack meminta Password :
Jangan di isi hanya di kosongkan saja

Karena jika diisi password secara acak
terkadang Komputer down / computer mati langsung..

Dan tidak keluar tampilan untuk Boot Deep Freeze

Untuk lebih jelasnya lihat tampilan dibawah ini :



NB :
Terkadang di warnet menggunakan / mengganti icon Deep Freeze 6
Tapi sebenarnya dia menggunakan Deep Freeze 5

Jalankan program Digital Deep Freeze v1.0dengan status Adminstrator :

di Command Prompt ketik :

Code: Select all

net user administrator /random

Untuk mendapatkan password Administator..

Jika password yang di dapat tidak sesuai ketik lagi

Perintah diatas di Command Prompt

key…….


Sorry saya gak bisa memberikan Source Codenya..

Alasan :
1.Source Project terlalu besar,
2.Berbahaya jika digabung dengan Code Virus / Worm
(cukup saya aja yang menggunakannya tuk hal tersebut.


Warning :

Jangan mencoba untuk melihat code sumber Program Digital Deep Freeze v1.0
Karena program sudah saya lindungi agar source code

Tidak bisa di peroleh / dibaca / dilihat..

Dengan program Anti Hack Program
Yang saya buat dengan bahasa pemrograman Visual Basic 6



Download

EXE

http://www.ziddu.com/download/5519657/D ... 0.gif.html


Petunjuk Download :

http://digitalcatusa.blogspot.com/

[Digital Cat]

Digital Md5 v1.0




Cara menggunakannya :

1.Klik Daftar Komponen Ke Register.bat
2.Klik Digital Md5 v1.0.exe
3.Cari Kumpulan Password yang kamu miliki dengan
mengklik Tombol Cari
4.Masukkan MD5 Hash yang ingin di Crack
5.Klik Tombol Crack Hash

Untuk lebih jelasnya lihat tampilan dibawah ini dan saya sertakan juga
Contoh Tampilannya :






Download

EXE



Petunjuk Download :

http://digitalcatusa.blogspot.com/

Source Code / Project
http://www.xcode.or.id/forum2/viewtopic ... 08&t=35672

[fat_stef]

Kren2...
trima kasih ya softwarenya
dicoba dulu...

[fearlee]

Digital Face Book v1.0





Cara menggunakannya :



Download

EXE



Petunjuk Download :

http://digitalcatusa.blogspot.com/

Source Code / Project
http://www.xcode.or.id/forum2/viewtopic ... 08&t=35672

kok progie nya waktu di ekstrak eror ya bos ??
Mungkin ada penjelasan

[Digital Cat]

mungkin link Face Book udah di ganti..

coba di ganti..

di projectnya..

tau mungkin juga udah di patch..

[Digital Cat]

Digital Encrypt v1.0



Awal Ide pembuatannya sebenernya dari gblack

Di forum sebelah -> Forum Malware pada Topik : Masalah Pembuatan Virus / Trojan / etc..(All Programming)

Forum Malware


Digital Encrypt dibuat dengan menggunakan Algoritma RC4


Algoritma RC4

Code: Select all

Public Function RC4(ByVal Lambang As String, ByVal Password As String) As String
On Error Resume Next
Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Karakter() As Byte, SusunanByte() As Byte, Penyimpanan As Byte
If Len(Password) = 0 Then
    Exit Function
End If
If Len(Lambang) = 0 Then
    Exit Function
End If
If Len(Password) > 256 Then
    Karakter() = StrConv(Left$(Password, 256), vbFromUnicode)
Else
    Karakter() = StrConv(Password, vbFromUnicode)
End If
For X = 0 To 255
    RB(X) = X
Next X
X = 0
Y = 0
Z = 0
For X = 0 To 255
    Y = (Y + RB(X) + Karakter(X Mod Len(Password))) Mod 256
    Penyimpanan = RB(X)
    RB(X) = RB(Y)
    RB(Y) = Penyimpanan
Next X
X = 0
Y = 0
Z = 0
SusunanByte() = StrConv(Lambang, vbFromUnicode)
For X = 0 To Len(Lambang)
    Y = (Y + 1) Mod 256
    Z = (Z + RB(Y)) Mod 256
    Penyimpanan = RB(Y)
    RB(Y) = RB(Z)
    RB(Z) = Penyimpanan
    SusunanByte(X) = SusunanByte(X) Xor (RB((RB(Y) + RB(Z)) Mod 256))
Next X
RC4 = StrConv(SusunanByte, vbUnicode)
End Function

Download RC4

Klik - Untuk Mendownload Kode



Cara Menggunakannya :
1.)Klik tombol Cari File jika ingin mengencrypt sebuah program
2.)Klik tombol Lindungi Sekarang untuk menjalankan / mengencrypt program.

Uji coba saya lakukan pada Windows Media Player 9

Bisa kamu lihat pada gambar dibawah ini :





Jika tidak menyukai Metode Encrypt RC4

Kamu bisa menggantinya dengan Metode Encrypt RSA 512 bit (64 byte)

Pada source code / project -> Digital Encrypt v1.0

Awal – akhir kalimat kode encrypt

Code: Select all

Public Function RC4(ByVal Lambang As String, ByVal Password As String) As String
…………
…………….
………………
End Function

Ganti / hapus dengan kode RSA / letakkan / copy - paste, di module baru..

Terserah kamu, pengkodeannya

Key..


Metode Encrypt RSA 512 bit (64 byte)

Code: Select all

Option Explicit

Public Function MetodeEncryptRSA()
    Dim KalimatSederhana As String
    Dim A As Long
    Dim B As Long
    Dim nByte As Long
    Dim C As Long
    Dim sPublicKey As String
    Dim sPrivateKey As String
    Dim JumlahPublicKey As String
    Dim JumlahPrivateKey As String
    Dim JumlahPassword As String
    Dim D() As Byte
    Dim F() As Byte
    Dim i As Integer
    Dim J As Integer
    Dim DigitalHasil() As Byte
    Dim CatHasil As String
    
    sPublicKey = App.Path & "\" & "PenyimpananPublicKey.bin"
    sPrivateKey = App.Path & "\" & "PenyimpananPrivateKey.bin"
    JumlahPassword = "password"
    
'Awal Encrypt

JumlahPublicKey = rsaReadPublicKey(sPublicKey)
   
    If Len(JumlahPublicKey) = 0 Then
        MsgBox "public key pada file tidak bisa dibaca" & sPublicKey, vbCritical
        Exit Function
    End If
   
    B = RSA_KeyBytes(JumlahPublicKey)
    If B <= 0 Then
        MsgBox "Kesalahan pada panjang data di public key", vbCritical
        Exit Function
    End If
   
    KalimatSederhana = "Ketikkan kalimat rahasia / tidak diketahui / etc.. kamu disini...!"
   
    F = StrConv(KalimatSederhana, vbFromUnicode)
    nByte = UBound(F) - LBound(F) + 1
   
    ReDim D(B - 1)
   
    D(0) = 0
    D(1) = 2
    C = B - 3 - nByte
   
    If C < 8 Then
        MsgBox "Data \ key_nya terlalu pendek"
        Exit Function
    End If
   
    Randomize
    J = 2
    For i = 0 To C - 1
        Do
            D(J + i) = Int(Rnd() * 256) And &HFF
        Loop While D(J + i) = 0
    Next
    J = J + C
   
    D(J) = 0
    J = J + 1
   
    For i = 0 To nByte - 1
        D(J + i) = F(i)
    Next
    
    A = RSA_RawPublic(D(0), B, JumlahPublicKey, 0)
'Akhir Encrypt

'Awal decrypt -> Digunakan jika ingin melakukan decrypt juga pada program
    
    JumlahPrivateKey = RSAPrivateKey(sPrivateKey, JumlahPassword)
   
    If Len(JumlahPrivateKey) = 0 Then
        MsgBox "private key pada file tidak bisa dibaca " & sPrivateKey, vbCritical
        Exit Function
    End If
    B = RSA_KeyBytes(JumlahPrivateKey)
    If B <= 0 Then
        MsgBox "Kesalahan pada panjang data di private key", vbCritical
        Exit Function
    End If
   
    A = RSA_RawPrivate(D(0), B, JumlahPrivateKey, 0)
    If A <> 0 Then
        Exit Function
    End If
   
    Call WIPE_String(JumlahPrivateKey, Len(JumlahPrivateKey))
    Call WIPE_String(JumlahPassword, Len(JumlahPassword))
   
    If D(0) <> 0 Then
        MsgBox "Decrypt tidak bisa dilakukan"
        Exit Function
    End If
    If D(1) <> 2 Then
        MsgBox "Decrypt tidak bisa dilakukan"
        Exit Function
    End If
   
    For i = 1 To B - 1
        If D(i) = 0 Then
            Exit For
        End If
    Next
   
    nByte = B - i - 1
    ReDim DigitalHasil(nByte - 1)
    For i = i + 1 To B - 1
        DigitalHasil(i - B + nByte) = D(i)
    Next
   
    CatHasil = StrConv(DigitalHasil, vbUnicode)
   
    
'Akhir decrypt

End Function


Public Function PembuatKey()
    Dim A As Long
    Dim K As Long
    Dim sPublicKey As String
    Dim sPrivateKey As String
    Dim JumlahPublicKey As String
    Dim JumlahPrivateKey As String
    Dim JumlahPassword As String
   
    sPublicKey = "PenyimpananPublicKey.bin"
    sPrivateKey = "PenyimpananPrivateKey.bin"
    JumlahPassword = "password"
      
    A = RSA_MakeKeys(sPublicKey, sPrivateKey, 512, PKI_RSAEXP_EQ_3, _
        50, 1000, JumlahPassword, "", 0, PKI_DEFAULT)
   
    K = RSA_ReadPublicKey(vbNullString, 0, sPublicKey, 0)
    If K > 0 Then
        JumlahPublicKey = String(K, " ")
        A = RSA_ReadPublicKey(JumlahPublicKey, K, sPublicKey, 0)
    Else
        MsgBox "Public key tidak bisa dibaca. Terjadi Kesalahan=" & K & vbCrLf & pkiErrorLookup(K)
    End If
    K = RSA_ReadEncPrivateKey(vbNullString, 0, sPrivateKey, JumlahPassword, 0)
    If K > 0 Then
        JumlahPrivateKey = String(K, " ")
        A = RSA_ReadEncPrivateKey(JumlahPrivateKey, K, sPrivateKey, JumlahPassword, 0)
    Else
        MsgBox "Private key tidak bisa dibaca. Terjadi Kesalahan=" & K & vbCrLf & pkiErrorLookup(K)
    End If

End Function

Download Kode RSA

Klik - Untuk Mendownload Kode

saya tambahkan di awal kode

Code: Select all

Option Explicit

hanya berfungsi jika kode RSA diletakkan di module baru..
kenapa ?
karena itu sudah ada di kode module Digital Encrypt

itu jika kamu mau merubahnya Metode RC4 dengan Metode RSA.

Download

EXE



Petunjuk Download :

http://digitalcatusa.blogspot.com/

Source Code / Project
http://www.xcode.or.id/forum2/viewtopic ... 08&t=35672

NB :
Jika tidak mengetahui bagaimana / gimana untuk menyambungkan / menyatukan
Kode RSA dengan Kode project..

Saya persilahkan kamu untuk belajar Kode Pemrograman Visual Basic..

Terima Kasih….

[Digital Cat]

Digital Deep Freeze v1.2 (Deep Freeze 6)




Digital Deep Freeze v1.2 digunakan untuk Bypass Password Deep Freeze 6 uji coba pada Deep Freeze Standard Versi 6.00.020.1523

Awal ide pembuatannya berasal dari Forum Malware tentang cara melakukan
Infeksi Deep Freeze pada Topik : (Ask ) Deep Freeeze by A25414N

Lihat Topiknya : >> Klik untuk melihat Topik <<



Download :



>>Deep Freeze Standard Versi 6.00.020.1523 <<

Digital Deep Freeze v1.2 pembuatan programmnya menggunakan Visual Basic 6 berbeda dengan Versi sebelumnya Digital Deep Freeze v1.0
dibuat dengan Borland Delphi 7.

Perbedaannya :
Digital Deep Freeze v1.0 (Bypass semua Deep Freeze)
Digital Deep Freeze v1.2 (Bypass Deep Freeze 6)

Alasan :
Digital Deep Freeze v1.2 (Open Source)

Cara menggunakannya :
1.Klik Tombol Bypass Deep Freeze 6
2.Klik icon Deep Freeze 6 di pojok kanan bawah,
sambil menngunakan kombinasi Tombol Shift
3.Software Deep Freeze meminta konfirmasi Password
kosongkan lalu klik Tombol OK
4.Lakukan pengaturan kamu.
5.Restart komputer

Untuk lebih jelasnya lihat tampilan berikut :







Download

EXE



Petunjuk Download :

http://digitalcatusa.blogspot.com/

Source Code / Project
http://www.xcode.or.id/forum2/viewtopic ... 08&t=35672

Terima Kasih….