Private Function UtvorennaPassw()
'
Dim n As String
Dim M As Integer
Dim r As Integer
Dim Ch1 As Integer
Dim Kod As String
Kod = "0000000"
n = "UA" + Left(Combo1.Text, 1) + "-" + Left(Text2.Text, 30) + "-" + Text4.Text + "-" + Text5.Text


'
Dim g As Integer
M = 1 'Int(Rnd(1) * 19) + 1

For g = 1 To Len(n)
  r = Int((g / Len(n)) * 7)
  If r = 7 Then r = 6
  Ch1 = Val(Mid(Kod, r + 1, 1))
  Ch1 = Ch1 + (Asc(Mid(n, g, 1)) + g * 3)
  Do While Ch1 > 10
   Ch1 = Ch1 - 10
  Loop
  Ch1 = Ch1 + (M)
  
  Do While Ch1 > 10
   Ch1 = Ch1 - 10
  Loop
  Mid(Kod, r + 1, 1) = Trim(Str(Ch1))
Next
UtvorennaPassw = n + "-" + Kod + ".avi"

End Function
Private Function PerevirkaPassw(NameFile As String) As Boolean

Dim n As String
Dim M As Integer
Dim r As Integer
Dim Ch1 As Integer
Dim Porivnanna As String
Dim Kod As String
PerevirkaPassw = False
n = Left(NameFile, Len(NameFile) - 12)
Porivnanna = Mid(NameFile, Len(NameFile) - 10, 7)

'
Dim g As Integer
For M = 1 To 1 'Количество вариантов
Kod = "0000000"
For g = 1 To Len(n)
  r = Int((g / Len(n)) * 7)
  If r = 7 Then r = 6
  Ch1 = Val(Mid(Kod, r + 1, 1))
  Ch1 = Ch1 + (Asc(Mid(n, g, 1)) + g * 3)
  Do While Ch1 > 10
   Ch1 = Ch1 - 10
  Loop
  Ch1 = Ch1 + (M)
  
  Do While Ch1 > 10
   Ch1 = Ch1 - 10
  Loop
  Mid(Kod, r + 1, 1) = Trim(Str(Ch1))
Next
  If Kod = Porivnanna Then PerevirkaPassw = True: Command5.Caption = "Добре": Exit Function Else Command5.Caption = "Фальш"
Next

End Function