Originariamente inviato da lomiz
Grazie. Sapresti comunque aiutarmi su quel codice di decriptazione sul programma che avevo postato prima?
codice:
program decrit;

 var 
  s,d,tmp:string[255]; 
  i,j,l,k,m,n:integer; 
  flag:boolean;

 begin 
  writeln('Inserisci la stringa da decrittare'); 
  readln(s);
  d:='';
  l:=Length(s);
  i:=1;
  while i<l do 
  begin
   j:=i;
   tmp:='';
   flag:=TRUE;
   while flag do
   begin
    if s[j]<>'0' then
    begin
     tmp:=tmp+s[j];
     j:=j+1;
    end
    else
    begin
     if s[j+1]='0' then
     begin
      tmp:=tmp+s[j];
      j:=j+2;
     end
     else j:=j+1;
     flag:=FALSE;
    end;
   end;
   i:=j;
   n:= Length(tmp);
   m:=0;
   for k:=1 to n do
    m:=m+(ord(tmp[k])-48)*(10 Pow (n-k));
   m:=m div 2;
   d:=d+Chr(m);
  end;
  writeln('La stringa decrittata è:');
  writeln(d);
 end.
Comunque tengo a sottilineare che , in generale, la sicurezza di un codice dovrebbe dipendere esclusivamente dalla segretezza della chiave e non da quella dell'algoritmo . Nel tuo caso il codice dipende solo dall'algoritmo , per cui , non è sicuro .