Josber, toma tío, es una DLL que he hecho yo en COBOL, algoritmo mío. No se ve nada de nada ni en hexadecimal
Trabaja con cadenas de PIC X(50). Si necesitas más, llámala varias veces.
Para llamarla:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
*> LINKAGE DE LLAMADA
01 LNK-KCRYPT. *> E - encripta, D - decripta
05 LNK-OPCION PIC X. *> Modo de llamada E/D
05 LNK-TEXTO PIC X(50).
05 LNK-ENCRIPT PIC X(50).
PROCEDURE DIVISION.
*> EJEMPLOS
*> Encripta:
MOVE "E" TO LNK-OPCION
MOVE "ABCDEFGHIJ012345678912345" &
"ABCDEFGHIJ012345678912345" TO LNK-TEXTO
CALL "KCRYPT" USING LNK-KCRYPT
MOVE LNK-ENCRIPT TO POW-TEXT OF CmText1
*> Decripta:
MOVE "D" TO LNK-OPCION
MOVE POW-TEXT OF CmText1 TO LNK-ENCRIPT
CALL "KCRYPT" USING LNK-KCRYPT
MOVE LNK-TEXTO TO POW-TEXT OF CmText2
Verás qué bonita la porquería que se ve en encriptado
