Hola:
Me han pedido que pase un software que está realizado en VB6 a PHP pero no tengo conocimientos de VB6 por lo cual hay muchas cosas que no comprendo. Necesito que me ayuden a descifrar esta función:
Código:
Public Function ED(text As String, Action As Single) As String
' (UserKey As String, Text As String, Action As Single) As String
Dim UserKey As String
Dim UserKeyX As String
Dim Temp As Integer
Dim Times As Integer
Dim i As Integer
Dim J As Integer
Dim n As Integer
Dim rtn As String
UserKey = "IRONMAN"
n = Len(UserKey)
ReDim UserKeyASCIIS(1 To n)
For i = 1 To n
UserKeyASCIIS(i) = Asc(Mid$(UserKey, i, 1))
Next
ReDim TextASCIIS(Len(text)) As Integer
For i = 1 To Len(text)
TextASCIIS(i) = Asc(Mid$(text, i, 1))
Next
If Action = ENCRYPT Then
For i = 1 To Len(text)
J = IIf(J + 1 >= n, 1, J + 1)
Temp = TextASCIIS(i) + UserKeyASCIIS(J)
If Temp > 255 Then
Temp = Temp - 255
End If
rtn = rtn + Chr$(Temp)
Next
ElseIf Action = DECRYPT Then
For i = 1 To Len(text)
J = IIf(J + 1 >= n, 1, J + 1)
Temp = TextASCIIS(i) - UserKeyASCIIS(J)
If Temp < 0 Then
Temp = Temp + 255
End If
rtn = rtn + Chr$(Temp)
Next
End If
ED = rtn
End Function
a ver como la llevo al lenguaje PHP.
Un saludo y gracias por adelantado