Symo

Solo disponible en BuenasTareas
  • Páginas : 2 (465 palabras )
  • Descarga(s) : 0
  • Publicado : 19 de junio de 2011
Leer documento completo
Vista previa del texto
PROGRAM SYMO;
VAR
CONCAT_C, CONCAT_M,CLAVE,MENSAJE,BIN_C,BIN_M,CAMBIO, ASCI: string;
CARACTER_C, CARACTER_M: char;
i,j: integer;{--------------------------------------------------------------------------------}
FUNCTION CONVERSION(num: integer): string;
VAR
n_bin: STRING;
mazcara, i : integer;
BEGIN
n_bin:='';
mazcara:= 1;
FOR i:= 1 to 8 DOBEGIN
IF (num AND mazcara) = 0 THEN
BEGIN
n_bin:= '0' + n_bin;
END
ELSE
BEGIN
n_bin:= '1' + n_bin;
END;mazcara:= mazcara*2;
END;
CONVERSION:= n_bin;
END;
{--------------------------------------------------------------------------------}
FUNCTION COMPARAR( clave, mensaje:STRING): STRING;
VAR
bincifra1: STRING;
i,j: INTEGER;
BEGIN
if LENGTH(clave)=LENGTH(mensaje) then
begin
bincifra1:='';
j:= 1;
FOR i:=1 TO LENGTH(clave)DOBEGIN
IF clave[i] = mensaje[j] THEN
BEGIN
bincifra1:= bincifra1 + '0';
j:= j + 1;
END
ELSE
BEGINbincifra1:= bincifra1 + '1';
j:= j + 1;
END;
END;
END;
COMPARAR:= bincifra1;
END;
FUNCTION ASCII(CAMBIO: STRING):STRING; {CAMBIA ENTERO EN CARACTER PARAPASARLO A ASCII}
VAR
CONT, CONT2, i, C, NUM, CIFRA, e: INTEGER;
X, BINCIFRA2, GRUPO: STRING;
CARACTER: CHAR;
BEGIN
CONT:= 1;
CONT2:= CONT + 1;
WHILE CONT <=LENGTH(CAMBIO) DO
BEGIN
X:='';
FOR i:= CONT TO CONT2 DO
BEGIN
X:= CAMBIO[i] + X;
END;
BINCIFRA2:= BINCIFRA2 + X;CONT:= CONT + 2;
END;
FOR i:= 1 TO LENGTH(BINCIFRA2) DO
BEGIN
GRUPO:='';
FOR i:= 1 TO 7 DO
BEGIN
GRUPO:= GRUPO + BINCIFRA2[i];...
tracking img