Ayuda a interpretar codigo js y pasarlo a vb6

[Erika Vega]

Manes tengo este codigo en javascript y deseo pasarlo a visual basic solo quisiera que me dieran la idea porque de js no se casi nada.

<script language="javascript">
  function cogecifrado(str) {
  if (str.indexOf('PWD=', 0) == -1 ||
      str.length-37<0)
        alert("ENTRADA NO VALIDA: Debe introducir la línea completa, incluido 'PWD='");

  else {
   passw=str.substring(37,str.length);
   for (var i = 0; i<passw.length/2; i++)
    {
      var caracter=passw.substring(i*2,i*2+2);
      var sal=str.substring(5+i,6+i);
      var claro=parseInt("0x"+caracter) -i -1 - ((47+parseInt("0x"+sal))%57);
           document.forms[0].text2.value=document.forms[0].text2.value+String.fromCharCode(claro);
     }
   }
  }
// -->
</script>

[Vitrox]

yo tampoco se nada de JS, pero si me dices que quieres que haga el codigo, yo te puedo hacer un códigopara que pegues en VB 6.0 de lo que quieres que haga el programa.
salu2

[BenRu]

No tengo ni idea de js...pero al verlo asi parece un sistema de seguridad por contraseñas o algo similar?

Si es eso, en visual basic es facilisimo de hacer...pero no piense que podras utilizarlo en una web o algo asi eh xD

[Belem]

Pues yo tampoco se mucho de JS pero creo que hasta el "else" seria masomenos asi:

Código [Seleccionar] Expandir


Private Sub cogeCifrado(str As String)
If Not getStr(str) Or Len(str) - 37 < 0 Then
    MsgBox ("Entrada no valida, debe incluir la linea completa, incluido PWD=")
Else
    '' Blah blah blah
    MsgBox "bla blah blah"
End If
End Sub
Private Function getStr(sCadena As String) As Boolean
Dim strLen As Integer
strLen = Len(sCadena)
For x = 1 To strLen
    m = Mid(sCadena, x, 4)
    If UCase$(m) = "PWD=" Then
        lok = True
        Exit For
    Else
        lok = False
    End If
Next
getStr = lok
End Function

Private Sub Command1_Click()
cogeCifrado (Text1.Text)
End Sub




[Erika Vega]

Gracias por sus respuestas y el codigo lo que quiero que haga es lo mismo que esta en esta pagina solo que en visual basic.

Bajala de aqui.