Code Bar i25 (ou Visual BASIC 6 para PHP)

Olá pessoal!

Estou com uma grande questão para resolver. Preciso  usar uma fonte TTF (2of5) para gerar códigos de barras no formato 2 of 5 interleaved.

O que descobri foi que se digitar 190035 numa fonte 2 of 5 interleaved ele não é interpretado 190035.

Se eu digitar Ë4!DÌ ai sim ele será interpretado como 190035.

Isto significa que tenho que primeiro encodar o código 190035 para poder usar na fonte 2 of 5 interleaved.

Veja no exemplo na imagem abaixo:

*/applications/core/interface/imageproxy/imageproxy.php?img=https://groups.google.com/group/php-brasil/attach/3e515850804e7/000.jpg?part=0.1%26view=1%26authuser=0&key=3e983361582dbfb11dcba431d7fa7fd1e0cc280361d924bfae9daca8d871ed50" style="margin-left:1em;margin-right:1em;" width="320" data-imageproxy-source="https://groups.google.com/group/php-brasil/attach/3e515850804e7/000.jpg?part=0.1&view=1&authuser=0" />

Então essa é a questão: encodar uma string para que possa usar numa fonte 2 of 5 interleaved.

Outros programas instaláveis dá pra ver esse 'encodamento' primeiro para depois gerar o código.

Exemplo na segunda imagem abaixo: *

*/applications/core/interface/imageproxy/imageproxy.php?img=https://groups.google.com/group/php-brasil/attach/3e515850804e7/001.jpg?part=0.2%26view=1%26authuser=0&key=aae53de323e1b977e7ed4cfcd0ef174b940ade30da0498bec1f367aea755e686" style="margin-left:1em;margin-right:1em;" width="320" data-imageproxy-source="https://groups.google.com/group/php-brasil/attach/3e515850804e7/001.jpg?part=0.2&view=1&authuser=0" />

O problema é: qual fórmula usar?

Descobri um site que contém um .EXE para gerar códigos de barras no formato 2 of 5 interleaved e que também disponibiliza um código em Visual BASIC 6.

Link da página baixo: *

https://grandzebu.net/informatique/codbar-en/code25I.htm

Eu pensei em usar a formula matemática descrita no código para gerá-la em php, só que não entendo nada de VB.

Alguém poderia me ajudar?

CÓDIGO VB6 DO SITE GRANDZEBU:

**Public Function Code25I$(chaine$, Optional key As Boolean)
  'V 2.0.0

'Parametres : * une chaine

'             * un drapeau vrai si une cle doit etre ajoutee

'Parameters : * a string
  '             * a flag true if a key must be added

'Retour : * une chaine qui, affichee avec la police CODE25I.TTF, donne le code barre

'         * une chaine vide si parametre fourni incorrect

'Return : * a string which give the bar code when it is dispayed with CODE25I.TTF font

'         * an empty string if the supplied parameter is no good

Dim i%, checksum&, dummy%

Code25I$ = ""

If Len(chaine$) > 0 Then

'Verifier si caracteres valides

'Check for valid characters

For i% = 1 To Len(chaine$)

If Asc(Mid$(chaine$, i%, 1)) < 48 Or Asc(Mid$(chaine$, i%, 1)) > 57 Then Exit Function

Next

'Ajouter si necessaire la cle

'Add if necessary the checksum

If key Then

For i% = Len(chaine$) To 1 Step -2

checksum& = checksum& + Val(Mid$(chaine$, i%, 1))

Next

checksum& = checksum& * 3

For i% = Len(chaine$) - 1 To 1 Step -2

checksum& = checksum& + Val(Mid$(chaine$, i%, 1))

Next

chaine$ = chaine$ & (10 - checksum& Mod 10) Mod 10

End If

'Verifier si la longueur est paire

'Check if the length is odd

If Len(chaine$) \ 2 <> Len(chaine$) / 2 Then Exit Function

'Calculer la chaine de code

'Calculation of the code string

For i% = 1 To Len(chaine$) Step 2

dummy% = Val(Mid$(chaine$, i%, 2))

dummy% = IIf(dummy% < 94, dummy% + 33, dummy% + 101)

Code25I$ = Code25I$ & Chr$(dummy%)

Next

'Ajoute START et STOP / Add START and STOP

Code25I$ = Chr$(201) & Code25I$ & Chr$(202)
  End If
End Function**

Alguém pode me dar uma força para entender esse código e assim montar o que preciso?

Obrigado pela atenção.