Kryptování

Public Sub Crypt(Txt As String)
	Dim R As Long
	Dim M As Long
	Dim N As Long
	Dim I As Integer
	Dim C As Integer
	Dim D As Integer
	Const BigNum As Long = 32768	

	R = 1
	M = 69
	N = 47

	For I = 1 To Len(Txt)
		C = Asc(Mid$(Txt, I, 1))
		Select Case C
			Case 48 To 57
				D = C - 48
		 	Case 63 To 90
				D = C - 53
			Case 97 To 122
				D = C - 59
			Case Else
				D = -1
		End Select
		If D >= 0 Then
			R = (R * M + N) Mod BigNum
			D = (R And 63) Xor D
			Select Case D
				Case 0 To 9
					C = D + 48
				Case 10 To 37
					C = D + 53
				Case 38 To 63
					C = D + 59
			End Select
			Mid$(Txt, I, 1) = Chr$(C)
		End If
	Next I
End Sub

Příklad volání funkce Crypt:

Funkci Crypt vložte do modulu, aby byla přístupná pro celý projekt. Do formuláře vložte dva prvky EditBox - TextBox1 a TextBox2 a tlačítko Command1. Na událost Click tlačítka Command1 zapište následující kód:

Private Sub Command1_Click()
	Dim Textik As String
	If Trim(TextBox1.Text) = ”” Then
	'Není - li zadán žádný text v prvku TextBox1 
		Exit Sub
		'ukonči proceduru
	Endif
	Textik = TextBox1.Text
	'do proměnné Textik ulož text z prvku TextBox1
	Crypt Textik
	'zakryptuj řetězec Textik
	TextBox2.Text = Textik
	'zakryptovaný řetězec zobraz v prvku TextBox2
End Sub

Zpět