Quiero usar VB para crear un software de cifrado TxT. ¡Por favor, déme consejos de expertos!
'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)