랜덤 문자열 생성

원하는 길이의 문자열을 생성하는 함수.
장난질할 때 쓰기 위해 만든 것.
패턴지정 등을 하는 부분이 추가되면 더 쓸만할라나.




// 문자열에 사용할 문자셋
const
  CHAR_SET: array [0..85] of Char =
    (
      '0','1','2','3','4','5','6','7','8','9',
      'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',
      'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
      '`','~','!','@','#','$','%','^','&','*','(',')','-','_','+','=','|','\',',','<','.','>','/','?'
    );

// 랜덤 한문자 추출
function GetRandomChar: Char;
begin
  Randomize;
  Result:=CHAR_SET[Random(High(CHAR_SET))];
end;

// 지정된 길이만큼 랜덤 문자열 추출
function GetRandomString(Start, Range: Integer): String;
var
  i: Integer;
begin
  Result:='';
  Randomize;
  for i:=0 to Start do Result:=Result+GetRandomChar;
  for i:=0 to Random(Range-Start) do Result:=Result+GetRandomChar;
end;