Completed

VB6 to PHP convert short function

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

dont include the " while you input into function

oops ignore the last additional information submitted, this site shows & quot; insted of "

Skills: PHP, Visual Basic

See more: convert vb6 php code, vb6 php, convert vb6 php, vb6 function php, convert php code vb6, code convert vb6 php, vb6 asc convert php, convert vb6 code php, vb6 0, asc it, dim ippointer, short php, short function, convert short vb6, convert PHP code, vb6 convert php, php vb6, convert code php, vb6, php function , len, function, chr, basic php, php function vb6

About the Employer:
( 3 reviews ) Cocoa, United States

Project ID: #799257

Awarded to:

zeke

Ready to start immediately and finish within less than a hour.

$30 USD in 0 days
(142 Reviews)
6.7

1 freelancer is bidding on average $30 for this job

DrTech76

Hi!

$30 USD in 0 days
(241 Reviews)
6.5
jtsin1982

Hello. I am ready to start the project. Please give me a chance to raise my review count. Regards.

$30 USD in 0 days
(4 Reviews)
5.5