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>
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
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
Pues yo tampoco se mucho de JS pero creo que hasta el "else" seria masomenos asi:
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
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)