38583.zip - New Folder (3)\FrmMainBackUp.frm

Current area: HOME ->
Zip File view

CrackMaster2 v2

This page allows you to view the contents of a file contained inside a ZIP archive available at Programmer's Heaven. This means you can view the code and find what you need from it without having to download the ZIP file first. If the file contains source code for a language we recognize, we have syntax highlighted it.

Filename displayed: New Folder (3)\FrmMainBackUp.frm
Found in file: 38583.zip

VERSION 5.00
Begin VB.Form FrmMain
Appearance = 0 'Flat
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Cypher System"
ClientHeight = 8670
ClientLeft = 0
ClientTop = 0
ClientWidth = 11895
Icon = "FrmMainBackUp.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 = 5175
Left = 360
MultiLine = -1 'True
TabIndex = 1
Top = 3000
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 = "FrmMainBackUp.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 = &H00FF8080&
Height = 255
Left = 7320
TabIndex = 6
Top = 5400
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 = 2415
Left = 7320
Top = 5760
Width = 4095
End
Begin VB.Shape Shape2
BorderColor = &H00C00000&
Height = 2415
Left = 7320
Top = 2760
Width = 4095
End
Begin VB.Shape Shape6
BorderColor = &H00C0FFC0&
Height = 6135
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 = 5415
Left = 240
Top = 2880
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 = 2175
Left = 7440
TabIndex = 3
Top = 5880
Width = 3855
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Wingdings"
Size = 8.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FF80&
Height = 2175
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

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
Label2.Caption = Label2.Caption + s
Label3.Caption = Label3.Caption + Mid(Text1.Text, i, 1)
Text1.SelStart = i
MYDecString = MYDecString + s
Next

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
Label3.Caption = Label3.Caption + s
Label2.Caption = Label2.Caption + Mid(Text1.Text, i, 1)
Text1.SelStart = i
MYEncString = MYEncString + s
Next
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
Label8.Caption = "System Ready"
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Label8.Caption = ""
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.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"
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

FontCreator Home Edition 5.6 This professional font editor allows you to create and edit TrueType and OpenType fonts. It has the powerful drawing tools that typographers and graphic designers require, and an intuitive interface ...	Elvis is a clone of VI/EX, the standard UNIX editor	Fire (Pascal) An original variation of the well-known fire effect.

Zip File view

CrackMaster2 v2

Sponsored links