Red de conocimiento informático - Problemas con los teléfonos móviles - Cifrado y descifrado VB6.0

Cifrado y descifrado VB6.0

Personalmente, creo que es mejor usar el control del reloj para leer en tiempo real, porque durante la prueba, descubrí que VB no responde durante mucho tiempo al leer.

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.