Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/03/2011, 10:58
reynierpm
 
Fecha de Ingreso: marzo-2011
Ubicación: Caracas
Mensajes: 140
Antigüedad: 14 años
Puntos: 1
Llevar función de VB6 a PHP

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