Closed

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
3
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

key = "TYXUYZUVXWSTZSWSZSVRT"

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

Loop

LW2IP = Replace(Ip, " ", vbNullString)

Exit Function

err:

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