Şifre Kırma Hakkındaki Görüşleriniz

Elimde bir arkadaşımdan aldıgım fonksiyon mevcut ancak şifrelenmiş CJGtDJ8pDZWuDJGtDJ8 şifrenin çözülmüş hali ve çözen algoritması gerekiyor.Bir türlü kıramadım.Nasıl bir algoritma varsa çözemedim.Bilen yardımcı olan olursa sevinirim.

googleye php md5 decode yaz.

MD5 128 bitlik şifrelemeye sahiptir, 1 bit = 4 hex karaktere denk gelir , 128/4 = 32 tane hex karakter olması lazım bir MD5 şifrelemede. Buradaki verdiği şifrelenmiş veri MD5 çıktısı ile uymamaktadır. Şifre eğer tek taraflı şifrelenmişse ; yani geri dönüşü yoksa yapılan şifreleme türünü bulup brute-force ile çözebilirsiniz. Ben herhangi bir tip şifrelemeye benzetemedim, başka yazılımcı arkadaşlar konuyu görürse yardımcı olabileceklerini umuyorum.

encode halini verdiğini görmedim ben doğru diyorsunuz.

Fonksiyon buymuş decode eden bu ama bunun php karşılıgı nedir ?
Public Function Decode(ByVal cipherText As String) As String If String.IsNullOrEmpty(cipherText) Then Return String.Empty End If Dim builder As New StringBuilder Try cipherText = cipherText.PadRight(((((cipherText.Length - 1) / 4) + 1) * 4), ChrW(0)) Dim i As Integer = 0 Do While (i < cipherText.Length) Dim str As String = cipherText.Substring(i, 4) Dim index As Integer = Array.IndexOf(Of Char)(Me.outAlphabet, str.Chars(0)) Dim num3 As Integer = (Array.IndexOf(Of Char)(Me.outAlphabet, str.Chars(1)) + If((str.Chars(0) = "/"c), &H40, 0)) Dim num4 As Integer = (Array.IndexOf(Of Char)(Me.outAlphabet, str.Chars(2)) + If((str.Chars(1) = "/"c), &H40, 0)) Dim num5 As Integer = (Array.IndexOf(Of Char)(Me.outAlphabet, str.Chars(3)) + If((str.Chars(2) = "/"c), &H40, 0)) Dim num6 As Integer = ((num3 * &H10) / &HFF) Dim num7 As Integer = ((num4 * &H40) / &HFF) Dim ch As Char = Me.inAlphabet(((index * 4) + num6)) Dim ch2 As Char = Me.inAlphabet((((num3 * &H10) + num7) Mod &H100)) Dim num8 As Integer = Math.Min(&HFE, ((((num4 - ((Array.IndexOf(Of Char)(Me.inAlphabet, ch2) Mod &H10) * 4)) Mod &H40) * &H40) + num5)) Dim ch3 As Char = If((num5 <> -1), Me.inAlphabet(num8), ChrW(0)) builder.Append(ch) If (num4 <> -1) Then builder.Append(ch2) End If If (num5 <> -1) Then builder.Append(ch3) End If i = (i + 4) Loop Catch exception As Exception MessageBox.Show(exception.Message) End Try Return builder.ToString End Function