Home

About

Milis

Blog Roll

Group Facebook

XCode Magazine

1,2,3,4,5,6,7,8,9,10,11,12,13,14,15

Selamat Datang Di Komunitas Yogyafree

Selamat datang di komunitas XCode - Yogyafree - Yogya Family Code. Disini kita saling berbagi ilmu komputer, baik hacking, security, programming, software engineering dan lain sebagainya. Klik disini untuk register

Panel
Welcome! Anonymous

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

[ Facebook comments]

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.

Re: Open YF Software

Postby 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

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

Re: Open YF Software

Postby 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

Re: Open YF Software

Postby 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
Digital Cat
 
Posts: 437
Joined: Fri Jun 26, 2009 6:13 pm
Location: USA

Re: Open YF Software

Postby 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
darkslayer100
 
Posts: 32
Joined: Mon Jul 27, 2009 8:17 pm

Re: Open YF Software

Postby 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
User avatar
Digital Cat
 
Posts: 437
Joined: Fri Jun 26, 2009 6:13 pm
Location: USA

Re: Open YF Software

Postby kocokprotol » Mon Aug 03, 2009 1:00 am

netcut d mn ya ................
kocokprotol
 
Posts: 129
Joined: Thu Jul 23, 2009 12:07 am

Re: Open YF Software

Postby 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
User avatar
Digital Cat
 
Posts: 437
Joined: Fri Jun 26, 2009 6:13 pm
Location: USA

Re: Open YF Software

Postby zaunderstar » Thu Aug 13, 2009 10:55 pm

aku baru neh..
aku coba donlot xremote kok ga bisa?
zaunderstar
 
Posts: 1
Joined: Thu Aug 13, 2009 11:15 am

Re: Open YF Software

Postby 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
User avatar
Digital Cat
 
Posts: 437
Joined: Fri Jun 26, 2009 6:13 pm
Location: USA

Re: Open YF Software

Postby xamoeba » Thu Oct 08, 2009 3:15 pm

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

leave a comment

PreviousNext

Return to Tools For Hacking - Security & Computer Forensic

Who is online

Users browsing this forum: No registered users and 17 guests

Web Counter Start : December 14th 2009
Hit Counters

http://www.xcode.or.id