Comment convertir ce code VB en C pur ?

Bonjour,
Il y a environ 2 ans, j'avais commencé à étudier le langage C mais j'ai
dû m'arrêter quelques temps après. J'ai donc beaucoup oublié de ce langage
C.
J'ai développé un nouvel algorithme de cryptage et cet algo doit faire
partie de la version 3.0 d'AllCrypter (version 3.0 dont les licences
d'utilisations qui seront accordées seront gratuites) qui sera disponible
gratuitement lorsque les 2 procédures VB (cryptage et décryptage) seront en
langage C dans une DLL chacune. Ces 2 procédures sont déjà en code VB et
fonctionnent très bien; mais il me reste à convertir en langage C (en DLL)
ces 2 procédures principales pour rendre leur exécution plus rapide qu'en
VB.
http://logicipc.no-ip.com/allcrypter/algorh2a.html (explication de l'algo)
http://logicipc.no-ip.com/allcrypter/algorh2b.html (code VB à convertir en
langage C pour une exécution plus rapide; 1re procédure en haut de la page
que j'ai copié ci-dessous.)
Je chercherais une personne poussée en langage C (utilisant des
pointeurs) qui pourrait m'aider à convertir cette procédure ci-dessous en C
pour compiler dans une DLL (j'ai déjà 'DEV C++') mais avec des pointeurs
puisque c'est la rapidité du code que je cherche avant tout. Tout est déjà
fait et il ne resterait qu'à le convertir fidèlement. Bien que ça puisse me
prendre quelques dizaines de minutes convertir en VB, cela est différent
pour moi de convertir en C car je n'ai pas la même expérience que le VB
(même si je sais que c'est plus simple en C; par exemple, les 8 lignes VB
pour l'inversion d'une chaîne de caractères n'en ferait peut-être qu'une
seule ligne en C (avec un appel); et la conversion d'un caractère VB en
ascii puis en valeur serait plus simple car, si je me souviens bien en C le
caractère est déjà au départ en ascii. Il faudrait que la DLL soit en C pur
pour être lu sous différentes plateformes et non seulement sous Windows.

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Public Sub MoteurCryptData(VSa As String, VSb As String, VRep As Double,
VDat As String)
'Cette procédure VB doit être convertie en langage C pur pour une
plus grande rapidité d'exécution.
' Procédure exécutant le chiffrement de chaque bloc
de données à crypter.
'VSa contient la 1re clef de session initiale.
'VSb contient la 2e clef de session initiale.
'VRep contient zéro (0) au départ.
'VDat contient les données à crypter.
Dim VLenVSa As Long
VLenVSa = Len(VSa)
Dim VLenDat As Long
VLenDat = Len(VDat)
Dim VXor As Integer, VXor2 As Integer
Dim V1A As Integer, V3A As Integer, V4A As Integer, V5A As Integer,
V2A As String
Dim VRép1 As Long
'--Inversion de la chaîne de caractères. Chaque groupe doit être lu
à partir de la fin jusqu'au début du fichier en question.
Dim VDemiLenVDat As Long
VDemiLenVDat = VLenDat / 2
Dim VDatTemp As String
For VRép1 = 1 To VDemiLenVDat
VDatTemp = Mid(VDat, VRép1, 1)
Mid(VDat, VRép1, 1) = Mid(VDat, VLenDat - VRép1 + 1, 1)
Mid(VDat, VLenDat - VRép1 + 1, 1) = VDatTemp
Next VRép1
VSa = VSa & Space(VLenDat)
VSb = VSb & Space(VLenDat) 'Idem.
'--Brouillement des données et prolongement des 2 clefs de session.
For VRép1 = 1 To VLenDat
'--Brouillement.
V2A = Right(Str(Asc(Mid(VSb, VRép1 + 3, 1))), 1)
V1A = Val(Right(Str(Asc(Mid(VSa, VRép1 + 1, 1))), 1) & V2A)
V3A = Val(Asc(Mid(VSb, VRép1 + 6 + Val(V2A), 1)))
V4A = Val(Asc(Mid(VDat, VRép1, 1)))
V5A = (V1A + V3A + VRep + V4A) Mod 256
Mid(VDat, VRép1, 1) = Chr(V5A)
VRep = VRep + 1
'--Prolongement des 2 clefs de session.
'-sa> = ((sa_1 + sa_7) Xor (sa_13 + m_1)) Mod 256
Mid(VSa, VLenVSa + VRép1, 1) = Chr(((Val(Asc(Mid(VSa, VRép1,
1))) + Val(Asc(Mid(VSa, VRép1 + 6, 1)))) Xor (Val(Asc(Mid(VSa, VRép1 + 12,
1))) + V5A)) Mod 256)
'-sb> = ((sb1 + sb3) Xor (sb5 + m1)) Mod 256
Mid(VSb, VLenVSa + VRép1, 1) = Chr(((Val(Asc(Mid(VSb, VRép1,
1))) + Val(Asc(Mid(VSb, VRép1 + 2, 1)))) Xor (Val(Asc(Mid(VSb, VRép1 + 4,
1))) + V5A)) Mod 256)
'--Xorer..
'm4_1 = ((sa_10> || sb_2>) xor (sa_17 + sb_6) xor m3_1) mod
256' .
VXor2 = V5A Xor Val(Right(Str(Asc(Mid(VSa, VRép1 + 9, 1))),
1) & Right(Str(Asc(Mid(VSb, VRép1 + 1, 1))), 1))
VXor = Val(Asc(Mid(VSa, VRép1 + 16, 1))) + Val(Asc(Mid(VSb,
VRép1 + 5, 1)))
Mid(VDat, VRép1, 1) = Chr((Val(VXor2) Xor Val(VXor)) Mod
256)
Next VRép1
VRep = VRep Mod 256
VSa = Right(VSa, VLenVSa)
VSb = Right(VSb, VLenVSa)
End Sub
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

a+
Raymond H.
www.allcrypter.com
contact@allcrypter.com