Cifrado y descifrado VB6.0
Control de reloj: agregue un " Timer2" y establezca Habilitado en Falso
Modificación: cambie Texto3 a Texto1
Pensamiento: establezca iv en el número de líneas que se leerán (para visualización), yy en una sola línea de texto en el archivo y luego use el control del reloj para leer archivos, por lo que se debe agregar un botón "Abrir" para abrir el reloj y se debe eliminar el método de lectura original
Código:
Dim iv, yy
Privado: agregue un "Timer2" y establezca Habilitado en Falso. lt; n
oByte(i) = Asc(Mid(pwd, i 1, 1))
oByte(i) = 21 Xor oByte(i)
temp(i) = Chr(oByte(i))
i = i 1
Bucle
Texto2 = Unirse(temp, "")
Subcomando final
Subcomando privado2_Click()
i = 0
pwd = Texto2
n = Len (pwd)
ReDim oByte(0 To n - 1), temp(0 To n - 1)
Hacer mientras i lt;
oByte( i) = Asc(Mid(pwd, i 1, 1))
oByte(i) = 21 Xor oByte(i)
temp(i) = Chr(oByte(i ) ))
i = i 1
Bucle
Texto1 = Unirse(temp, "")
Fin Sub
Subcomando privado3_Click()
'CancelError es verdadero.
En caso de error, GoTo ErrHandler
'Establecer filtro.
CommonDialog1.Filter = "Todos los archivos (*. *)|*.*|Archivos TXT (*.txt)|*.txt|Archivos INI (*.ini)|*.ini|archivos dll (*.dll)|*.dll|archivo dat (*.dat)|*.dat"
CommonDialog1.FilterIndex = 2
'Muestra el cuadro de diálogo "Abrir".
CommonDialog1.ShowSave
fn = CommonDialog1.FileName
Abrir fn para salida como #1
Imprimir #1, Text2.Text
Cerrar #1
ErrHandler:
'El usuario presionó el botón cancelar.
Salir del sub
Fin del sub
Sub privado Cmd1_Click()
Texto2 = ""
CDL1. Filter = "Archivo de texto (*.txt)|*.txt|Todos los archivos (*. *)|*.*"
CDL1.ShowOpen
En caso de error, reanudar a continuación
Si CDL1.FileName = "" Entonces salga de Sub
Abra CDL1.
Salir de Sub
Fin si
Entrada de línea #1, yy
Texto2 = Texto2 yy IIf(EOF(1), "", vbCrLf)
End Sub
Veamos quién respondió temprano y bien (el mío solo eliminó el último salto de línea)
Si los quieres todos, entonces puedes usar el salto de última línea.p>
Si desea eliminarlos todos
Dim iv, yy, lens
Dim mbMoving As Boolean
Const sglSplitLimit = 500
Subcomando privado1_Click()
Texto1 = Reemplazar(Text1, vbCrLf, "")
i = 0
contraseña = Texto1
n = Len(contraseña)
ReDim oByte(0 a n - 1), temp(0 a n - 1)
Hacer mientras i lt.n
oByte(i) = Asc(Mid(pwd, i 1, 1))
oByte(i) = 21 Xor oByte(i)
temp(i) = Chr(oByte(i))
i = i 1
Bucle
Texto2 = Unir(temp," ")
Fin Sub
Subcomando privado2_Click()
i = 0
contraseña = Texto2
n = Len(pwd)
ReDim oByte(0 To n - 1), temp(0 To n - 1)
Hacer mientras i lt; >oByte(i) = Asc(Mid(pwd, i 1, 1))
oByte(i) = 21 Xor oByte(i)
temp(i) = Chr( oByte(i))
i = i 1
Bucle
Texto1 = Unir(temp, "")
Texto1 = Reemplazar (Text1, vbCrLf, "")
End Sub
Private Sub Command3_Click()
'CancelError es True.
En caso de error, GoTo ErrHandler
'Establecer filtro.
CommonDialog1.Filter = "Todos los archivos (*. *)|*.*|Archivos TXT (*.txt)|*.txt|Archivos INI (*.ini)|*.ini|archivos dll (*.dll)|*.dll|archivo dat (*.dat)|*.dat"
CommonDialog1.FilterIndex = 2
'Muestra el cuadro de diálogo "Abrir".
CommonDialog1.ShowSave
fn = CommonDialog1.FileName
Abrir fn para salida como #1
Imprimir #1, Text2.Text
Cerrar #1
Text1 = Reemplazar(Text1, vbCrLf, "")
ErrHandler:
'El usuario presionó el botón " Botón Cancelar".
Salir Sub
Finalizar Sub
Sub Privado Cmd1_Click()
Text2 = ""
CDL1.Filter = "Archivo de texto (*.txt)|*.txt|Todos los archivos (*. *)|*.*"
CDL1.ShowOpen
En caso de error Reanudar siguiente
Si CDL1.FileName = "" Entonces salga de Sub
Abra CDL1. Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
Si EOF(1) Entonces
Cierre #1
Abrir CDL1.As #1
Timer2.Enabled = False
Salir Sub
Finalizar si
Línea Entrada #1, yy
Texto2 = Texto2 yy
End Sub
Timer2_Timer()
Si EOF(1) Entonces
Abra CDL1.