Imports System.Security
Imports System.Text
Imports System.Security.Cryptography
Imports System.IO
Imports System.Runtime.InteropServices

Public Class Form1



    Public Shared Function LoadSecureString(ByVal input As String, ByVal makeReadOnly As Boolean) As System.Security.SecureString
        LoadSecureString = Nothing

        If Not String.IsNullOrEmpty(input) Then
            LoadSecureString = New System.Security.SecureString

            For Each character As Char In input.ToCharArray
                LoadSecureString.AppendChar(character)
            Next

            If makeReadOnly Then
                LoadSecureString.MakeReadOnly()
            End If

        End If

    End Function

    Public Shared Function LoadSecureString(ByVal input As String) As System.Security.SecureString
        Return LoadSecureString(input, False)
    End Function



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sb As StringBuilder = New StringBuilder()
        sb.Append("{F81A4F9D-47CF-4d09-B26B-93E376654803}")
        sb.Append("App Guid : E1351D26-A0F9-42f0-8659-BCF8F3D514C6" + Environment.NewLine)
        Dim string_ As String = smethod_13(smethod_10(LoadSecureString(sb.ToString()), LoadSecureString("I*ekdc*edje279(238jmJed783jJHYed873K(90338")))

        TextBox1.Text = string_
    End Sub

    Public Shared Function smethod_13(ByVal secureString_0 As SecureString) As String
        Dim result As String = Nothing
        Dim intPtr As IntPtr = 0
        If secureString_0 Is Nothing Then
            Throw New ArgumentNullException("securePassword")
        End If
        intPtr = intPtr.Zero
        Try
            intPtr = Marshal.SecureStringToGlobalAllocUnicode(secureString_0)
            result = Marshal.PtrToStringUni(intPtr)
        Finally
            Marshal.ZeroFreeGlobalAllocUnicode(intPtr)
        End Try
        Return result
    End Function


    Public Shared Function smethod_10(ByVal secureString_0 As SecureString, ByVal secureString_1 As SecureString) As SecureString
        Dim result As SecureString = Nothing
        Dim cryptoStream As CryptoStream = Nothing
        Dim memoryStream As MemoryStream = Nothing
        Using rijndaelManaged1 As RijndaelManaged = New RijndaelManaged()
            Dim bytes As Byte() = Encoding.Unicode.GetBytes(smethod_13(secureString_0))
            Dim bytes2 As Byte() = Encoding.ASCII.GetBytes(secureString_1.Length.ToString())
            Dim passwordDeriveBytes1 As PasswordDeriveBytes = New PasswordDeriveBytes(smethod_13(secureString_1), bytes2)
            Dim transform As ICryptoTransform = rijndaelManaged1.CreateEncryptor(passwordDeriveBytes1.GetBytes(32), passwordDeriveBytes1.GetBytes(16))
            Using memoryStream1 As MemoryStream = New MemoryStream()
                Using cryptoStream1 As CryptoStream = New CryptoStream(memoryStream1, transform, CryptoStreamMode.Write)
                    cryptoStream1.Write(bytes, 0, bytes.Length)
                    cryptoStream1.FlushFinalBlock()
                    Dim inArray As Byte() = memoryStream1.ToArray()
                    result = LoadSecureString(Convert.ToBase64String(inArray))
                End Using
            End Using
        End Using
        Return result
    End Function
End Class