VB6 to PHP convert short function

This project was awarded to zeke for $30 USD.

Get free quotes for a project like this
Employer working
Awarded to:
Skills Required
Project Budget
$30 - $250 USD
Total Bids
Project Description

Hello I need to convert this VB6 function into a php function. When I input "loffkkcgjnaeokqdqgmj" into the function it should output "[url removed, login to view]:17478". Thanks

'//////////////CODE START

Public Function LW2IP(sLWKey As String) As String
On Error GoTo err
Dim key As String
Dim Ip As String
Dim ippointer As Long
Dim keypointer As Long
Dim LWKey As String

LWKey = sLWKey

ippointer = 12
keypointer = 1
Ip = ""
Do Until ippointer = Len(LWKey) - 13
Ip = Ip & Chr$(Asc(Mid$(LWKey, ippointer, 1)) - Asc(Mid$(key, keypointer, 1)) + 32)
ippointer = ippointer + 1
keypointer = keypointer + 1

LW2IP = Replace(Ip, " ", vbNullString)
Exit Function
LW2IP = "invalid ip"
End Function

'/////////////////CODE STOP

Looking to make some money?

  • Set your budget and the timeframe
  • Outline your proposal
  • Get paid for your work

Hire Freelancers who also bid on this project

    • Forbes
    • The New York Times
    • Time
    • Wall Street Journal
    • Times Online