elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  probelma con textbox
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: probelma con textbox  (Leído 3,576 veces)
sorcerer


Desconectado Desconectado

Mensajes: 365



Ver Perfil
probelma con textbox
« en: 17 Noviembre 2006, 14:12 pm »

bue estoy haciendo un pequeño trabajo para la escuela en el cual cifro un texto de la formma siguiente:

Código:
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:
Código:
 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>>>
Código:
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>>>
Código:
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>>>
Código:
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 Desconectado

Mensajes: 543



Ver Perfil
Re: probelma con textbox
« Respuesta #1 en: 17 Noviembre 2006, 22:52 pm »

Citar

Código:
 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 Desconectado

Mensajes: 365



Ver Perfil
Re: probelma con textbox
« Respuesta #2 en: 18 Noviembre 2006, 16:07 pm »

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 Desconectado

Mensajes: 543



Ver Perfil
Re: probelma con textbox
« Respuesta #3 en: 18 Noviembre 2006, 22:36 pm »

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 Desconectado

Mensajes: 365



Ver Perfil
Re: probelma con textbox
« Respuesta #4 en: 21 Noviembre 2006, 16:38 pm »

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 Desconectado

Mensajes: 543



Ver Perfil
Re: probelma con textbox
« Respuesta #5 en: 22 Noviembre 2006, 15:37 pm »

que falla te sale???,  :huh: 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 Desconectado

Mensajes: 543



Ver Perfil
Re: probelma con textbox
« Respuesta #6 en: 22 Noviembre 2006, 16:37 pm »

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 Desconectado

Mensajes: 365



Ver Perfil
Re: probelma con textbox
« Respuesta #7 en: 24 Noviembre 2006, 10:58 am »

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 Desconectado

Mensajes: 543



Ver Perfil
Re: probelma con textbox
« Respuesta #8 en: 24 Noviembre 2006, 14:12 pm »

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 Desconectado

Mensajes: 365



Ver Perfil
Re: probelma con textbox
« Respuesta #9 en: 1 Diciembre 2006, 05:56 am »

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
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Probelma con AS
Desarrollo Web
Riki_89D 0 1,810 Último mensaje 30 Noviembre 2010, 12:57 pm
por Riki_89D
Probelma en C. Ayuda!!!
Programación C/C++
jhonsc 9 3,158 Último mensaje 15 Enero 2012, 18:26 pm
por jhonsc
probelma al compilar c+gtk
Programación C/C++
Drewermerc 9 2,922 Último mensaje 19 Abril 2014, 03:27 am
por Drewermerc
probelma samaba
GNU/Linux
ciberdelia 0 1,630 Último mensaje 6 Enero 2016, 01:24 am
por ciberdelia
[Resuelto] sobre un probelma en la web
Desarrollo Web
cotin 4 3,652 Último mensaje 26 Junio 2020, 20:21 pm
por cotin
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines