Open XCode-Yogyafree Software [Share Your Own Hacktool here]

Tempat pembahasan dan tutorial penggunaan tools untuk hacking, security dan forensik komputer.

Moderators: Paman, Xshadow, indounderground

Forum rules
Tool yang diupload oleh member tidak diperiksa oleh kami, mungkin saja terinfeksi oleh malware secara disengaja ataupun tidak, saran kami sebaiknya mendownload tool tersebut dari sumber pembuatnya. Bagi yang buat thread diharapkan menampilkan screenshot tool.
User avatar
Digital Cat
Posts: 437
Joined: Fri Jun 26, 2009 6:13 pm
Location: USA
Contact:

Re: Open YF Software

Post by Digital Cat » Wed Jul 15, 2009 1:00 pm

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

http://xcode.or.id/forum2/viewtopic.php?f=108&t=35672


Petunjuk Download :

http://digitalcatusa.blogspot.com/


Image

Image

Image

Image

User avatar
Digital Cat
Posts: 437
Joined: Fri Jun 26, 2009 6:13 pm
Location: USA
Contact:

Re: Open YF Software

Post by Digital Cat » Sun Jul 19, 2009 11:44 am

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

User avatar
Digital Cat
Posts: 437
Joined: Fri Jun 26, 2009 6:13 pm
Location: USA
Contact:

Re: Open YF Software

Post by Digital Cat » Tue Jul 21, 2009 5:01 pm

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

User avatar
darkslayer100
Posts: 32
Joined: Mon Jul 27, 2009 8:17 pm

Re: Open YF Software

Post by darkslayer100 » Tue Jul 28, 2009 6:12 pm

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:

User avatar
Digital Cat
Posts: 437
Joined: Fri Jun 26, 2009 6:13 pm
Location: USA
Contact:

Re: Open YF Software

Post by Digital Cat » Sat Aug 01, 2009 5:49 pm

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

kocokprotol
Posts: 129
Joined: Thu Jul 23, 2009 12:07 am
Contact:

Re: Open YF Software

Post by kocokprotol » Mon Aug 03, 2009 1:00 am

netcut d mn ya ................

User avatar
Digital Cat
Posts: 437
Joined: Fri Jun 26, 2009 6:13 pm
Location: USA
Contact:

Re: Open YF Software

Post by Digital Cat » Mon Aug 03, 2009 4:51 pm

kocokprotol wrote:netcut d mn ya ................
saya tidak mengerti maksud perkataan anda..

Konfirmasi lebih jelas

key..

Terima Kasih….

Image

Image

Image

Image

zaunderstar
Posts: 1
Joined: Thu Aug 13, 2009 11:15 am

Re: Open YF Software

Post by zaunderstar » Thu Aug 13, 2009 10:55 pm

aku baru neh..
aku coba donlot xremote kok ga bisa?

User avatar
Digital Cat
Posts: 437
Joined: Fri Jun 26, 2009 6:13 pm
Location: USA
Contact:

Re: Open YF Software

Post by Digital Cat » Tue Aug 18, 2009 6:56 pm

Update Program Digital Cat (Tanpa Virus)

>> Klik Untuk Download Semua Program Digital Cat <<

Terima Kasih….

Image

Image

Image

Image

xamoeba
Posts: 1
Joined: Thu Oct 08, 2009 2:55 pm

Re: Open YF Software

Post by xamoeba » Thu Oct 08, 2009 3:15 pm

numpang sedot master

Post Reply

Return to “Tools For Hacking - Security & Computer Forensic”