VERSION 5.00
Begin VB.Form FrmMain
   Appearance      =   0  'Flat
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "CrackMaster2"
   ClientHeight    =   8670
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11895
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   8670
   ScaleWidth      =   11895
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer2
      Enabled         =   0   'False
      Interval        =   500
      Left            =   720
      Top             =   1560
   End
   Begin VB.Timer Timer1
      Interval        =   300
      Left            =   240
      Top             =   1560
   End
   Begin VB.TextBox Text2
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   285
      Left            =   360
      TabIndex        =   0
      Top             =   2280
      Width           =   3855
   End
   Begin VB.TextBox Text1
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0FFC0&
      Height          =   5535
      Left            =   360
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   2880
      Width           =   6615
   End
   Begin VB.Label Label8
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FF80&
      Height          =   255
      Left            =   4440
      TabIndex        =   9
      Top             =   2280
      Width           =   2535
   End
   Begin VB.Line Line4
      BorderColor     =   &H00FF8080&
      BorderWidth     =   5
      X1              =   11880
      X2              =   11880
      Y1              =   0
      Y2              =   8640
   End
   Begin VB.Line Line6
      BorderColor     =   &H00C0FFC0&
      X1              =   11520
      X2              =   11520
      Y1              =   720
      Y2              =   1440
   End
   Begin VB.Image Image1
      Height          =   780
      Left            =   9120
      Picture         =   "FrmMain.frx":0442
      Top             =   480
      Width           =   2250
   End
   Begin VB.Shape Shape8
      FillStyle       =   0  'Solid
      Height          =   255
      Left            =   9000
      Top             =   1080
      Width           =   4455
   End
   Begin VB.Line Line5
      BorderColor     =   &H00C0FFC0&
      X1              =   240
      X2              =   240
      Y1              =   720
      Y2              =   1440
   End
   Begin VB.Line Line3
      BorderColor     =   &H00FF8080&
      BorderWidth     =   5
      X1              =   0
      X2              =   0
      Y1              =   0
      Y2              =   8640
   End
   Begin VB.Shape Shape7
      FillStyle       =   0  'Solid
      Height          =   375
      Left            =   -960
      Top             =   960
      Width           =   1335
   End
   Begin VB.Label Label7
      BackStyle       =   0  'Transparent
      Caption         =   "CrackMaster 2. Program Written by: Joseph M. Gallos. Malilipot, Albay Philippines. Copyright 2004. All Rights Reserved."
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FF80&
      Height          =   255
      Left            =   8760
      TabIndex        =   8
      Top             =   1080
      Width           =   8655
   End
   Begin VB.Label Label6
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Encryption/Decryption System"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   495
      Left            =   600
      TabIndex        =   7
      Top             =   720
      Width           =   5055
   End
   Begin VB.Label Label5
      BackStyle       =   0  'Transparent
      Caption         =   "Decryption Process:"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FF80&
      Height          =   255
      Left            =   7320
      TabIndex        =   6
      Top             =   5520
      Width           =   2175
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Encryption Code:"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   255
      Left            =   7320
      TabIndex        =   5
      Top             =   2400
      Width           =   2175
   End
   Begin VB.Shape Shape3
      BorderColor     =   &H00C00000&
      Height          =   2295
      Left            =   7320
      Top             =   5880
      Width           =   4095
   End
   Begin VB.Shape Shape2
      BorderColor     =   &H00C00000&
      Height          =   2295
      Left            =   7320
      Top             =   2760
      Width           =   4095
   End
   Begin VB.Shape Shape6
      BorderColor     =   &H00C0FFC0&
      Height          =   6375
      Left            =   7200
      Top             =   2160
      Width           =   4335
   End
   Begin VB.Shape Shape5
      BorderColor     =   &H00C0FFC0&
      Height          =   1215
      Left            =   240
      Top             =   240
      Width           =   11295
   End
   Begin VB.Label Label4
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "J-Gallos' CrackMaster Version 2.0"
      BeginProperty Font
         Name            =   "Matisse ITC"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FF80&
      Height          =   495
      Left            =   360
      TabIndex        =   4
      Top             =   360
      Width           =   5535
   End
   Begin VB.Line Line2
      BorderColor     =   &H00FF8080&
      BorderWidth     =   5
      X1              =   0
      X2              =   11880
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Line Line1
      BorderColor     =   &H00FF8080&
      BorderWidth     =   3
      X1              =   -120
      X2              =   11880
      Y1              =   8640
      Y2              =   8640
   End
   Begin VB.Shape Shape4
      BorderColor     =   &H00C0FFC0&
      Height          =   5775
      Left            =   240
      Top             =   2760
      Width           =   6855
   End
   Begin VB.Label Label2
      BackStyle       =   0  'Transparent
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FF80&
      Height          =   2055
      Left            =   7440
      TabIndex        =   3
      Top             =   6000
      Width           =   3855
   End
   Begin VB.Label Label3
      BackStyle       =   0  'Transparent
      BeginProperty Font
         Name            =   "Symbol"
         Size            =   9
         Charset         =   2
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   2055
      Left            =   7440
      TabIndex        =   2
      Top             =   2880
      Width           =   3855
   End
   Begin VB.Shape Shape1
      BorderColor     =   &H00C0FFC0&
      Height          =   495
      Left            =   240
      Top             =   2160
      Width           =   4095
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim COMMANDV As String
Dim ClipContent As String
Dim EncFLAG As Integer
Dim F3Flag As Boolean
Dim CLIST As String
Dim SPACES As String
Dim HELPFILE As String
Dim DisplayFLAG As Boolean

Private Sub LoadCode()
ClipContent = Clipboard.GetText
If ClipContent = "" Then
    Label8.Caption = "No Clipboard Data"
    Exit Sub
End If
If Text1.Text = "" Then
    Text1.Text = ClipContent
    Label8.Caption = "Data Loaded"
Else
    Text1.Text = Text1.Text + vbCrLf + ClipContent
    Label8.Caption = "Data Added"
End If
End Sub

Private Sub Decrypt()
Dim i
Dim s
Dim TS
Dim MYDecString

If EncFLAG = 2 Then
    Label8.Caption = "Code Deciphered"
    Exit Sub
End If

Text1.SelStart = 0
Label1.Caption = "Encryption Code:"
Label5.Caption = "Decrypting..."
For i = 1 To Len(Text1.Text)
    TS = DoEvents()
    s = Chr(Asc(Mid(Text1.Text, i, 1)) + i Mod 2)
    If s = Chr(19) Then s = Chr(34)
    If s = Chr(28) Then s = vbCr
    If s = Chr(29) Then
        s = vbLf
        Label2.Caption = ""
        Label3.Caption = ""
    End If
    If Len(Label2.Caption) >= 260 Then
        Label2.Caption = ""
        Label3.Caption = ""
    End If
    Label2.Caption = Label2.Caption + s
    Label3.Caption = Label3.Caption + Mid(Text1.Text, i, 1)
    Text1.SelStart = i
    MYDecString = MYDecString + s
Next

'Text1.ForeColor = &HC0FFC0
Text1.Text = MYDecString
Label1.Caption = "End of File."
Label5.Caption = "Decryption Complete"
Label8.Caption = "Decryption Complete"
Label2.Caption = ""
Label3.Caption = ""
EncFLAG = 2
End Sub

Private Sub ClipCopy()
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub

Private Sub Encrypt()
Dim i
Dim s
Dim TS
Dim MYEncString

If EncFLAG = 1 Then
    Label8.Caption = "Code Encrypted"
    Exit Sub
End If

Text1.SelStart = 0
Label1.Caption = "Encrypting..."
Label5.Caption = "Decrypted Code:"
For i = 1 To Len(Text1.Text)
    TS = DoEvents()
    s = Chr(Asc(Mid(Text1.Text, i, 1)) - i Mod 2)
    If s = Chr(34) Then s = Chr(19)
    If s = vbCr Then s = Chr(28)
    If s = vbLf Then
        s = Chr(29)
        Label2.Caption = ""
        Label3.Caption = ""
    End If
    If Len(Label2.Caption) >= 260 Then
        Label2.Caption = ""
        Label3.Caption = ""
    End If
    Label3.Caption = Label3.Caption + s
    Label2.Caption = Label2.Caption + Mid(Text1.Text, i, 1)
    Text1.SelStart = i
 MYEncString = MYEncString + s
 Next
'Text1.ForeColor = &HFFC0C0      '&HFF8080
Text1.Text = MYEncString
Label1.Caption = "Encryption Complete"
Label5.Caption = "End of File."
Label8.Caption = "Encryption Complete"
Label2.Caption = ""
Label3.Caption = ""
EncFLAG = 1
End Sub

Private Sub Termin()
Label8.Caption = "Bye!"
Timer2.Enabled = True
End Sub

Private Sub Command5_Click()
Text1.SetFocus
End Sub

Private Sub Form_Load()
    EncFLAG = 0
    SPACES = "      -      "
    Label8.Caption = "System Ready"
   
    HELPFILE = "         This Program is an Encryption/Decryption Program. I Wrote This Program " _
    + "Originally To Decipher The Hedda Marie Tolentino Virus Script." + vbCrLf _
    + "         There are Two Ways to Load Data to the Program. First, You Can Write " _
    + "Your Message You Want to Encrypt to This Textbox. Just Click This Textbox and " _
    + "Enter The Text You Want To Encrypt And Enter <Encrypt Text> to the Command " _
    + "Prompt To Start The Encryption Process. Second, You Can Copy The Message Or Data " _
    + "To The Clipboard and Enter <Load Cypher> to The Command Prompt or Right Click This " _
    + "Textbox And Choose Paste From the DropDown List." + vbCrLf _
    + vbCrLf + "                                                                          " _
    + "            - Joseph M. Gallos" + vbCrLf _
    + "                                                                                   " _
    + "     Freelance Programmer" + vbCrLf + "                                        " _
    + "                                                Contact No.: (63) 927-656-5899" + vbCrLf _
    + "                                                                                     " _
    + "   Email: [[Email Removed]]"
   
   
    CLIST = "                               COMMANDS LIST" + vbCrLf + vbCrLf _
    + "Load Cypher   " + SPACES + "Load Data From The Clipboard" + vbCrLf _
    + "Encrypt Text    " + SPACES + "Convert the Data to Cipher Text" + vbCrLf _
    + "Decipher Code" + SPACES + "Convert Cipher to Readable Text" + vbCrLf _
    + "Clear                 " + SPACES + "Clear Display and Interface" + vbCrLf _
    + "Minimize          " + SPACES + "Minimize The Program" + vbCrLf _
    + "End                    " + SPACES + "Terminate Program" + vbCrLf _
    + "Version            " + SPACES + "Display Program Information" + vbCrLf _
    + "Help                   " + SPACES + "Display Help File" + vbCrLf _
    + "Command        " + SPACES + "Display The Commands List" + vbCrLf _
    + "Shift + X            " + SPACES + "Previous Command Entered"
   
    Text1.Text = CLIST + vbCrLf + vbCrLf + HELPFILE
    DisplayFLAG = True
End Sub

Private Sub Text1_Click()
If DisplayFLAG = True Then
    Text1.Text = ""
    DisplayFLAG = False
End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Label8.Caption = ""
If DisplayFLAG = True Then
    Text1.Text = ""
    DisplayFLAG = False
End If
If KeyCode = 13 Then

    COMMANDV = LCase(Text2.Text)
    Text2.Text = Trim(Text2.Text)
   
    If COMMANDV = "load cypher" Then
        LoadCode
    ElseIf COMMANDV = "decipher code" Then
        Decrypt
    ElseIf COMMANDV = "encrypt text" Then
        Encrypt
    ElseIf COMMANDV = "copy clip" Then
        ClipCopy
        Label8.Caption = "Copied"
    ElseIf COMMANDV = "end" Then
        Termin
    ElseIf COMMANDV = "clear" Then
        Text1.ForeColor = &HC0FFC0
        Text1.Text = ""
        Label2.Caption = ""
        Label3.Caption = ""
        Label8.Caption = "Variables Cleared"
        EncFLAG = 0
    ElseIf COMMANDV = "version" Then
        Text1.Text = "Program Name: Crack Master2" + vbCrLf + "Program Type: Cypher System" + vbCrLf + "Version: 2" + vbCrLf + "Author: Joseph M. Gallos" + vbCrLf + "Note: Joseph M. Gallos is the Best Filipino Hacker as of Today!" + vbCrLf + "You Are So Lucky to Use One of My Programs. Hehehe!"
        Label8.Caption = "Hehehe"
    ElseIf COMMANDV = "command" Then
        Text1.Text = ""
        Text1.Text = CLIST
        DisplayFLAG = True
    ElseIf COMMANDV = "help" Then
        Text1.Text = ""
        Text1.Text = HELPFILE
        DisplayFLAG = True
    ElseIf COMMANDV = "minimize" Then
        FrmMain.WindowState = 1
    Else
        Text2.Text = ""
        Label8.Caption = "Unrecognized Command"
    End If

End If
If Shift = 1 And KeyCode = 88 Then
    F3Flag = True
Else
    F3Flag = False
End If
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    Text2.Text = ""
End If

If F3Flag = True Then
    Text2.Text = COMMANDV
    Text2.SelStart = Len(COMMANDV)
End If
End Sub

Private Sub Timer1_Timer()
Label7.Left = Label7.Left - 200
If Label7.Left <= -8040 Then
    Label7.Left = 8760
End If
End Sub

Private Sub Timer2_Timer()
End
End Sub