Red de conocimiento informático - Espacio del host - Quiero usar VB para crear un software de cifrado TxT. ¡Por favor, déme consejos de expertos!

Quiero usar VB para crear un software de cifrado TxT. ¡Por favor, déme consejos de expertos!

Si desea cifrar un archivo txt, debe utilizar un algoritmo de cifrado binario. Puede consultar esta ~ mi función en Internet StringGetBytes(pBytes() As Byte) As String

'Obtener una cadena de una matriz de bytes [compatible con chino]

Dim tOutStr Como cadena

Dim tLoop como entero

Dim tByteLen como entero

tByteLen = UBound(pBytes)

For tLoop = 0 To tByteLen

tOutStr = tOutStr & ChrB( pBytes(tLoop))

Siguiente

StringGetBytes = tOutStr

Función final

Función BytesGetByString(pString As String, pBytes() As Byte)

'Guarda la cadena en una matriz [compatible con chino]

Dim tStrLength As Integer

Atenuar tLoop como entero

Atenuar tCodeStart como byte

tStrLength = LenB(pString)

Para tLoop = 1 a tStrLength

tCodeStart = AscB(MidB(pString, tLoop, 1))

ReDim Preserve pBytes(tLoop - 1)

pBytes(tLoop - 1) = tCodeStart

Siguiente

Función final

Función EncryptBytesGet(pBytes() As Byte, pKeyWords() As Byte)

'Cifrar bytes según la clave, según la clave de contraseña matriz de bytes cifrados

Dim tByteStart As Long

Dim tByteEnd As Long

Dim tByteStart As Long

Dim tByteEnd As Long

Función final

Función final EncryptBytesGet(cadena larga

Dim tByteOn As Long

Dim tKeyStart As Integer

Dim tKeyLen como entero

tByteEnd = UBound(pBytes)

tByteOn = LBound(pBytes)