คัดลอกมาจาก http://greatfriends.biz/webboards/msg.asp?id=18878
ขออนุญาตคัดลอกนะครับ เคยสร้างเฉพาะลิ้งค์ไว้แล้วมีบางบทความหายไป เสียดายมากๆเลย
<%@ Page Language="VB" autoeventwireup=true ValidateRequest=false ContentType="text/html" debug=true ResponseEncoding="windows-874" %>
<%@ Import Namespace="system.security.Cryptography" %>
<%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%>
