home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / LVB / MCSEC205.ZIP / _GZIP.FRM < prev    next >
Text File  |  1998-05-02  |  5KB  |  164 lines
  1. VERSION 4.00
  2. Begin VB.Form frmGZip 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "GZip"
  5.    ClientHeight    =   4605
  6.    ClientLeft      =   1425
  7.    ClientTop       =   2250
  8.    ClientWidth     =   6675
  9.    Height          =   4950
  10.    Left            =   1395
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   4605
  15.    ScaleWidth      =   6675
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1935
  18.    Width           =   6735
  19.    Begin VB.TextBox Text2 
  20.       Height          =   285
  21.       Left            =   1890
  22.       TabIndex        =   5
  23.       Top             =   3870
  24.       Visible         =   0   'False
  25.       Width           =   4695
  26.    End
  27.    Begin VB.TextBox Text1 
  28.       Height          =   285
  29.       Left            =   1890
  30.       TabIndex        =   3
  31.       Top             =   3510
  32.       Width           =   4695
  33.    End
  34.    Begin VB.ListBox List1 
  35.       Height          =   2955
  36.       Left            =   90
  37.       TabIndex        =   1
  38.       Top             =   360
  39.       Width           =   6495
  40.    End
  41.    Begin VB.Label Label3 
  42.       Caption         =   "Encryption is"
  43.       Height          =   195
  44.       Left            =   90
  45.       TabIndex        =   6
  46.       Top             =   4260
  47.       Width           =   1725
  48.    End
  49.    Begin VB.Label Label4 
  50.       Appearance      =   0  'Flat
  51.       BackColor       =   &H80000005&
  52.       BorderStyle     =   1  'Fixed Single
  53.       ForeColor       =   &H80000008&
  54.       Height          =   285
  55.       Left            =   1890
  56.       TabIndex        =   7
  57.       Top             =   4230
  58.       Width           =   4695
  59.    End
  60.    Begin VB.Label Label5 
  61.       Caption         =   "Enter a &key"
  62.       Height          =   195
  63.       Left            =   90
  64.       TabIndex        =   4
  65.       Top             =   3900
  66.       Visible         =   0   'False
  67.       Width           =   1725
  68.    End
  69.    Begin VB.Label Label2 
  70.       Caption         =   "Enter a &string "
  71.       Height          =   195
  72.       Left            =   90
  73.       TabIndex        =   2
  74.       Top             =   3540
  75.       Width           =   1725
  76.    End
  77.    Begin VB.Line Line1 
  78.       BorderColor     =   &H00FFFFFF&
  79.       BorderStyle     =   6  'Inside Solid
  80.       BorderWidth     =   2
  81.       X1              =   0
  82.       X2              =   6660
  83.       Y1              =   3420
  84.       Y2              =   3420
  85.    End
  86.    Begin VB.Label Label1 
  87.       Caption         =   "Encryption Samples"
  88.       Height          =   195
  89.       Left            =   90
  90.       TabIndex        =   0
  91.       Top             =   90
  92.       Width           =   6495
  93.    End
  94. End
  95. Attribute VB_Name = "frmGZip"
  96. Attribute VB_Creatable = False
  97. Attribute VB_Exposed = False
  98. Option Explicit
  99.  
  100. Private Sub Form_Load()
  101.  
  102.    Dim i          As Integer
  103.    Dim Tmp1       As String
  104.    Dim Tmp2       As String
  105.    Dim TmpE       As String
  106.    Dim TmpD       As String
  107.    Dim Data       As String
  108.    Dim Value      As String
  109.    
  110.    TmpE = "GZIPstringCompress of '"
  111.    Tmp2 = "' is '"
  112.    TmpD = "GZIPstringExpand of '"
  113.    
  114.    List1.Clear
  115.    
  116.    Data = "ABCDEFGHIJKLMNOP"
  117.    List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
  118.    Data = "ABCDEFGHIJKLMNO"
  119.    List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
  120.    Data = "ABCDEFGHIJKLMN"
  121.    List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
  122.    Data = "ABCDEFGHIJKLM"
  123.    List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
  124.    Data = "ABCDEFGHIJKL"
  125.    List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
  126.    Data = "ABCDEFGHIJK"
  127.    List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
  128.    Data = "ABCDEFGHIJ"
  129.    List1.AddItem TmpE + Data + Tmp2 + RemoveNull(cGZIPStringCompress(Data)) + "'"
  130.  
  131.    List1.AddItem ""
  132.  
  133.    Data = cGZIPStringCompress("ABCDEFGHIJKLMNOP")
  134.    List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
  135.    Data = cGZIPStringCompress("ABCDEFGHIJKLMNO")
  136.    List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
  137.    Data = cGZIPStringCompress("ABCDEFGHIJKLMN")
  138.    List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
  139.    Data = cGZIPStringCompress("ABCDEFGHIJKLM")
  140.    List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
  141.    Data = cGZIPStringCompress("ABCDEFGHIJKL")
  142.    List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
  143.    Data = cGZIPStringCompress("ABCDEFGHIJK")
  144.    List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
  145.    Data = cGZIPStringCompress("ABCDEFGHIJ")
  146.    List1.AddItem TmpD + RemoveNull(Data) + Tmp2 + RemoveNull(cGZIPStringExpand(Data)) + "'"
  147.    
  148.    Text1.Text = "mc security"
  149.    Text2.Text = "1234567"
  150.    
  151. End Sub
  152.  
  153.  
  154. Private Sub Text1_Change()
  155.    Label4.Caption = RemoveNull(cGZIPStringCompress(Text1.Text))
  156. End Sub
  157.  
  158.  
  159. Private Sub Text2_Change()
  160.    Label4.Caption = RemoveNull(cGZIPStringCompress(Text1.Text))
  161. End Sub
  162.  
  163.  
  164.