Hex2Binary

[Stefan Glienke 2002]

@Mahdi Safsafi Optimized it:

 

{$O+}
function foo(I: Integer): Integer;
begin
  case I of
    0: Exit(random(255));
    1..5: Exit(i+2);
//    2: Exit(4);
//    3: Exit(5);
//    4: Exit(6);
//    5: Exit(7);
  else
    Exit(0);
  end;
end;

Scnr 

[Mahdi Safsafi 225]

@Stefan Glienke You're unbelievable man ! The next time I'm going to demonstrate something ... I'll make sure that Stefan will not find a link between the input and the output (hmm TRNGs)