ブルートフォースアタック用文字列作成 (ID:39078)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

何か書きかけが気になりますが、要はｎ進数ですよね。

function CharRoop(aChar:Char; Count:Integer):string;
var
  i: Integer;
begin
  Result := '';
  for i := 0 to Count - 1 do
    Result := Result + aChar;
end;

function GetString(fChars:string; n,Count: Integer): string;
var
  aLen:Integer;
begin
  aLen := Length(fChars);
  Result := '';
  repeat
    Result := fChars[(Count mod aLen) +1] + Result;
    Count  := Count div aLen;
  until Count = 0;
  Result := CharRoop(fChars[1], n-Length(Result)) + Result;
end;

function GetStringAll(fChars:string; n: Integer): string;
var
  aLen,aMax:Integer;
  i: Integer;
begin
  aLen := Length(fChars);
  aMax := aLen;
  for i := 0 to n - 2 do
    aMax := aMax * aLen;
  for i := 0 to aMax - 1 do
    Result := Result + GetString(fChars,n,i) + #$D#$A;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  ListBox1.Clear;
  for i := 0 to 81 - 1 do
    ListBox1.Items.Add(GetString('ABC',4,i));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Clear;
  ListBox1.Items.Text := GetStringAll('ABC',4);
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る