• Home
 · 
• Encryption
 · 
• Simple Code Generator

Simple Code Generator

Simple Code Generator

API Declarations



Rem Developed By Mr P.B.C.G.Fernando
Rem System Name Code Generator
Rem For Comments [email protected] / [email protected]

Rem Software Developer In Vanik Information Technologies Sri Lanka
Rem 07147810847 , 0112524596

Rem Simple And Powerful Application




Rate Simple Code Generator

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim I               As Integer
    Dim Code_Val        As Byte
    
    Dim Code_1          As String
    Dim Code_2          As String
    Dim Code_3          As String
    
    Dim Code_Len        As Byte
    Dim MArray(4)       As Byte
    
    ' ------------------------------------
        Code_1 = "": Code_2 = "": Code_3 = ""
    
        Text1(0).Text = ""
        Text1(1).Text = ""
        Text1(2).Text = ""
    
        Code_Val = 0
    ' ------------------------------------

First_:
    Code_Len = 0
    For I = 1 To 6
        If Code_Len = 6 Then Exit For
Code_Err:
        Code_Val = CInt(Rnd() * 9)
        DoEvents
        If Code_Val < 5 Then
            GoTo Code_Err
        Else
            Code_Len = Code_Len + 1
            Code_1 = Code_1 & Code_Val
        End If
        
    Next I

Second_:
    Code_Len = 0
    For I = 65 To 90
        If Code_Len = 4 Then Exit For
Code_Err2:
        Code_Val = CInt(Rnd() * 90)
        DoEvents
        If Code_Val < 65 Or Code_Val > 90 Then GoTo Code_Err2
        If (Code_Val Mod 2) = 0 Then
            Code_Len = Code_Len + 1
            MArray(Code_Len) = Code_Val
            Code_2 = Code_2 & Chr(Code_Val)
        Else
            GoTo Code_Err2
        End If
    Next I
    
    If (CDbl(Code_1) Mod 2) = 1 Then
        DoEvents
        Code_1 = ""
        GoTo First_
    Else
        Text1(0).Text = Code_1
    End If
    
    If ((Val(MArray(1)) + Val(MArray(2)) + Val(MArray(3)) + Val(MArray(4))) Mod 2) = 0 Then
        Text1(1).Text = Code_2
    Else
        DoEvents
        I = 0
        For I = 1 To 4
            MArray(I) = 0
        Next I
        GoTo Second_
    End If
    
    Text1(2).Text = Left(Code_1, 2) & _
                    Right(Code_2, 2) & _
                    CInt(Rnd() * 9) & _
                    CInt(Rnd() * 5)

End Sub