DeAd HaCkErZ
01-28-2009, 03:30 AM
▓ السلام عليكم ورحمة الله وبركاتة ▓
كيف الحال يا شباب اما العرب ...
اليوم جتني فكرة اني أسوي برنامج بيسط بفك تشفير base64
وراح اعرض الشرح لكم :
▌ الادوات ▌
2 button
2 t e x t box
الشكل النهائي :
[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط] ([فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط])
▌ البرمجة ▌
الحين نجي لعملة برمجة الاكواد داخل البرنامج .. ويجب تكون فاهم مكان الاكواد وتعتمد على نفسك علشان تتعب في البحث
هذا الكود في الجينرال
Imports System.Security.Cryptography
وهذا الكود تحت كود الجينرال
Public Function ComputeHash(ByVal ****ToHash As String) As String
Dim SHA1 As SHA1CryptoServiceProvider = New SHA1CryptoServiceProvider
Dim byteValue As Byte() = System.****.Encoding.UTF8.GetBytes(****ToHash)
Dim byteHash As Byte() = SHA1.ComputeHash(byteValue)
SHA1.Clear()
Return Convert.ToBase64String(byteHash)
End Function
وهذا تحت ComputeHash
Private Function To64(ByVal **** As String) As String
Dim i As Integer
Dim bb As Byte() = System.****.Encoding.UTF8.GetBytes(****)
i = ****.Length
Return Convert.ToBase64String(bb)
End Function
وهذا تحت to64
Private Function ToStr(ByVal **** As String) As String
Dim i As Integer
Dim strBytes() As Byte = System.Convert.FromBase64String(****)
i = ****.Length
Return System.****.Encoding.UTF8.GetString(strBytes)
End Function
وهذا في الز رالأول
****Box2.**** = To64(****Box1.****)
****Box1.Clear()
وهذا في الظر الثاني
****Box1.**** = ToStr(****Box2.****)
****Box2.Clear()
ملاحظة : الكود في الرابط التالي انسخة كلة وروح امسح كل الكود والصقة بالكامل :)
[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط]
بالتوفيق للجميع ...
كيف الحال يا شباب اما العرب ...
اليوم جتني فكرة اني أسوي برنامج بيسط بفك تشفير base64
وراح اعرض الشرح لكم :
▌ الادوات ▌
2 button
2 t e x t box
الشكل النهائي :
[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط] ([فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط])
▌ البرمجة ▌
الحين نجي لعملة برمجة الاكواد داخل البرنامج .. ويجب تكون فاهم مكان الاكواد وتعتمد على نفسك علشان تتعب في البحث
هذا الكود في الجينرال
Imports System.Security.Cryptography
وهذا الكود تحت كود الجينرال
Public Function ComputeHash(ByVal ****ToHash As String) As String
Dim SHA1 As SHA1CryptoServiceProvider = New SHA1CryptoServiceProvider
Dim byteValue As Byte() = System.****.Encoding.UTF8.GetBytes(****ToHash)
Dim byteHash As Byte() = SHA1.ComputeHash(byteValue)
SHA1.Clear()
Return Convert.ToBase64String(byteHash)
End Function
وهذا تحت ComputeHash
Private Function To64(ByVal **** As String) As String
Dim i As Integer
Dim bb As Byte() = System.****.Encoding.UTF8.GetBytes(****)
i = ****.Length
Return Convert.ToBase64String(bb)
End Function
وهذا تحت to64
Private Function ToStr(ByVal **** As String) As String
Dim i As Integer
Dim strBytes() As Byte = System.Convert.FromBase64String(****)
i = ****.Length
Return System.****.Encoding.UTF8.GetString(strBytes)
End Function
وهذا في الز رالأول
****Box2.**** = To64(****Box1.****)
****Box1.Clear()
وهذا في الظر الثاني
****Box1.**** = ToStr(****Box2.****)
****Box2.Clear()
ملاحظة : الكود في الرابط التالي انسخة كلة وروح امسح كل الكود والصقة بالكامل :)
[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط]
بالتوفيق للجميع ...