border
VB 6

Miembros:
Mensajes:
Temas:
Online:

Ultimo Miembro:

 
 
  #1 (permalink)  
Antiguo 18-04-2006, 21:56:06
Un Nuevo Amigo
 
Registrado: abr 2006
Posts: 1
Créditos: 86
rob119 Valoración +2
Predeterminado encriptar un texto linea a linea

alguien sabe como encriptar un texto en un TextBox multilinea de esta forma:

texto sin encriptar texto encriptado
texto sin encriptar texto encriptado
texto sin encriptar texto encriptado

quiero decir que al abrir un documento lo encripte
hasta el final de la primera linea, despues haga lo
mismo con la segunda, la tercera, ect.

La utilidad de esta aplicacion es la desencriptar o encriptar en un momento dado unos archivos de texto para que no sean legibles.Ya que tengo un programa que guarda los datos que se hacen en un archivo de texto consecutivamente y los encripta segun una clave.
Pero al desencriptarlos con el otro programa todas las lineas del texto aparecen encriptadas
en una sola.
La rutina de encriptacion y la clave es la misma tanto en el archivo de texto como en el programa desencriptador-encriptador.

Para encriptar de linea en linea utilizo:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETLINECOUNT = &HBA
Const EM_LINEFROMCHAR = &HC9
Const EM_LINELENGTH = &HC1

Private Sub TextoLinea(qControl As TextBox)
Dim i As Long, k As Long
Dim L1 As Long, L2 As Long
k = SendMessage(qControl.hwnd, EM_GETLINECOUNT, 0, 0&)
For i = 0 To k - 1
' Primer carácter de la línea actual
L1 = SendMessage(qControl.hwnd, EM_LINEINDEX, i, 0&) + 1
' Longitud de la línea actual
L2 = SendMessage(qControl.hwnd, EM_LINELENGTH, L1, 0&)
' Imprimimos el trozo de texto que representa a una línea
(como no es para inprimir aqui no tengo ni idea de que poner¿?) Mid$(qControl.Text, L1, L2)
Next
'Aqui se libera objeto a algo asi
End Sub

o tambien For each...Next pero no se exactamente si estos metodos son validos ni como inplementarlos.
Agradezco mucho la ayuda que ustedes me puedan brindar.
Archivos Adjuntos
Tipo de Archivo: zip encryptspy.zip (14,5 KB, 16 visitas)
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 18-04-2006, 22:01:56
Avatar de J.M.Movilla
Administrador
 
Registrado: dic 2002
Ubicación: BURGOS - ESPAÑA
Posts: 9.164
Créditos: 72.088
J.M.Movilla ha deshabilitado la reputación
Predeterminado

Lo que pretendes, amigo rob119, se me antoja tan absurdo que me parece que lo único que buscas es hacer una prueba de habilidad de los miembros del Foro... Pero como por otra parte cabe la posibilidad de que tu pregunta tenga para ti su lógica, te ruego nos indiques la utilidad de ese método, y a buen seguro que yo mismo me comprometeré a estudiar la respuesta.
__________________
José María Movilla Cuadrado
______________________
Normas del foro
www.foro.vb-mundo.com
www.vb-mundo.com
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Línea s0rdsi?? susio24 Visual Basic 6.00 2 20-03-2007 17:19:15
Borrar una línea mamer182 Visual Basic 6.00 4 15-12-2006 08:40:55
LEER PRIMERA LINEA DE TEXTO Hewlett Visual Basic 6.00 1 16-02-2005 18:47:22
Texto en Siguiente linea de un TextBox chlsaul Visual Basic 6.00 6 17-09-2004 00:00:00
Detectar texto en la última linea (textbox) n1tr4t0 Visual Basic 6.00 7 29-03-1970 06:02:28


La franja horaria es GMT. Ahora son las 03:57:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
© VB-MUNDO CO. Todos los derechos reservados
Tutoriales Premium | Juegos Online 


right

Programacion, vb 6, visual basic, foro programacion

Inactive Reminders By Icora Web Design