Cómo cifrar y descifrar cadenas (incluidos caracteres chinos) en vb

Función pública StringEnDeCodecn(strSource As String, MA) As String

'Esta función solo cifra texto chino y occidental

' Los parámetros son: archivo fuente, contraseña

En caso de error, vaya a ErrEnDeCode

Atenuar X como único

Atenuar CHARNUM mientras sea largo, RANDOMINTEGER como entero

Dim SINGLECHAR Como Cadena * 1

Dim strTmp Como Cadena

Si MA lt;0 Entonces

MA = MA * (-1)

Finalizar si

X = Rnd(-MA)

For i = 1 To Len(strSource) Paso 1 'Tomar contenido de un solo byte

SINGLECHAR = Mid( strSource, i, 1)

CHARNUM = Asc(SINGLECHAR)

g: RANDOMINTEGER = Int(127 * Rnd)

If RANDOMINTEGER lt; 30 O RANDOMINTEGER gt; 100 Luego vaya a g

CHARNUM = CHARNUM Xor RANDOMINTEGER

strTmp = strTmp amp;

StringEnDeCodecn = strTmp

Función de salida

ErrEnDeCode:

StringEnDeCodecn = ""

MsgBox Err.Number amp "\" amp; Función final

Cómo utilizar:

tmp=stringEnDecn("República Popular de China", 75)

Para descifrar, simplemente escriba la siguiente declaración:

tmp1=stringendecn(tmp，75)