منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كاتب الموضوع : tibo

ده شرح ازاى نشفر نص باستخدام md5 وهى تقنيه موجوده فى الفيجوال بيسيك لكن هى معموله انها تكون امنه بحيث ميكونش ليها طريقه لفك تشفير ويتستخدم فى المواقع

انما فى الكفه التانيه ال md5 له طريقه فى فك التشفير من خلال مواقع فك تشفير ال md5 ودى مش دايما بتبقى فعاله

المهم الكود هو عباره عن داله للتشفير وحط النتيجه فى تكستبوكس اللى هيبقى فيها الهاش (النص بعد التشفير) كالتالى:

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Function [/color][color=#0000bb]getMd5Hash[/color][color=#007700]([/color][color=#0000bb]ByVal input [/color][color=#007700]As [/color][color=#0000bb]String[/color][color=#007700]) As [/color][COLOR=#0000bb]String 

        Dim md5Hasher [/COLOR][color=#007700]As [/color][color=#0000bb]MD5 [/color][color=#007700]= [/color][color=#0000bb]MD5[/color][color=#007700].[/color][color=#0000bb]Create[/color][COLOR=#007700]() 

        [/COLOR][color=#0000bb]Dim data [/color][color=#007700]As [/color][color=#0000bb]Byte[/color][color=#007700]() = [/color][color=#0000bb]md5Hasher[/color][color=#007700].[/color][color=#0000bb]ComputeHash[/color][color=#007700]([/color][color=#0000bb]Encoding[/color][color=#007700].Default.[/color][color=#0000bb]GetBytes[/color][color=#007700]([/color][color=#0000bb]input[/color][COLOR=#007700])) 

        [/COLOR][color=#0000bb]Dim sBuilder [/color][color=#007700]As New [/color][color=#0000bb]StringBuilder[/color][COLOR=#007700]() 

        [/COLOR][color=#0000bb]Dim i [/color][color=#007700]As [/color][COLOR=#0000bb]Integer 

        [/COLOR][color=#007700]For [/color][color=#0000bb]i [/color][color=#007700]= [/color][color=#0000bb]0 To data[/color][color=#007700].[/color][color=#0000bb]Length [/color][color=#007700]- [/color][COLOR=#0000bb]1 

            sBuilder[/COLOR][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#0000bb]data[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700]).[/color][color=#0000bb]ToString[/color][color=#007700]([/color][color=#dd0000]"x2"[/color][COLOR=#007700])) 

        [/COLOR][COLOR=#0000bb]Next i 

        [/COLOR][color=#007700]Return [/color][color=#0000bb]sBuilder[/color][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700]() 

[/COLOR][color=#0000bb]End [/color][COLOR=#007700]Function  

[/COLOR][color=#0000bb][/color][/COLOR]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech