conversion de code VB6 en PHP
Bonjour à tous,
mon problème concerne le Visual Basic et le PHP, je ne savais pas trop ou poster, je m'excuse d'avance :oops:
Voilà ma question je travail sur une function de cryptage en VB6 et j'aimerai la convertir en PHP
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Public Function Encrypt(sText As String, sKey As String) As String
Dim i, x, y As Integer, b() As Byte, K() As Byte
Encrypt = vbNullString
x = 0
b() = StrConv(sText, vbFromUnicode)
MsgBox (b())
K() = StrConv(sKey, vbFromUnicode)
MsgBox (K())
For i = 0 To Len(sText) - 1
If x = Len(sKey) - 1 Then
x = 0
Else
x = x + 1
End If
For y = 1 To 255
b(i) = b(i) Xor K(x) Mod (y + 5)
Next y
Next i
Encrypt = StrConv(b, vbUnicode)
End Function |
En faite j'ai deux problèmes:
- la notion de type des variables n'existe pas sur PHP n'est ce pas?
Je ne sais pas comment dire à PHP que les tableaux b() et K() sont des bytes
- aussi j'ai un souci au niveau de la conversion
Code:
1
2
| StrConv(sText, vbFromUnicode)
'Convertit une chaîne Unicode en une chaîne s'appuyant sur la page de code par défaut du système (valeur 128) |
Comment reproduire cette instruction en PHP?
J'ai de bonne notion mais là c'est trop compliqué pour moi.
Merci d'avance pour votre aide ;)
