Vigenère cipher: Difference between revisions
Content added Content deleted
(Standard Pascal) |
|||
Line 1,701:
// convert a string to uppercase
FUNCTION ucase(str: STRING): STRING;
BEGIN
ucase := '';
Line 1,730:
vkey := '';
FOR c := 1 TO Length(pt) DO BEGIN
n := c mod
IF n>0 THEN vkey += k[n] ELSE vkey += k[Length(k)];
END;
|