<script runat="server">
public function EDcrypt(entext as string) as string
Dim SHA512 as new SHA512Managed()
Dim data() as byte = Encoding.ascii.getbytes(entext)
Dim en() as byte = SHA512.computehash(data)
Dim dataEn as string = Convert.ToBase64string(en)
return dataEn
end function
</script>