Imports System

Imports System.IO

Imports System.Text

Imports System.Net

Imports System.Security.Cryptography

​

Public Class Module1

    Sub Main()

        Dim Config As ConfigFile = ConfigFile.LoadFromFile("https://gist.githubusercontent.com/0x6d61/2706ab5d708a2cd53256331613f0eaae/raw/dd4aced8b7167f6fe877bd19aa5b5d753dc4f7d9/RU_config.xml")

        Console.Write(Config)

        Dim test As New SsoIntegration With {.Username = Config.Username, .Password = Utils.DecryptString(Config.Password)}

        Dim test1 As New SsoIntegration With {.Username = Utils.EncryptString(Config.Username), .Password = Utils.DecryptString(Config.Password)}

        Console.WriteLine("Old:")

        Console.WriteLine("----")

        Console.WriteLine(test.Password)    

        Console.WriteLine(test.Username)

        Console.WriteLine()

        Console.WriteLine("New:")

        Console.WriteLine("----")

        Console.WriteLine(test1.Username)

        Console.WriteLine(test.Password)        

    End Sub

End Class

​

​

Public Class ConfigFile

    Public Property Port As Integer

    Public Property Username As String

    Public Property Password As String

    Public Sub SaveToFile(Path As String)                   

        Using File As New IO.FileStream(Path, IO.FileMode.Create)

            Dim Writer As New Xml.Serialization.XmlSerializer(GetType(ConfigFile))

            Writer.Serialize(File, Me)

        End Using           

    End Sub

​

    Public Shared Function LoadFromFile(ByVal FilePath As String) As ConfigFile

        'Using File As New IO.FileStream(FilePath, IO.FileMode.Open)

            Dim req as WebRequest = HttpWebRequest.Create("https://raw.githubusercontent.com/msraja14/pem/master/RU_config.xml")

            Using File As Stream = req.GetResponse().GetResponseStream()

            Dim Reader As New Xml.Serialization.XmlSerializer(GetType(ConfigFile))

            Return DirectCast(Reader.Deserialize(File), ConfigFile)

            End Using

    End Function

End Class

​

​

Public Class Utils

    Public Shared Function GetLogFilePath() As String

        Return IO.Path.Combine(Environment.CurrentDirectory, "Log.txt")

    End Function

​

    Public Shared Function DecryptString(EncryptedString As String) As String

        If String.IsNullOrEmpty(EncryptedString) Then

            Return String.Empty

        Else

            Return Decrypt(EncryptedString, "N3st22", "88552299", 2, "464R5DFA5DL6LE28", 256)

        End If

    End Function

​

​

    Public Shared Function EncryptString(PlainString As String) As String

        If String.IsNullOrEmpty(PlainString) Then

            Return String.Empty

        Else

            Return Encrypt(PlainString, "N3st22", "88552299", 2, "464R5DFA5DL6LE28", 256)

        End If

    End Function

​

​

    Public Shared Function Encrypt(ByVal plainText As String, ByVal passPhrase As String, ByVal saltValue As String, ByVal passwordIterations As Integer, ByVal initVector As String, ByVal keySize As Integer) As String

        Dim initVectorBytes As Byte() = Encoding.ASCII.GetBytes(initVector)

        Dim saltValueBytes As Byte() = Encoding.ASCII.GetBytes(saltValue)

        Dim plainTextBytes As Byte() = Encoding.ASCII.GetBytes(plainText)

        Dim password As New Rfc2898DeriveBytes(passPhrase, saltValueBytes, passwordIterations)

        Dim keyBytes As Byte() = password.GetBytes(CInt(keySize / 8))

        Dim symmetricKey As New AesCryptoServiceProvider

        symmetricKey.Mode = CipherMode.CBC

        Dim encryptor As ICryptoTransform = symmetricKey.CreateEncryptor(keyBytes, initVectorBytes)

        Using memoryStream As New IO.MemoryStream()

            Using cryptoStream As New CryptoStream(memoryStream, encryptor, CryptoStreamMode.Write)

                cryptoStream.Write(plainTextBytes, 0, plainTextBytes.Length)

                cryptoStream.FlushFinalBlock()

                Dim cipherTextBytes As Byte() = memoryStream.ToArray()

                memoryStream.Close()

                cryptoStream.Close()

                Return Convert.ToBase64String(cipherTextBytes)

            End Using

        End Using

    End Function

​

​

    Public Shared Function Decrypt(ByVal cipherText As String, ByVal passPhrase As String, ByVal saltValue As String, ByVal passwordIterations As Integer, ByVal initVector As String, ByVal keySize As Integer) As String

        Dim initVectorBytes As Byte()

        initVectorBytes = Encoding.ASCII.GetBytes(initVector)

        Dim saltValueBytes As Byte()

        saltValueBytes = Encoding.ASCII.GetBytes(saltValue)

        Dim cipherTextBytes As Byte()

        cipherTextBytes = Convert.FromBase64String(cipherText)

        Dim password As New Rfc2898DeriveBytes(passPhrase, saltValueBytes, passwordIterations)

        Dim keyBytes As Byte()

        keyBytes = password.GetBytes(CInt(keySize / 8))

        Dim symmetricKey As New AesCryptoServiceProvider

        symmetricKey.Mode = CipherMode.CBC

        Dim decryptor As ICryptoTransform

        decryptor = symmetricKey.CreateDecryptor(keyBytes, initVectorBytes)

        Dim memoryStream As IO.MemoryStream

        memoryStream = New IO.MemoryStream(cipherTextBytes)

        Dim cryptoStream As CryptoStream

        cryptoStream = New CryptoStream(memoryStream, decryptor, CryptoStreamMode.Read)

        Dim plainTextBytes As Byte()

        ReDim plainTextBytes(cipherTextBytes.Length)

        Dim decryptedByteCount As Integer

        decryptedByteCount = cryptoStream.Read(plainTextBytes, 0, plainTextBytes.Length)

        memoryStream.Close()

        cryptoStream.Close()

        Dim plainText As String

        plainText = Encoding.ASCII.GetString(plainTextBytes, 0, decryptedByteCount)

        Return plainText

    End Function

End Class

​

​

Public Class SsoIntegration

    Public Property Username As String

    Public Property Password As String

End Class

​