Code:
Public Function CodeSerialNo(s1 As String, s2 As String, n As Integer) Dim A As String Dim i As Integer Dim Q() ReDim Q(n - 1) For i = 0 To n - 1 Q(i) = Int((Asc(Mid(s1, i + 1, 1)) + Asc(Mid(s2, i + 1, 1))) / 2) Q(i) = Str(Q(i) Mod (i Mod 10 + 2)) A = Trim(A) & Trim(Q(i)) Next CodeSerialNo = A End Function Public Function GenerateSerialNo(s As String) Dim A As Integer Dim B As Integer Dim i As Integer Dim z As String Dim AppInfo As String AppInfo = AppName(0).Text & AppName(1).Text & AppName(2).Text & AppName(3).Text Dim Q() If Len(s) < 5 Then s = s & "Ahmed Hashish" ReDim Q(Len(s) - 1) For i = 0 To Len(s) - 1 Q(i) = Asc(Mid(s, i + 1, 1)) A = (A + Q(i)) Mod 255 Next ReDim Q(Len(AppInfo) - 1) For i = 0 To Len(AppInfo) - 1 Q(i) = Asc(Mid(AppInfo, i + 1, 1)) B = (B + Q(i)) Mod 255 Next z = Str(Int((A + B) / 2)) GenerateSerialNo = "0" & Trim(Str(Len(s) Mod 10)) & "-" & Trim(z) & "-" & CodeSerialNo(Left(s, 4), Left(AppInfo, 4), 4) & "-" & CodeSerialNo(Right(s, 4), Right(AppInfo, 4), 4) End Function Private Sub Form_Activate() Me.Caption = App.ProductName & App.Major & App.Minor & App.Revision End Sub Private Sub Text1_Change() Text2.Text = GenerateSerialNo(Text1.Text) Clipboard.SetText (GenerateSerialNo(Text1.Text)) End Sub