text/microsoft-resx 2.0 System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 Public Function HAZZ15_Decode(ByVal input As String) As String Dim key As String = "HNO4klm6ij9n+J2hyf0gzA8uvwDEq3X1Q7ZKeFrWcVTts/MRGYbdxSo=ILaUpPBC5" Dim out As New System.Text.StringBuilder Dim i As Integer Do Dim enc(3) As Integer Dim chrs() As Integer = {0, 0, 0} For b As Integer = 0 To 3 enc(b) = key.IndexOf(input(i)) i = i + 1 Next chrs(0) = (enc(0) << 2) Or (enc(1) >> 4) chrs(1) = (enc(1) And 15) << 4 Or (enc(2) >> 2) chrs(2) = (enc(2) And 3) << 6 Or enc(3) out.Append(Chr(chrs(0))) If enc(2) <> 64 Then out.Append(Chr(chrs(1))) If enc(3) <> 64 Then out.Append(Chr(chrs(2))) Loop While i < input.Length Return out.ToString End Function Public Function RSA_Decrypt(ByVal Input As String) As String Dim cp As New Security.Cryptography.CspParameters cp.Flags = Security.Cryptography.CspProviderFlags.UseMachineKeyStore cp.KeyContainerName = "Keys" Dim RSA As New Security.Cryptography.RSACryptoServiceProvider(cp) Dim buffer As Byte() = Convert.FromBase64String(Input) Dim decrypted As Byte() = RSA.Decrypt(buffer, True) Return System.Text.Encoding.UTF8.GetString(decrypted) End Function