📄 frmrsaclient.frm
字号:
VERSION 5.00
Begin VB.Form frmrsaclient
Caption = "Form1"
ClientHeight = 4380
ClientLeft = 60
ClientTop = 450
ClientWidth = 8685
LinkTopic = "Form1"
ScaleHeight = 4380
ScaleWidth = 8685
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdclose
Caption = "&Close"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
Style = 1 'Graphical
TabIndex = 16
Top = 3480
Width = 1095
End
Begin VB.TextBox txtdispKey
Height = 375
Left = 1440
TabIndex = 15
Top = 3000
Width = 4095
End
Begin VB.CommandButton cmdGetYourKey
Caption = "&Get Your Key"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
Style = 1 'Graphical
TabIndex = 14
Top = 3000
Width = 1215
End
Begin VB.Frame Frame1
Height = 1170
Left = 120
TabIndex = 13
Top = 5760
Visible = 0 'False
Width = 5880
End
Begin VB.TextBox txtTemp
Height = 285
Left = 0
TabIndex = 12
Top = 5160
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text4
Height = 495
Left = 2040
TabIndex = 11
Text = "Text4"
Top = 4680
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox Text3
Height = 495
Left = 480
TabIndex = 10
Text = "Text3"
Top = 4680
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox txtFileName
BackColor = &H8000000F&
Height = 375
Left = 720
TabIndex = 9
Top = 5280
Visible = 0 'False
Width = 3495
End
Begin VB.TextBox getFinKey
Height = 375
Left = 1440
MultiLine = -1 'True
TabIndex = 7
Top = 1800
Width = 4095
End
Begin VB.CommandButton Command1
Caption = "&Enter"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
Style = 1 'Graphical
TabIndex = 5
Top = 2400
Width = 1095
End
Begin VB.TextBox Text2
Height = 375
IMEMode = 3 'DISABLE
Left = 1440
MaxLength = 20
PasswordChar = "."
TabIndex = 4
Top = 1200
Width = 3015
End
Begin VB.TextBox Text1
Height = 375
Left = 1440
MaxLength = 20
TabIndex = 3
Top = 600
Width = 3015
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Your Finger Print"
Height = 195
Left = 120
TabIndex = 8
Top = 1920
Width = 1170
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Your Key"
Height = 195
Left = 4320
TabIndex = 6
Top = 5280
Visible = 0 'False
Width = 645
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Password"
Height = 195
Index = 0
Left = 360
TabIndex = 2
Top = 1320
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Username"
Height = 195
Left = 360
TabIndex = 1
Top = 720
Width = 720
End
Begin VB.Label lblWarning
AutoSize = -1 'True
Caption = "Enter following details"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 240
TabIndex = 0
Top = 120
Width = 1890
End
End
Attribute VB_Name = "frmrsaclient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
'Dim fnt, fn, lin As String
'Dim dsize As Double
'Dim i As Integer
'Dim pdata(), pout, filepout, Fsave As String
'Dim adata(100000) As Integer
'Dim out(100000) As Double
'Dim linefeed As String
'Dim tryI, tryJ, jval As Long
'Dim i1, a1 As Long
'Dim GetRndA, GetRndB, indexA, indexB, RndValA, RndValB, primeA, primeB, opA, opB As Long
'Dim chkA, chkB, tstA, tstB As Boolean
'Dim cont As Boolean
'Dim PRIME1, PRIME2, PROD, PHIE, PUBLICKEY, SECRETKEY, POS As Long
'Dim CIPHER As String
'Dim y, x, n As Long
'Dim store(9999), mtp, temp, flmt, disp(15), t, rvf(15), res, pcnt, suma(15) As Long
'Dim pow(15), ch(14), a, c, il, cnt, j, jp, kt, lt, L, j1, ic, jc As Long
'Dim op, t2 As String
'Dim gt(15), rv(15), lent, chlen, dval As Integer
'Dim gate, fin As Boolean
'Dim Fname As Variant
'Private Sub cmdClose_Click()
'End
'End Sub
'Private Sub cmdGetYourKey_Click()
'
'Load frmdecrypt
'
'End Sub
'Private Sub Command1_Click()
'
' Dim FileName10 As String
' Dim FName_Only As String
' Dim fnum As String
' Dim delay As Long
' Dim lengthoftext1, lengthoftext2 As String, i, j, ab, cd, q, g As Integer
'
' lengthoftext1 = Len(Text1)
' i = 20 - lengthoftext1
' Text3 = Text1
' For j = 1 To i
' Text3 = Text3 + "_"
' Next j
'
' lengthoftext2 = Len(Text2)
' ab = 20 - lengthoftext2
' Text4 = Text2
' For cd = 1 To ab
' Text4 = Text4 + "_"
' Next cd
'
'
' txtFileName = Text3 + Text4 + "getFinKey"
' 'Generating Two Random Prime Numbers
' If cont = False Then
' While (chkA = False)
' tstA = False
' Randomize
' GetRndA = Rnd() * 100
' RndValA = Round(GetRndA, 1)
' For indexA = 2 To RndValA - 1
' primeA = RndValA Mod indexA
' If (primeA = 0) Then
' tstA = True
' End If
' Next indexA
' If (tstA = False) Then
' If RndValA <= 2 Then
' 'do nothing
' Else
' PRIME1 = Round(RndValA, 0)
' chkA = True
' End If
' End If
' Wend
' While (chkB = False)
' tstB = False
' Randomize
' GetRndB = Rnd() * 100
' RndValB = Round(GetRndB, 1)
' For indexB = 2 To RndValB - 1
' primeB = RndValB Mod indexB
' If (primeB = 0) Then
' tstB = True
' End If
' Next indexB
' If (tstB = False) Then
' If RndValB <= 2 Then
' Else
' PRIME2 = Round(RndValB, 0)
' chkB = True
' End If
' End If
' Wend
' If (PRIME1 = PRIME2) Then
' 'do nothing
' ElseIf (PRIME1 <= 2) Then
' 'do nothing
' ElseIf (PRIME2 <= 2) Then
' 'do nothing
' Else
' cont = True
' End If
' End If
'
' 'FINDING THE VALUE OF N
' PROD = PRIME1 * PRIME2
'
' 'FINDING THE VALUE OF PHIE
' PHIE = (PRIME1 - 1) * (PRIME2 - 1)
'
' 'FINDING THE PUBLIC KEY
' cont = False
' For i1 = 2 To (PHIE - 1)
' If cont = False Then
' a1 = PHIE Mod i1
' If a1 = 0 Then
' 'do nothing
' Else
' PUBLICKEY = i1
' cont = True
' End If
' End If
' Next i1
'
' 'FINDING THE SECRET KEY
' cont = False
' For q = 1 To 100000
' If cont = False Then
' If ((PUBLICKEY * q) Mod PHIE) = 1 Then
' SECRETKEY = q
' cont = True
' End If
' End If
' Next q
' 'GETTING THE CHARACTER ONE BY ONE FROM THE FILE
' lin = txtFileName.Text
' dsize = Len(lin)
' If dsize > 0 Then
' ReDim pdata(1 To dsize)
' Else
' ReDim pdata(i)
' End If
' linefeed = ""
' i = 1
' Do Until i = dsize + 1
' pdata(i) = Mid(lin, i, 1)
' 'Print pdata(i)
' i = i + 1
' Loop
'
'
' 'FINDING THE ASCII OF CHARACTER
'
' For i = 1 To dsize
' adata(i) = Asc(pdata(i))
' Next i
'
' 'FINDING THE CIPHER TEXT
' Open App.Path & "\" & "1_enuserdata.txt" For Output As #1
' For jval = 1 To dsize
' x = adata(jval)
' y = PUBLICKEY
' n = PROD
' Powers
' CIPHER = res
' Print #1, CIPHER
' Next jval
' Close #1
' fnum = Formfile1.txtfilenumber.Text
' Open App.Path & "\" & "1_enuserdata.txt" For Append As #1
' Print #1, "," + CStr(SECRETKEY) + "," + CStr(PROD) + "end" + fnum
' Close #1
'
'' FileName10 = FileDialog(Me, False, "File to Encrypt", "*.*|*.*", "C:\1_file.txt")
'FileName10 = App.Path & "\" & "1_enuserdata.txt"
'
'For delay = 0 To 100000
'Next delay
'For delay = 0 To 100000
'Next delay
'For delay = 0 To 100000
'Next delay
'frmClient.txtFileName = FileName10
'
'
' If frmClient.txtFileName = "" Then
' MsgBox "No file selected to send...", vbCritical
' Else ' send the file, if connected
' If frmWsk.tcpClient.State <> sckClosed Then
' ' send only the file name because it will
' ' be stored in another area than the source
' FName_Only$ = GetFileName(frmClient.txtFileName)
' SendFile FName_Only$
' End If
' End If
'
'End Sub
'Private Sub Form_Load()
'' lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
' ' lblProductName.Caption = App.Title
' Load frmClient
'End Sub
'Private Sub Powers()
''FINDING THE BINARY OF Y
' t2 = ""
' a = y
' Do While a >= 2
' c = a Mod 2
' a = Fix(a / 2)
' t2 = t2 & c
' Loop
' t2 = t2 & a
' op = StrReverse(t2)
'
' 'FINDING THE LENGTH
' a = 1
' Do While (gate = False)
' c = Mid$(op, a, 1)
' gt(a) = c
' If (c <> 1 And c <> 0) Then
' gate = True
' End If
' cnt = a
' a = a + 1
' Loop
' lent = cnt - 1
'
'
' 'FINDING THE REVERSE
' a = 1
' For c = lent To 1 Step -1
' rv(a) = gt(c)
' a = a + 1
' Next c
'
' 'FINDING THE POWERS
' L = 2
' j = 1
' kt = 2
' pow(1) = rv(1)
' ch(1) = pow(1)
' lt = 2
' chlen = 1
' Do While (lt <= lent)
' pow(j + 1) = rv(kt) * 2 ^ j
' ch(L) = pow(j + 1)
' chlen = chlen + 1
' j = j + 1
' kt = kt + 1
' L = L + 1
' lt = lt + 1
' Loop
'
' 'FINDING THE SQUARES OF X
' store(1) = x Mod n
' temp = store(1)
' disp(1) = temp
' mtp = 2
' flmt = 1
' t = 2
' Do While ((flmt / 2) <= Val(y))
' store(mtp) = (temp ^ 2) Mod n
' temp = store(mtp)
' disp(t) = (store(mtp))
' mtp = mtp * 2
' flmt = mtp * 2
' t = t + 1
' Loop
' 'ELIMINATIN ZEROS
' i1 = 1
' j1 = 2
' rvf(1) = pow(1)
' Do While (i1 < 15)
' If ch(i1) <> 0 Then
' rvf(j1) = ch(i1)
' j1 = j1 + 1
' End If
' i1 = i1 + 1
' Loop
' 'CALLING VALUES
' pcnt = 1
' jc = 1
' For ic = 1 To chlen
' If ch(ic) <> 0 Then
' suma(jc) = (disp(ic))
' pcnt = pcnt + 1
' jc = jc + 1
' End If
' Next ic
' 'RESULT
' res = 1
' Dim q1 As Integer
' res = (suma(1) * suma(2)) Mod n
' For q1 = 2 To (pcnt - 2)
' res = (res * suma(q1 + 1)) Mod n
' Next q1
'End Sub
'Private Sub getFinKey_Change()
'
''MsgBox "Place your finger on scanner and click ok"
'' Mainform.FpLibXCapture2_Click (0)
''MsgBox "Click ok after your finger is scanned"
'
'End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -