-keyloger + encriptacion + enviar informacion

[Novlucker]

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

[WestOn]

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:

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

""

* 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 )

Código [Seleccionar] Expandir

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
...

[WestOn]

f la tengo declarada desde el principio al iniciar el form
dim f as string

Código [Seleccionar] Expandir

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

[byway]

f la tengo declarada desde el principio al iniciar el form
dim f as string

Código [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

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.

[Novlucker]

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

[byway]

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 :

Código [Seleccionar] Expandir

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.

[Novlucker]

No me había dado cuenta  ....creo que has dado en el clavo byway

Si 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 

[Spider-Net]

Esto pasa por no poner el código completo desde el principio xDD

[WestOn]

Teniais razon sorry, la proxima vez lo pondre de una y evito estos lios 

weno ya lo e arreglao y va bien muxas gracias