Pascal Descobrir o tipo de Hash

[NunoDias]

Aqui tem um programa muito simples para descobrir o tipo de encriptação da sua hash.
Falta--me so uma coisinha, que e quando a hash nao corresponde a nenhum daquele valor, ser preciso repetir. Nao consigo fazer isso.
Aqui fica, criticas precisam-se

Program Hashdiscovery ;
var
num :string;
tam :integer;
 Begin
  Writeln ('Desenvolvido por NunoDias');
  Writeln ('Este programa diz-te o tipo de 16 tipos diferentes de hash!');
  writeln;
  write ('Escreva a tua hash:');
  readln (num);
  writeln;
  tam:=length(num);
  case tam of
  8 : writeln ('A sua hash é ADLER32 ou CRC-32 ou GHash-32');
  4 : writeln ('A sua hash é CRC-16 ou CRC-16-CCITT ou ainda FCS-16 ');
  13 : writeln ('A sua hash é DES (unix) ');
  40 : writeln ('A sua hash é sha-1 ou MySql v5.x ');
  28 : writeln ('A sua hash é SHA-1 (base64)  ');
  46 : writeln ('A sua hash é SHA-1 (Django) ');
  64 : writeln ('A sua hash é SHA-256 ');
  56 : writeln ('A sua hash é SHA-224');
  96 : writeln ('A sua hash é SHA-384');
  128 : writeln ('A sua hash é SHA-512 ou Whirlpool');
  48 : writeln ('A sua hash é Haval-192');
  224 : writeln ('A sua hash é Haval-224');
  34 : writeln ('A sua hash é MD5(Unix) ou MD5(phpBB3) Oou MD5(Wordpress)');
  32 : writeln ('A sua hash é MD5 ou MD4 ou MD2');
  16 : writeln ('A sua hash é MySQL Under 5');
  57 : writeln ('A sua hash é Snefru ou Gost') 
  else writeln ('Essa hash nao existe'); 
 End;
 end.

[NunoDias]

Va la pessoal, dem aqui uma ajudinha.
Eu quero que quando o nr de caracteres nao for igual aquele, em vez de fechar, pedir para repetir e fazer um jump.

Cumps.

[Nickguitar.dll]

Fiz um desses em perl , look :> [ame]http://www.youtube.com/watch?v=ZIUDObYcP8E[/ame]

[singur]

Ta muito mal programado.

[Nickguitar.dll]

Todos os tópicos sobre programação que voce ve voce comenta isso.. Incrível..

(=

[singur]

Fica evidente um padrao aqui, certo?

[Vetus]

Arrogância e egocentrismo também.

[fornecedordesoft]

Funcionando

Fiz pelo console do Delphi, pode dar uma variada em pascal puro, ou pascal for Windows...

segue lá:

Program Hashdiscovery ;
{$APPTYPE CONSOLE}

label inicio;
var
num :string; tam :integer;
 Begin
  Writeln;
  Writeln ('    Desenvolvido por NunoDias');
  Writeln ('    Este programa diz-te o tipo de 16 tipos diferentes de hash!');
  writeln;

  inicio: //no final o code manda voltar para ca.

  write ('    Escreva a tua hash: ');
  readln (num);
  writeln;
  tam:=length(num);
  case tam of
  8 : writeln ('A sua hash é ADLER32 ou CRC-32 ou GHash-32');
  4 : writeln ('A sua hash é CRC-16 ou CRC-16-CCITT ou ainda FCS-16 ');
  13 : writeln ('A sua hash é DES (unix) ');
  40 : writeln ('A sua hash é sha-1 ou MySql v5.x ');
  28 : writeln ('A sua hash é SHA-1 (base64)  ');
  46 : writeln ('A sua hash é SHA-1 (Django) ');
  64 : writeln ('A sua hash é SHA-256 ');
  56 : writeln ('A sua hash é SHA-224');
  96 : writeln ('A sua hash é SHA-384');
  128 : writeln ('A sua hash é SHA-512 ou Whirlpool');
  48 : writeln ('A sua hash é Haval-192');
  224 : writeln ('A sua hash é Haval-224');
  34 : writeln ('A sua hash é MD5(Unix) ou MD5(phpBB3) Oou MD5(Wordpress)');
  32 : writeln ('A sua hash é MD5 ou MD4 ou MD2');
  16 : writeln ('A sua hash é MySQL Under 5');
  57 : writeln ('A sua hash é Snefru ou Gost')
  else writeln ('Essa hash nao existe');

end;
writeln ('Pressione ENTER para continuar...');
readln;
writeln;
goto inicio;
end.