Page 4 of 6

Re: Open YF Software

PostPosted: Wed Jul 15, 2009 1:00 pm
by Digital Cat
Digital Md5 v1.0

Image

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 :

Image

Image


Download

EXE

Image

Source Code / Project

viewtopic.php?f=108&t=35672


Petunjuk Download :

http://digitalcatusa.blogspot.com/


Image

Image

Image

Image

Re: Open YF Software

PostPosted: Sun Jul 19, 2009 11:44 am
by Digital Cat
Digital Encrypt v1.0

Image

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

Image

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 :

Image

Image

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


Image

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

Image

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….

Image

Image

Image

Image

Re: Open YF Software

PostPosted: Tue Jul 21, 2009 5:01 pm
by Digital Cat
Digital Deep Freeze v1.2 (Deep Freeze 6)


Image

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 <<

Image

Download :

Image

>>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 :

Image

Image

Image

Download

EXE

Image

Petunjuk Download :

http://digitalcatusa.blogspot.com/

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

Terima Kasih….

Image

Image

Image

Image

Re: Open YF Software

PostPosted: Tue Jul 28, 2009 6:12 pm
by darkslayer100
maaf, mau nanya untuk beberapa softwarenya ketika di extract kok g ada instaler/shortcut untuk mengaktifkan softwarenya ya :|

contohnya pada digital infeksi,... pada file rar nya cm terdapat file berextensi .frm .vbs .bas dan lain2, sedangkan untuk .exe nya g ada..

tolong penjelasannya :D


truz untuk cara menscan port suatu web caranya gmn y :|


untuk pembelajaran aj, biar kgk dudul :D
maaf jika lancang .. member baru sih :cry:

Re: Open YF Software

PostPosted: Sat Aug 01, 2009 5:49 pm
by Digital Cat
darkslayer100 wrote:maaf, mau nanya untuk beberapa softwarenya ketika di extract kok g ada instaler/shortcut untuk mengaktifkan softwarenya ya :|

contohnya pada digital infeksi,... pada file rar nya cm terdapat file berextensi .frm .vbs .bas dan lain2, sedangkan untuk .exe nya g ada..

tolong penjelasannya :D


ya jelas aja gak ada exe_nya
karna kamu extract file gambar yang (Source Code Visual Basic)
extract yang ( EXE )
Key...

darkslayer100 wrote:truz untuk cara menscan port suatu web caranya gmn y :|


Bisa gunakan tools, atau layan scan port di web site ..

Terima Kasih….

Image

Image

Image

Image

Re: Open YF Software

PostPosted: Mon Aug 03, 2009 1:00 am
by kocokprotol
netcut d mn ya ................

Re: Open YF Software

PostPosted: Mon Aug 03, 2009 4:51 pm
by Digital Cat
kocokprotol wrote:netcut d mn ya ................


saya tidak mengerti maksud perkataan anda..

Konfirmasi lebih jelas

key..

Terima Kasih….

Image

Image

Image

Image

Re: Open YF Software

PostPosted: Thu Aug 13, 2009 10:55 pm
by zaunderstar
aku baru neh..
aku coba donlot xremote kok ga bisa?

Re: Open YF Software

PostPosted: Tue Aug 18, 2009 6:56 pm
by Digital Cat
Update Program Digital Cat (Tanpa Virus)

>> Klik Untuk Download Semua Program Digital Cat <<

Terima Kasih….

Image

Image

Image

Image

Re: Open YF Software

PostPosted: Thu Oct 08, 2009 3:15 pm
by xamoeba
numpang sedot master