<%@ Page %>
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("
")
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