diff options
Diffstat (limited to 'ShiftOS/ShiftOS Save File Converter.vb')
| -rw-r--r-- | ShiftOS/ShiftOS Save File Converter.vb | 215 |
1 files changed, 215 insertions, 0 deletions
diff --git a/ShiftOS/ShiftOS Save File Converter.vb b/ShiftOS/ShiftOS Save File Converter.vb new file mode 100644 index 0000000..585e408 --- /dev/null +++ b/ShiftOS/ShiftOS Save File Converter.vb @@ -0,0 +1,215 @@ +Public Class ShiftOS_Save_File_Converter
+ Dim loadlines(2000) As String
+
+ 'Required for encryption of save files
+ Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer
+ Public Const sSecretKey As String = "Password"
+
+ Private Sub btnconvert_Click(sender As Object, e As EventArgs) Handles btnconvert.Click
+ loadold()
+ addlines()
+ convertfile()
+ MessageBox.Show("Your save file is now compatible with ShiftOS 0.0.7. Press ok then open the ShiftOS application again to start playing ShiftOS 0.0.7.", "Conversion Complete", MessageBoxButtons.OK, MessageBoxIcon.Information)
+ Me.Close()
+ HijackScreen.Close()
+ End Sub
+
+ Private Sub loadold()
+ File_Crypt.DecryptFile("C:/ShiftOS/Shiftum42/SKernal.sft", "C:\ShiftOS\Shiftum42\Drivers\HDD.dri", sSecretKey)
+ loadlines = IO.File.ReadAllLines("C:\ShiftOS\Shiftum42\Drivers\HDD.dri")
+ End Sub
+
+ Private Sub addlines()
+ ReDim Preserve loadlines(2000)
+ loadlines(308) = 105
+ loadlines(309) = 69
+ loadlines(310) = 4
+ loadlines(311) = 4
+ loadlines(312) = 2
+ loadlines(313) = 2
+ loadlines(314) = 10
+ loadlines(315) = 10
+ loadlines(316) = 10
+ loadlines(317) = 10
+ loadlines(318) = 10
+ loadlines(319) = 10
+ loadlines(320) = 10
+ loadlines(321) = 10
+ loadlines(322) = 10
+ loadlines(323) = 10
+ loadlines(324) = 10
+ loadlines(325) = 10
+ loadlines(326) = 10
+ loadlines(327) = 10
+ loadlines(328) = 10
+ loadlines(329) = 10
+ loadlines(330) = 10
+ loadlines(331) = 10
+ loadlines(332) = 10
+ loadlines(333) = 10
+ loadlines(334) = 10
+ loadlines(335) = 10
+ loadlines(336) = 10
+ loadlines(337) = 10
+ loadlines(338) = 10
+ loadlines(339) = 10
+ loadlines(340) = 10
+ loadlines(341) = 10
+ loadlines(342) = 10
+ loadlines(343) = 10
+ loadlines(344) = 10
+ loadlines(345) = 10
+ loadlines(346) = 10
+ loadlines(347) = 10
+ loadlines(348) = 10
+ loadlines(349) = 10
+ loadlines(350) = 10
+ loadlines(351) = 10
+ loadlines(352) = 10
+ loadlines(353) = 10
+ loadlines(354) = 10
+ loadlines(355) = 10
+ loadlines(356) = -16777216
+ loadlines(357) = -16777216
+ loadlines(358) = -16777216
+ loadlines(359) = -16777216
+ loadlines(360) = -16777216
+ loadlines(361) = -16777216
+ loadlines(362) = -16777216
+ loadlines(363) = -16777216
+ loadlines(364) = -16777216
+ loadlines(365) = -16777216
+ loadlines(366) = -16777216
+ loadlines(367) = -16777216
+ loadlines(368) = -16777216
+ loadlines(369) = -16777216
+ loadlines(370) = -16777216
+ loadlines(371) = -16777216
+ loadlines(372) = -16777216
+ loadlines(373) = -16777216
+ loadlines(374) = -16777216
+ loadlines(375) = -16777216
+ loadlines(376) = -16777216
+ loadlines(377) = -16777216
+ loadlines(378) = -16777216
+ loadlines(379) = -16777216
+ loadlines(380) = -16777216
+ loadlines(381) = -16777216
+ loadlines(382) = -16777216
+ loadlines(383) = -16777216
+ loadlines(384) = -16777216
+ loadlines(385) = -16777216
+ loadlines(386) = -16777216
+ loadlines(387) = -16777216
+ loadlines(388) = -16777216
+ loadlines(389) = -16777216
+ loadlines(390) = -16777216
+ loadlines(391) = -16777216
+ loadlines(392) = -16777216
+ loadlines(393) = -16777216
+ loadlines(394) = -16777216
+ loadlines(395) = -16777216
+ loadlines(396) = -16777216
+ loadlines(397) = -16777216
+ loadlines(398) = -16777216
+ loadlines(399) = -16777216
+ loadlines(400) = -16777216
+ loadlines(401) = -16777216
+ loadlines(402) = -16777216
+ loadlines(403) = -16777216
+ loadlines(404) = -16777216
+ loadlines(405) = -16777216
+ loadlines(406) = -16777216
+ loadlines(407) = -16777216
+ loadlines(408) = -16777216
+ loadlines(409) = -16777216
+ loadlines(410) = -16777216
+ loadlines(411) = -16777216
+ loadlines(412) = -16777216
+ loadlines(413) = -16777216
+ loadlines(414) = -16777216
+ loadlines(415) = -16777216
+ loadlines(416) = -16777216
+ loadlines(417) = -16777216
+ loadlines(418) = -16777216
+ loadlines(419) = -16777216
+ loadlines(420) = -16777216
+ loadlines(421) = -16777216
+ loadlines(422) = -16777216
+ loadlines(423) = -16777216
+ loadlines(424) = -16777216
+ loadlines(425) = -16777216
+ loadlines(426) = -16777216
+ loadlines(427) = -16777216
+ loadlines(428) = -16777216
+ loadlines(429) = -16777216
+ loadlines(430) = -16777216
+ loadlines(431) = -16777216
+ loadlines(432) = -16777216
+ loadlines(433) = -16777216
+ loadlines(434) = -16777216
+ loadlines(435) = -16777216
+ loadlines(436) = -16777216
+ loadlines(437) = -16777216
+ loadlines(438) = -16777216
+ loadlines(439) = -16777216
+ loadlines(440) = -16777216
+ loadlines(441) = -16777216
+ loadlines(442) = -16777216
+ loadlines(443) = -16777216
+ loadlines(444) = -16777216
+ loadlines(445) = -16777216
+ loadlines(446) = -16777216
+ loadlines(447) = -16777216
+ loadlines(448) = -16777216
+ loadlines(449) = -16777216
+ loadlines(450) = -16777216
+ loadlines(451) = -16777216
+ loadlines(452) = -16777216
+ loadlines(453) = -16777216
+ loadlines(454) = -16777216
+ loadlines(455) = -16777216
+ loadlines(456) = -16777216
+ loadlines(457) = -16777216
+ loadlines(458) = -16777216
+ loadlines(459) = -16777216
+ loadlines(460) = -16777216
+ loadlines(461) = -16777216
+ loadlines(462) = -16777216
+ loadlines(463) = -16777216
+ loadlines(464) = -16777216
+ loadlines(465) = -16777216
+ loadlines(466) = -16777216
+ loadlines(467) = -16777216
+ loadlines(468) = -16777216
+ loadlines(469) = -16777216
+ loadlines(470) = -16777216
+ loadlines(471) = -16777216
+ loadlines(472) = -16777216
+ loadlines(473) = -16777216
+ loadlines(474) = -16777216
+ loadlines(475) = -16777216
+ loadlines(476) = -16777216
+ loadlines(477) = -16777216
+ loadlines(478) = -16777216
+ loadlines(479) = -16777216
+ loadlines(480) = -16777216
+ loadlines(481) = -16777216
+ loadlines(482) = -16777216
+ loadlines(483) = -16777216
+ loadlines(484) = 10
+ End Sub
+
+ Private Sub convertfile()
+ IO.File.WriteAllLines("C:\ShiftOS\Shiftum42\Drivers\HDD.dri", loadlines)
+ File_Crypt.EncryptFile("C:\ShiftOS\Shiftum42\Drivers\HDD.dri", "C:/ShiftOS/Shiftum42/SKernal.sft", sSecretKey)
+ Dim objWriter As New System.IO.StreamWriter("C:/ShiftOS/Shiftum42/HDAccess.sft", False)
+ objWriter.Write("0.0.7")
+ objWriter.Close()
+ End Sub
+
+ Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
+ Me.Close()
+ HijackScreen.Close()
+ End Sub
+End Class
\ No newline at end of file |
