Imprimir Página - Ayuda a interpretar codigo js y pasarlo a vb6

Título: Ayuda a interpretar codigo js y pasarlo a vb6
Publicado por: Erika Vega en 9 Febrero 2006, 21:35 pm

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>

Título: Re: Ayuda a interpretar codigo js y pasarlo a vb6
Publicado por: Vitrox en 10 Febrero 2006, 02:05 am

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

Título: Re: Ayuda a interpretar codigo js y pasarlo a vb6
Publicado por: BenRu en 10 Febrero 2006, 15:25 pm

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

Título: Re: Ayuda a interpretar codigo js y pasarlo a vb6
Publicado por: Belem en 10 Febrero 2006, 17:35 pm

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

Código:

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

Título: Re: Ayuda a interpretar codigo js y pasarlo a vb6
Publicado por: Erika Vega en 10 Febrero 2006, 18:41 pm

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. (http://www.4shared.com/file/806319/f8b62fa1/descifra_ws_ftp.html)

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Erika Vega en 9 Febrero 2006, 21:35 pm