var
i:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=97;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i >121 then timer1.Enabled:=false;
memo1.Lines.Add(chr(i));
i:=i+1;
end;
const
conso: array [0..51] of Char = ('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');
DBNAME = 'Phonebook.MDB';
DBPASSWORD = 'nn'; // Access DB Password Protected
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit4.Text:= inttostr( strtoint(edit4.Text)+1);
if strtoint(edit2.Text)<>52 then
begin
edit3.Text := '';
edit2.Text:= inttostr( strtoint(edit2.Text)+1);
edit3.Text :=edit3.Text + conso[(strtoint(edit1.Text))];
edit3.Text :=edit3.Text + conso[(strtoint(edit2.Text))];
end;
//////////
if strtoint(edit2.Text)=52 then
begin
edit3.Text := '';
edit1.Text:= inttostr( strtoint(edit1.Text)+1);
edit2.Text:='-1';
edit2.Text:= inttostr( strtoint(edit2.Text)+1);
edit3.Text :=edit3.Text + conso[(strtoint(edit1.Text))];
edit3.Text :=edit3.Text + conso[(strtoint(edit2.Text))];
end;
end;
const
ciph: array [0..51] of Char = ('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');
var
i,L:integer;
begin
L:=length(ciph)-1;
for i:= 0 to L Do Begin
Label1.Caption := ciph[i];
Application.ProcessMessages;
sleep(10);
end;
end;
const
ciph: array [0..51] of Char = ('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');
var
j,i,L:integer;
begin
L:=length(ciph)-1;
for j:= 0 to L Do
for i:= 0 to L Do Begin
Label1.Caption := ciph[j]+ciph[i];
Application.ProcessMessages;
sleep(10);
end;
end;
const
ciph: array [0..51] of Char = ('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');
var
k,j,i,L:integer;
begin
L:=length(ciph)-1;
for k:= 0 to L Do
for j:= 0 to L Do
for i:= 0 to L Do Begin
Label1.Caption := ciph[k]+ciph[j]+ciph[i];
Application.ProcessMessages;
sleep(10);
end;
end;
const
ciph: array [0..51] of Char = ('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');
var
m,k,j,i,L:integer;
begin
L:=length(ciph)-1;
for m:= 0 to L Do
for k:= 0 to L Do
for j:= 0 to L Do
for i:= 0 to L Do Begin
Label1.Caption := ciph[m]+ciph[k]+ciph[j]+ciph[i];
Application.ProcessMessages;
sleep(10);
end;
end;
const
ciph: array [0..51] of Char = ('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');
var
n,m,k,j,i,L:integer;
begin
L:=length(ciph)-1;
for n:= 0 to L Do
for m:= 0 to L Do
for k:= 0 to L Do
for j:= 0 to L Do
for i:= 0 to L Do Begin
Label1.Caption := ciph[n]+ciph[m]+ciph[k]+ciph[j]+ciph[i];
Application.ProcessMessages;
sleep(10);
end;
end;