Convertir Código visual a PHP
$30-250 USD
Paid on delivery
La funcion original esta en Fox, La misma fue convertida a Visual , y Ahora se necesita converir la misma a PHP
Public Function digverif(ByVal cadena As String) As String
' muni zapala codigo original que mando esta hecho en FOX retorna 2 digitos
' LPARAMETERS [url removed, login to view]
' [url removed, login to view] = 0
' secuencia = 3
' [url removed, login to view] = SUBSTR([url removed, login to view], 1, 1)
' [url removed, login to view] = Val([url removed, login to view]) * 1
' [url removed, login to view] = [url removed, login to view] + ([url removed, login to view])
' For [url removed, login to view] = 2 To Len([url removed, login to view]) Step 1
' [url removed, login to view] = SUBSTR([url removed, login to view], [url removed, login to view], 1)
' [url removed, login to view] = Val([url removed, login to view]) * secuencia
' [url removed, login to view] = [url removed, login to view] + ([url removed, login to view])
' secuencia = secuencia + 2
' if secuencia=11
' secuencia = 3
' End If
' Next [url removed, login to view]
' [url removed, login to view] = MOD(int([url removed, login to view]), 10)
' [url removed, login to view] = mod(int((m.suma+([url removed, login to view]*secuencia))/2),10)
' [url removed, login to view] = [url removed, login to view] + alltrim(Str([url removed, login to view])) + alltrim(Str([url removed, login to view]))
' [url removed, login to view] = [url removed, login to view]
' RETURN [url removed, login to view]
' CODIGO CONVERTIDO A VISUAL BASIC
suma = 0
secuencia = 3
letra = Mid(cadena, 1, 1)
valorreal = Val(letra) * 1
suma = suma + (valorreal)
For co = 2 To Len(cadena) Step 1
letra = Mid(cadena, co, 1)
valorreal = Val(letra) * secuencia
suma = suma + (valorreal)
secuencia = secuencia + 2
If secuencia = 11 Then
secuencia = 3
End If
Next co
checksum = Int(suma / 2) Mod 10
checksum2 = Int((suma + (checksum * secuencia)) / 2) Mod 10
digverif = Trim(Str(checksum)) + Trim(Str(checksum2))
End Function
Project ID: #13457130
About the project
Awarded to:
9 freelancers are bidding on average $216 for this job
HI, I can assist you with this Project. Here is a sampling of the few of my work contained at my portfolio: https://www.freelancer.com/u/extreamcode.html This is a placehoolder bid, I would be able to quote final p More
“Web development Experts” Hello, we are a leading website app development company, we specialize in WordPress including theme and plugin customization. we are experienced in woo commerce too. We have studied your More
experienced php developer , about 10 years. please let me try without compromise.. i believe its a really easy task
Dear Prospect Hiring Manager. Thank you for giving me a chance to bid on your project. i am a serious bidder here and i have already worked on a similar project before and can deliver as u have mentioned I have More