BananeMan

Untitled

Dec 10th, 2016
113
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.40 KB | None | 0 0
  1. Imports System
  2. Imports System.Security.Cryptography
  3. Imports System.Text
  4. Imports System.Windows.Forms
  5.  
  6. Namespace L1010
  7. Public Class L10101010101010101
  8. Public Sub New()
  9. MyBase.New()
  10. End Sub
  11.  
  12. Private Shared Function L011101001010() As PaddingMode
  13. Return PaddingMode.PKCS7
  14. End Function
  15.  
  16. Private Shared Function L10001010011101() As TripleDESCryptoServiceProvider
  17. Return New TripleDESCryptoServiceProvider()
  18. End Function
  19.  
  20. Private Shared Function L1010101111010(ByVal L1010101110101 As ICryptoTransform, ByVal L1010101010 As Byte()) As Byte()
  21. Return L1010101110101.TransformFinalBlock(L1010101010, 0, CInt(L1010101010.Length))
  22. End Function
  23.  
  24. Private Shared Function L10110101001(ByVal L10001010 As String) As Byte()
  25. Return Convert.FromBase64String(L10001010)
  26. End Function
  27.  
  28. Private Shared Function L1011010100111010() As MD5CryptoServiceProvider
  29. Return New MD5CryptoServiceProvider()
  30. End Function
  31.  
  32. Private Shared Function L101101011101(ByVal L10001011010101 As TripleDESCryptoServiceProvider) As ICryptoTransform
  33. Return L10001011010101.CreateEncryptor()
  34. End Function
  35.  
  36. Private Shared Function L10111010101010(ByVal L1010101010 As String) As Byte()
  37. Return Encoding.UTF8.GetBytes(L1010101010)
  38. End Function
  39.  
  40. Private Shared Function L101110101011(ByVal L10001011010101 As TripleDESCryptoServiceProvider) As ICryptoTransform
  41. Return L10001011010101.CreateDecryptor()
  42. End Function
  43.  
  44. Private Shared Function L1011101110(ByVal L10001010 As Byte()) As String
  45. Return Convert.ToBase64String(L10001010, 0, CInt(L10001010.Length))
  46. End Function
  47.  
  48. Private Shared Function L1101101011101() As CipherMode
  49. Return CipherMode.ECB
  50. End Function
  51.  
  52. Public Shared Sub L11100101010(ByVal L111001 As String)
  53. MessageBox.Show(L111001)
  54. End Sub
  55.  
  56. Public Shared Function L1110100010(ByVal L10101010101 As String, ByVal L110111010 As String) As String
  57. Dim numArray As Byte() = L10101010101010101.L10111010101010(L10101010101)
  58. Dim mD5CryptoServiceProvider As System.Security.Cryptography.MD5CryptoServiceProvider = L10101010101010101.L1011010100111010()
  59. Dim numArray1 As Byte() = mD5CryptoServiceProvider.ComputeHash(L10101010101010101.L10111010101010(L110111010))
  60. Dim tripleDESCryptoServiceProvider As System.Security.Cryptography.TripleDESCryptoServiceProvider = L10101010101010101.L10001010011101()
  61. tripleDESCryptoServiceProvider.Key = numArray1
  62. tripleDESCryptoServiceProvider.Mode = L10101010101010101.L1101101011101()
  63. tripleDESCryptoServiceProvider.Padding = L10101010101010101.L011101001010()
  64. Dim numArray2 As Byte() = L10101010101010101.L1010101111010(L10101010101010101.L101101011101(tripleDESCryptoServiceProvider), numArray)
  65. tripleDESCryptoServiceProvider.Clear()
  66. Return L10101010101010101.L1011101110(numArray2)
  67. End Function
  68.  
  69. Public Shared Function L1110110101(ByVal L110101010 As String, ByVal L1110110101 As String) As String
  70. Dim numArray As Byte() = L10101010101010101.L10110101001(L110101010)
  71. Dim mD5CryptoServiceProvider As System.Security.Cryptography.MD5CryptoServiceProvider = L10101010101010101.L1011010100111010()
  72. Dim numArray1 As Byte() = mD5CryptoServiceProvider.ComputeHash(L10101010101010101.L10111010101010(L1110110101))
  73. Dim tripleDESCryptoServiceProvider As System.Security.Cryptography.TripleDESCryptoServiceProvider = L10101010101010101.L10001010011101()
  74. tripleDESCryptoServiceProvider.Key = numArray1
  75. tripleDESCryptoServiceProvider.Mode = L10101010101010101.L1101101011101()
  76. tripleDESCryptoServiceProvider.Padding = L10101010101010101.L011101001010()
  77. Dim numArray2 As Byte() = L10101010101010101.L1010101111010(L10101010101010101.L101110101011(tripleDESCryptoServiceProvider), numArray)
  78. tripleDESCryptoServiceProvider.Clear()
  79. Return L10101010101010101.L111011010101(numArray2)
  80. End Function
  81.  
  82. Private Shared Function L111011010101(ByVal L10001010 As Byte()) As String
  83. Return Encoding.UTF8.GetString(L10001010)
  84. End Function
  85.  
  86. Public Structure L11101010101
  87. Public Shared L11011010011 As String
  88.  
  89. Public Shared L11101101001 As String
  90.  
  91. Public Shared L10101011010 As String
  92.  
  93. Public Shared L11010010010 As String
  94.  
  95. Public Shared L11101001010 As String
  96.  
  97. Public Shared l11010111010 As String
  98.  
  99. Shared Sub New()
  100. L10101010101010101.L11101010101.L11011010011 = "XUX3wTUFiqmwYxTKBH3OGh3QWvzSt6wb"
  101. L10101010101010101.L11101010101.L11101101001 = "ZhL3LfqUR5"
  102. L10101010101010101.L11101010101.L10101011010 = "BQX3LsmMzYsuEzFVqkqpnzjff7CW7yrl4+/O0n+eoD0="
  103. L10101010101010101.L11101010101.L11010010010 = "umxQbahZrT"
  104. L10101010101010101.L11101010101.L11101001010 = "JQhgssTPXTfUGQ1J4Nbqsv8BsCbOZ71g3Edb/88xbE0="
  105. L10101010101010101.L11101010101.l11010111010 = "poGBEoRxEv"
  106. End Sub
  107. End Structure
  108. End Class
  109. End Namespace
Advertisement
Add Comment
Please, Sign In to add comment