vbscript CONEXION GENERICA FONDOS

Posted 2021-05-22

%>



''''''''''''''generica de fondos'''''''''   23-05.16

'desencriptada
Provider=IBMDA400;Data Source=10.9.2.201;User ID=NCXOWFVR;Password=NARPO8974


'encriptada

cn.Open Desencriptar("CebiVQRe=5y90xrnn;0NgN FbhePR=on.w.p.pno;HfRe 50=AzKBJ2IE;CNffjbeQ=AxECBvwur")

<%
Function Encriptar(sin)
	dim x, y, abfrom, abto
    Encriptar="": ABFrom = ""

    For x = 0 To 25: ABFrom = ABFrom & Chr(65 + x): Next
    For x = 0 To 25: ABFrom = ABFrom & Chr(97 + x): Next
    For x = 0 To 9: ABFrom = ABFrom & CStr(x): Next

    abto = Mid(abfrom, 14, Len(abfrom) - 13) & Left(abfrom, 13)
    For x=1 to Len(sin): y=InStr(abto, Mid(sin, x, 1))
        If y = 0 then
            Encriptar = Encriptar & Mid(sin, x, 1)
        Else
            Encriptar = Encriptar & Mid(abfrom, y, 1)
        End If
    Next
End Function

Function Desencriptar(sin)
	dim x, y, abfrom, abto
    Desencriptar="": ABFrom = ""

    For x = 0 To 25: ABFrom = ABFrom & Chr(65 + x): Next
    For x = 0 To 25: ABFrom = ABFrom & Chr(97 + x): Next
    For x = 0 To 9: ABFrom = ABFrom & CStr(x): Next

    abto = Mid(abfrom, 14, Len(abfrom) - 13) & Left(abfrom, 13)
    For x=1 to Len(sin): y = InStr(abfrom, Mid(sin, x, 1))
        If y = 0 Then
             Desencriptar = Desencriptar & Mid(sin, x, 1)
        Else
             Desencriptar = Desencriptar & Mid(abto, y, 1)
        End If
    Next
End Function
%>