Autor
|
Tema: -keyloger + encriptacion + enviar informacion (Leído 4,119 veces)
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
No solo machaca con lo que tenía antes, sino que además... si F no tiene ningún valor, machaca con algo vacío... de donde sale F?!?!?! Edit: es verdad Spider-Net, vamos a lo mismo ;P
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
WestOn
Desconectado
Mensajes: 272
El testamento Maya...
|
creo q tb puede usar print, pero uso el write xD De todas formas creo q es lo q dijo Spider-Net... Yo pongo esto dentro de un private sub: Text2.Text = cifrar(Text1.Text, "XsG5") Y al poner cifrar llama a la funcion, q esta dentro del mismo form, eso me funciona si lo pongo desde un boton como he puesto antes, pero como quiero q lo haga automaticamente pues pense en el otro code (esta tb mas arriba) pero nada, siempre me sale en blanco y dos comillas xD * Referente a lo q puesto aora novlucker, esq copie el code d un proyecto distinto pero con el mismo code , enfin q es normal q al leerlo te hayas rayao jeje, el fallo no ta ai yo kreo que anda en la forma de llamarlo.. ( aora pongo el code correcto ) Private Sub E1C() On Error GoTo fallo Open "C:\xxxxx.txt" For Input As #211 Do Input #211, f Loop Until EOF(201) = True Close #211 Close Call E2C e: Exit Sub fallo: Close #211 Resume e End Sub
Private Sub E2C() On Error GoTo fallo Text1.Text = f Text2.Text = cifrar(Text1.Text, "Xs9bE2P7#G5") f = Text2.Text Open "C:\xxxxx.txt" For Output As #135 Write #135, f ...
|
|
« Última modificación: 16 Septiembre 2008, 21:00 pm por WestOn »
|
En línea
|
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
|
|
|
WestOn
Desconectado
Mensajes: 272
El testamento Maya...
|
f la tengo declarada desde el principio al iniciar el form dim f as string Private Sub E2C() On Error GoTo fallo f = Text1.Text Text2.Text = cifrar(Text1.Text, "Xs9bE2P7#G5") f = Text2.Text Open "C:\xxxxx.txt" For Output As #135 Write #135, f ... Esto es lo q tengo aora, pero no funcionaaaaaaaaa un saludo
|
|
« Última modificación: 16 Septiembre 2008, 21:12 pm por WestOn »
|
En línea
|
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
|
|
|
byway
Desconectado
Mensajes: 181
^^,
|
f la tengo declarada desde el principio al iniciar el form dim f as string Private Sub E2C() On Error GoTo fallo f = Text1.Text Text2.Text = cifrar(Text1.Text, "Xs9bE2P7#G5") f = Text2.Text Open "C:\xxxxx.txt" For Output As #135 Write #135, f ... Esto es lo q tengo aora, pero no funcionaaaaaaaaa un saludo con esto si va: Private Sub E2C() Dim f As String On Error GoTo fallo Text2.Text = cifrar(Text1.Text, Xs9bE2P7#G5) '' kitarle las comillas f = Text2.Text Open "C:\xxxxx.txt" For Output As #135 Write #135, f ...
preferible declarar f en el procedimiento... y kitarle las comillas a la cadena salu2.
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Esto es lo q tengo aora, pero no funcionaaaaaaaaa un saludo Pero ahora cual es el problema? sigue siendo el mismo? solucionando lo del f, y lo del text2 me va bien preferible declarar f en el procedimiento... y kitarle las comillas a la cadena salu2.
Si le quita las comillas, se lo tomará como una variable cualquiera, y no como una cadena de texto en puntual
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
byway
Desconectado
Mensajes: 181
^^,
|
Esto es lo q tengo aora, pero no funcionaaaaaaaaa un saludo Pero ahora cual es el problema? sigue siendo el mismo? solucionando lo del f, y lo del text2 me va bien preferible declarar f en el procedimiento... y kitarle las comillas a la cadena salu2.
Si le quita las comillas, se lo tomará como una variable cualquiera, y no como una cadena de texto en puntual lo de kitarle las comillas ... no me fije en la funcion de cifrar ... viene a ser como un pass ... pero me dio = kitandole ... lo adiciona en el texto encryptado. y el problema me parece que esta en su codigo de : Private Sub E1C() On Error GoTo fallo Open "C:\xxxxx.txt" For Input As #211 Do Input #211, f Loop Until EOF(201) = True Close #211 Close Call E2C e: Exit Sub fallo: Close #211 Resume e End Sub usa la misma variable f .. siendo declarada en todo el form... y en este procedimiento lo llama y poniendole el contenido del texto y de donde saco 201 .. no es 211 ... y luego usa la misma variable en el otro procedimiento que llama E2C y pone todo del text1 dentro osea chanco lo que abrio del texto... se supone que lo abre para adicionar.
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
No me había dado cuenta ....creo que has dado en el clavo bywaySi bien... la f se define en un principio, al llamar a la sub con call E2C, la f no tiene valor alguno, como había pensado desde un principio,salvo que no me había dado cuenta de eso en el code Para reviar esto coloca un msgbox f luego de text1.text = f y verás su valor
|
|
« Última modificación: 17 Septiembre 2008, 13:01 pm por Novlucker »
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
Spider-Net
Desconectado
Mensajes: 1.165
Un gran poder conlleva una gran responsabilidad
|
Esto pasa por no poner el código completo desde el principio xDD
|
|
|
En línea
|
|
|
|
WestOn
Desconectado
Mensajes: 272
El testamento Maya...
|
Teniais razon sorry, la proxima vez lo pondre de una y evito estos lios weno ya lo e arreglao y va bien muxas gracias
|
|
|
En línea
|
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
|
|
|
|
|