SCAR Code:
{.Script Info:
# ScriptName = Uber password creator by n3ss3s
# Author = n3ss3s
# Description = 1337
# Version = 1
# Date = 5.4.07
# Comments = Pwnz
/Script Info}
program New;
function Letter:string;
var LetterCase: array[1..26] of string;
begin
LetterCase[1]:= 'a';
LetterCase[2]:= 'b';
LetterCase[3]:= 'c';
LetterCase[4]:= 'd';
LetterCase[5]:= 'e';
LetterCase[6]:= 'f';
LetterCase[7]:= 'g';
LetterCase[8]:= 'h';
LetterCase[9]:= 'i';
LetterCase[10]:= 'j';
LetterCase[11]:= 'k';
LetterCase[12]:= 'l';
LetterCase[13]:= 'm';
LetterCase[14]:= 'n';
LetterCase[15]:= 'o';
LetterCase[16]:= 'p';
LetterCase[17]:= 'q';
LetterCase[18]:= 'r';
LetterCase[19]:= 's';
LetterCase[20]:= 't';
LetterCase[21]:= 'u';
LetterCase[22]:= 'v';
LetterCase[23]:= 'w';
LetterCase[24]:= 'x';
LetterCase[25]:= 'y';
LetterCase[26]:='z';
result:=LetterCase[random(26)];
end;
procedure PrintKey(Key:string);
begin
writeln(Key);
end;
function Number:integer;
var NumberCase: array[1..11] of integer;
begin
NumberCase[1]:=1;
NumberCase[2]:=2;
NumberCase[3]:=3;
NumberCase[4]:=4;
NumberCase[5]:=5;
NumberCase[6]:=6;
NumberCase[7]:=7;
NumberCase[8]:=8;
NumberCase[9]:=9;
NumberCase[10]:=0;
result:=NumberCase[random(10)];
end;
procedure PrintNumber(Number:integer);
begin
writeln(IntToStr(number));
end;
function SetTextLength:integer;
begin
result:=random(20);
end;
procedure CreatePass(length:integer);
var i:integer;
begin
i:=0;
repeat
if(Random(10)) < (5) then
begin
PrintNumber(Number);
end else
begin
PrintKey(Letter);
end;
i:=i+1;
until(i = Length);
end;
procedure ShowPassWordsClearly;
begin
writeln('///////////////////////////////////////');
writeln('////Pass creator ultima by n3ss3s//////');
writeln('///////////////////////////////////////');
CreatePass(SetTextLength);
writeln('ÎÎÎÎÎÎ PASSWORD ÎÎÎÎÎÎ');
writeln('Please, come again. ');
end;
begin
ShowPassWordsClearly;
end.
owned.