Originariamente inviato da maximum
L'abbiamo scrito per un applicativo che stiamo svolgendo qui al lavoro, per conto dell'Università.
complimenti per il lavoro... non era facile tradurlo dal VB
codice:
' By:
' Domenico Statuto
' Night Eagle
' Marco Carnazzo
' Ettore Maronese (By -MES-)
'
' 04.07.98 Modificato per la ricerca interattiva sul database By A. Fasano - Matera
  Dim temp        As String
    Dim Vocali      As String
    Dim Consonanti  As String
    Dim i           As Integer
    Dim AppoNum     As Long
    Dim TempNum     As Long
    Dim TxtCodFis   As String
'
' Questo codice e' liberamente distribuibile/modificabile/utilizzabile
' Buon Lavoro.
'
............... (omissis)..........................    
    'Controllo caratteri pari
    TempNum = 0
    i = 1
    Do
        ' I DISPARI
        AppoNum = InStr("B1A0KKPPLLC2QQD3RRE4VVOOSSF5TTG6UUH7MMI8NNJ9WWZZYYXX", Mid(TxtCodFis, i, 1))
        TempNum = TempNum + ((AppoNum - 1) And &H7FFE) / 2
        i = i + 1
        If i > 15 Then Exit Do
    
        ' I PARI
        AppoNum = InStr("A0B1C2D3E4F5G6H7I8J9KKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ", Mid(TxtCodFis, i, 1))
        TempNum = TempNum + ((AppoNum - 1) And &H7FFE) / 2
        i = i + 1
    Loop
    TempNum = TempNum Mod 26
    TxtCodFis = TxtCodFis & Mid$("ABCDEFGHIJKLMNOPQRSTUVWXYZ", TempNum + 1, 1)
    
    ' Ecco qui il codice bello finito
    CalcoloCodFis = TxtCodFis

End Function
ciao