Mega Code Archive

 

Categories / ASP.Net Tutorial / Development

 

Cryptography SHA1Managed

<%@ Page %> <script Language="vb" runat="server"> Private Sub Page_Load(sender As Object, e As System.EventArgs)    Dim clearText As String = "Try not.  Do.  Or do not.  There is no try."    Dim encoder As New System.Text.UTF8Encoding()        Response.Write(("Clear Text: " + clearText))    Response.Write("<hr>")        Dim sha As New System.Security.Cryptography.SHA1Managed()    Dim input As Byte() = encoder.GetBytes(clearText)    Dim output As Byte() = sha.ComputeHash(input)    Response.Write(("Encrypted Text: " + encoder.GetString(output))) End Sub </script>