Public Sub ds(key As String, raw As String) As String
Dim c As Cipher
Dim b() As Byte = c.Decrypt(bc.HexToBytes(raw), key)
Dim s As String = BytesToString(b, 0, b.Length, "utf8")
Dim i As Int = s.IndexOf(Chr(0))
If i > -1 Then s = s.SubString2(0, i)
Return s
End Sub