Autor
|
Tema: probelma con textbox (Leído 3,561 veces)
|
sorcerer
Desconectado
Mensajes: 365
|
bue estoy haciendo un pequeño trabajo para la escuela en el cual cifro un texto de la formma siguiente: For x = 1 To MaxText crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(pass.Text, y, 1))) If (y = MaxPass) Then y = 1 End If y = y + 1 Next x Form1.Texto.Text = crypted
lo que hago es agarrar char por char del texto y sumarle el ascii del char que recivo en el pass, es simple y funciona el problema es que cuando abro un txt cifrado anterior mente me sale un error en la linea: crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(Text1.Text, y, 1)))
aca les paso el codigo de todo el programa: <<<Form1.frm - principal>>> Dim File As Integer, txt As String Private Sub Form_Resize() On Error GoTo fin If Form1.Height < 825 Then Form1.Height = 826 End If If Form1.Width < 120 Then Form1.Width = 121 End If Texto.Height = Form1.Height - 825 Texto.Width = Form1.Width - 120 fin: End Sub
Private Sub menuDecryptItem_Click() Load Form3 Form3.Visible = True End Sub
Private Sub menuEncryptItem_Click() Load Form2 Form2.Visible = True End Sub
Private Sub menuExitItem_Click() End End Sub
Private Sub menuFontItem_Click() CD.ShowColor Texto.ForeColor = CD.Color End Sub
Private Sub menuNewItem_Click() Texto.Text = "" encrypted = 0 End Sub
Private Sub menuOpenItem_Click() On Error GoTo fin Dim leng As Long Dim x As Long File = FreeFile CD.Filter = "Text Files (*.txt)|*.txt" CD.ShowOpen Open CD.FileName For Binary As #File txt = Space(LOF(File)) Get #File, , txt Close File Texto.Text = txt fin: End Sub
Private Sub menuSaveItem_Click() On Error GoTo fin File = FreeFile CD.Filter = "Text Files (*.txt)|*.txt" CD.ShowSave Open CD.FileName For Output As #File Print #File, Texto.Text Close File fin: End Sub
<<<Form2.frm - encriptacion>>> Dim x, MaxText, y, MaxPass As Long, crypted As String
Private Sub CancelButton_Click() Unload Me End Sub
Private Sub Form_Load() Label2.Visible = False End Sub
Private Sub OKButton_Click() Label1.Visible = False Text1.Visible = False OKButton.Visible = False CancelButton.Visible = False Label2.Visible = True MaxText = Len(Form1.Texto.Text) MaxPass = Len(Text1.Text) y = 1 crypted = "" For x = 1 To MaxText crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(Text1.Text, y, 1))) If (y = MaxPass) Then y = 1 End If y = y + 1 Next x Form1.Texto.Text = crypted Unload Me End Sub
<<<Form3.frm Decriptacion>>> Dim x, MaxText, y, MaxPass As Long, decrypted As String Private Sub CancelButton_Click() Unload Me End Sub
Private Sub OKButton_Click() On Error GoTo fin Label1.Visible = False Text1.Visible = False OKButton.Visible = False CancelButton.Visible = False Label2.Visible = True MaxText = Len(Form1.Texto.Text) MaxPass = Len(Text1.Text) y = 1 decrypted = "" For x = 1 To MaxText decrypted = decrypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) - Asc(Mid(Text1.Text, y, 1))) If (y = MaxPass) Then y = 1 End If y = y + 1 Next x Form1.Texto.Text = decrypted Unload Me fin: Unload Me End Sub
aver si alguien me puede explicar porque cada ves que abro un archivo no salta el error en esa linea? osea si abro el txt y le cambio algo tonces anda pero si no toco el texto despues que lo abro no anda... alguien tiene alguna solucion?
|
|
|
En línea
|
Las creaciones humanas son imperfectas, por la imperfeccion de su creador
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(Text1.Text, y, 1)))
:huh:no sera que la función Chr() este recibiendo un valor mayor a 255???
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
sorcerer
Desconectado
Mensajes: 365
|
me confundi en copiarlo es - no + XD... la encripcion es + y nunca hace problemas
|
|
|
En línea
|
Las creaciones humanas son imperfectas, por la imperfeccion de su creador
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
buenas, mira estuve revisando tu codigo y encontre lo siguiente:
1. Algunas variables no estan declaradas, a menos que se ta haya pasado ponerlas aqui, deberías usar Option explicit para que te diga que variables falta declrar
2. en cuanto al codigo detecte un error
Código: crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(Text1.Text, y, 1)))
la variable y a veces toma un valor mayor a MaxPass y por eso falla te recomiento que pongas el incremento de la variable antes del if, i al if agregarle >=, ej:
y = y+1 if y >= MaxPass then y = 1
yo ya lo probe de esta manera y no me ha fallado
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
sorcerer
Desconectado
Mensajes: 365
|
entiendo..... pero me sigue saliendo una falla cuando lo intento desencriptr despues del open....
|
|
|
En línea
|
Las creaciones humanas son imperfectas, por la imperfeccion de su creador
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
que falla te sale???, porque a mi no me falla para nada
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
creo que ya encontre la falla, el programa marca error cuando tratas de cifrar una cadena de texto que ya estaba cifrada
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
sorcerer
Desconectado
Mensajes: 365
|
no no, cuando cifro algo y le hago save... despues abro ese algo e intento descifrar no descifra
|
|
|
En línea
|
Las creaciones humanas son imperfectas, por la imperfeccion de su creador
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
pero que error te marca?? te envia solo basura??? no hace nada??
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
sorcerer
Desconectado
Mensajes: 365
|
runtime error: '5'
invalid procedure call or argument
sale eso.... y cuando apreto en debug me marca la linea
decrypted = decrypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) - Asc(Mid(Text1.Text, y, 1)))
|
|
|
En línea
|
Las creaciones humanas son imperfectas, por la imperfeccion de su creador
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Probelma con AS
Desarrollo Web
|
Riki_89D
|
0
|
1,805
|
30 Noviembre 2010, 12:57 pm
por Riki_89D
|
|
|
Probelma en C. Ayuda!!!
Programación C/C++
|
jhonsc
|
9
|
3,139
|
15 Enero 2012, 18:26 pm
por jhonsc
|
|
|
probelma al compilar c+gtk
Programación C/C++
|
Drewermerc
|
9
|
2,901
|
19 Abril 2014, 03:27 am
por Drewermerc
|
|
|
probelma samaba
GNU/Linux
|
ciberdelia
|
0
|
1,624
|
6 Enero 2016, 01:24 am
por ciberdelia
|
|
|
[Resuelto] sobre un probelma en la web
Desarrollo Web
|
cotin
|
4
|
3,636
|
26 Junio 2020, 20:21 pm
por cotin
|
|