#AdditionalJar: bcprov-jdk15on-154
Sub encrypt(MeText As String) As String
Return su.EncodeUrl(su.encodeBase64(Cipher.Encrypt(MeText.GetBytes("UTF8"),"pw")), "UTF8")
End Sub
Sub decrypt(MeText As String) As String
Dim data(),data1() As Byte
data=su.DecodeBase64(su.DecodeUrl(MeText, "UTF8"))
data1=Cipher.Decrypt(data,"pw")
MeText=bc.StringFromBytes(data,"UTF8")
If MeText.Contains(Chr(0)) Then MeText=MeText.SubString2(0, MeText.IndexOf(Chr(0)))
Return MeText
End Sub