Foro de elhacker.net

hola a todos los pro....
ete es el poblem...
tengo un form en donde es para cambiar el pass de un id ya creacdo.. ok
el pass lo cambia pero cuando quiro logearme con el nueco pass me sale el msg q el pass no es el correcto ?
pero jui a ver cual era el problem al archivo de txt y vi q el nombre q le habia dado era = pero con un renglon de mas y eso hacia q no sea = a mi pass  :huh:
la pregunat es como booro esea otra linea .. para q solo el texto sea lo q compruebe   :huh:
si alguien ve cual es el error que ayude pe no sean envidioso  ;D

como no se puede adjuntar el form lo copio para q lo cheqeen xD


Private Sub Command1_Click()
If Text1.Text = Text2.Text Then
Dim ruta As String
Dim i As Integer
ruta = "c:\Juanjo.txt"
i = FreeFile()
Open ruta For Output As #i
Print #i, Text1.Text
Close #i
MsgBox "Cambios relizados" + vbCrLf + "Satisfactoriamente", vbInformation, "Nuevo Pass"
Else
MsgBox "EL nuevo pass no coincide", 32, "Error"
Text2.SetFocus
End If
End Sub

Private Sub Command2_Click()
Dim ruta As String
Dim i As Integer
Dim var As String
ruta = "c:\juanjo.txt"
i = FreeFile()
Open ruta For Input As #i
var = Input(LOF(i), i)
Close i
If Trim(Text5.Text) = CStr(Trim(var)) Then
MsgBox "pass ok"
Else
MsgBox "Pass :("
End If
End Sub

bueno no se como adjunta la interface de mi form pero alli ta as o menos  ;D

hola, no se bien como estas guardando o como rescatas la informacion de tu txt... pero lo que podes hacer es aplicar la propiedad trim(...) cuando rescatas y cuando guardas... el trim lo que hace es sacar los espacios en blanco... proba.. y calquier escribi.. saludos ;)

If Trim(Text5.Text) = CStr(Trim(var)) Then
ya lo use si lo vez en el codigo
el problema es q lo q hay en el Trim(Text5.Text) y lo q contiene la CStr(Trim(var)) no es igual
porq el CStr(Trim(var)) sale text1 y ´pues eso no es = a lo q hay en la cja de texto5  :huh: si me entiendes no  ;D

ya salio :D
esta linea es lo q cambie ....
Open ruta For Input As #i
var = Input(LOF(i), i)
Close i

por esta
Open ruta For Input As #i
Line Input #i, var
Close i

 y ahora corre sin problemass  ;D