Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System
- Imports System.Security.Cryptography
- Imports System.Text
- Imports System.Windows.Forms
- Namespace L1010
- Public Class L10101010101010101
- Public Sub New()
- MyBase.New()
- End Sub
- Private Shared Function L011101001010() As PaddingMode
- Return PaddingMode.PKCS7
- End Function
- Private Shared Function L10001010011101() As TripleDESCryptoServiceProvider
- Return New TripleDESCryptoServiceProvider()
- End Function
- Private Shared Function L1010101111010(ByVal L1010101110101 As ICryptoTransform, ByVal L1010101010 As Byte()) As Byte()
- Return L1010101110101.TransformFinalBlock(L1010101010, 0, CInt(L1010101010.Length))
- End Function
- Private Shared Function L10110101001(ByVal L10001010 As String) As Byte()
- Return Convert.FromBase64String(L10001010)
- End Function
- Private Shared Function L1011010100111010() As MD5CryptoServiceProvider
- Return New MD5CryptoServiceProvider()
- End Function
- Private Shared Function L101101011101(ByVal L10001011010101 As TripleDESCryptoServiceProvider) As ICryptoTransform
- Return L10001011010101.CreateEncryptor()
- End Function
- Private Shared Function L10111010101010(ByVal L1010101010 As String) As Byte()
- Return Encoding.UTF8.GetBytes(L1010101010)
- End Function
- Private Shared Function L101110101011(ByVal L10001011010101 As TripleDESCryptoServiceProvider) As ICryptoTransform
- Return L10001011010101.CreateDecryptor()
- End Function
- Private Shared Function L1011101110(ByVal L10001010 As Byte()) As String
- Return Convert.ToBase64String(L10001010, 0, CInt(L10001010.Length))
- End Function
- Private Shared Function L1101101011101() As CipherMode
- Return CipherMode.ECB
- End Function
- Public Shared Sub L11100101010(ByVal L111001 As String)
- MessageBox.Show(L111001)
- End Sub
- Public Shared Function L1110100010(ByVal L10101010101 As String, ByVal L110111010 As String) As String
- Dim numArray As Byte() = L10101010101010101.L10111010101010(L10101010101)
- Dim mD5CryptoServiceProvider As System.Security.Cryptography.MD5CryptoServiceProvider = L10101010101010101.L1011010100111010()
- Dim numArray1 As Byte() = mD5CryptoServiceProvider.ComputeHash(L10101010101010101.L10111010101010(L110111010))
- Dim tripleDESCryptoServiceProvider As System.Security.Cryptography.TripleDESCryptoServiceProvider = L10101010101010101.L10001010011101()
- tripleDESCryptoServiceProvider.Key = numArray1
- tripleDESCryptoServiceProvider.Mode = L10101010101010101.L1101101011101()
- tripleDESCryptoServiceProvider.Padding = L10101010101010101.L011101001010()
- Dim numArray2 As Byte() = L10101010101010101.L1010101111010(L10101010101010101.L101101011101(tripleDESCryptoServiceProvider), numArray)
- tripleDESCryptoServiceProvider.Clear()
- Return L10101010101010101.L1011101110(numArray2)
- End Function
- Public Shared Function L1110110101(ByVal L110101010 As String, ByVal L1110110101 As String) As String
- Dim numArray As Byte() = L10101010101010101.L10110101001(L110101010)
- Dim mD5CryptoServiceProvider As System.Security.Cryptography.MD5CryptoServiceProvider = L10101010101010101.L1011010100111010()
- Dim numArray1 As Byte() = mD5CryptoServiceProvider.ComputeHash(L10101010101010101.L10111010101010(L1110110101))
- Dim tripleDESCryptoServiceProvider As System.Security.Cryptography.TripleDESCryptoServiceProvider = L10101010101010101.L10001010011101()
- tripleDESCryptoServiceProvider.Key = numArray1
- tripleDESCryptoServiceProvider.Mode = L10101010101010101.L1101101011101()
- tripleDESCryptoServiceProvider.Padding = L10101010101010101.L011101001010()
- Dim numArray2 As Byte() = L10101010101010101.L1010101111010(L10101010101010101.L101110101011(tripleDESCryptoServiceProvider), numArray)
- tripleDESCryptoServiceProvider.Clear()
- Return L10101010101010101.L111011010101(numArray2)
- End Function
- Private Shared Function L111011010101(ByVal L10001010 As Byte()) As String
- Return Encoding.UTF8.GetString(L10001010)
- End Function
- Public Structure L11101010101
- Public Shared L11011010011 As String
- Public Shared L11101101001 As String
- Public Shared L10101011010 As String
- Public Shared L11010010010 As String
- Public Shared L11101001010 As String
- Public Shared l11010111010 As String
- Shared Sub New()
- L10101010101010101.L11101010101.L11011010011 = "XUX3wTUFiqmwYxTKBH3OGh3QWvzSt6wb"
- L10101010101010101.L11101010101.L11101101001 = "ZhL3LfqUR5"
- L10101010101010101.L11101010101.L10101011010 = "BQX3LsmMzYsuEzFVqkqpnzjff7CW7yrl4+/O0n+eoD0="
- L10101010101010101.L11101010101.L11010010010 = "umxQbahZrT"
- L10101010101010101.L11101010101.L11101001010 = "JQhgssTPXTfUGQ1J4Nbqsv8BsCbOZ71g3Edb/88xbE0="
- L10101010101010101.L11101010101.l11010111010 = "poGBEoRxEv"
- End Sub
- End Structure
- End Class
- End Namespace
Advertisement
Add Comment
Please, Sign In to add comment