home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freesoft 1997 May
/
Freesoft_1997-05_cd.bin
/
nerecenz
/
programers
/
CRYPT
/
Form1.frm
next >
Wrap
Text File
|
1997-04-02
|
1KB
|
49 lines
VERSION 4.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1980
ClientLeft = 3330
ClientTop = 2475
ClientWidth = 2895
Height = 2385
Left = 3270
LinkTopic = "Form1"
ScaleHeight = 1980
ScaleWidth = 2895
Top = 2130
Width = 3015
Begin VB.TextBox Text2
Height = 375
Left = 360
TabIndex = 2
Text = "Text2"
Top = 1440
Width = 2415
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 375
Left = 600
TabIndex = 1
Top = 720
Width = 1815
End
Begin VB.TextBox Text1
Height = 375
Left = 360
TabIndex = 0
Text = "Text1"
Top = 120
Width = 2415
End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Declare Function xcrypt Lib "xcrypt.dll" (Str As String) As String
Private Sub Command1_Click()
Text2.Text = xcrypt(Text1.Text)
End Sub