SRL Archive - Other Scripts

{.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.

function Number:integer;
var NumberCase: array[1..10] of integer;

its NumberCase: array[1..10] of integer;
Not NumberCase: array[1..11] of integer;
;)
Nice pass creator!

Does this randomly generate letters and numbers then create a password?

Does it create a pass for us or tryes to crack someone's pass?

It creates pass!
If you would read through the code ud know.

not bad, though i don't think this is rly an RS script =P
Here, I messed with it a bit, give it a look, might learn something from it :)

program PassGen;

var
  Password: string;

const
  MinLength = 5;
  MaxLength = 20;

function Letter: string;
var
  Letters: string;
begin
  Letters := 'abcdefghijklmnopqrstuvwxyz';
  Result := Letters[Random(26) + 1];
end;

function Number: string;
var
  Numbers: string;
begin
  Numbers := '0123456789'
  Result := Numbers[Random(10) + 1];
end;

function SetTextLength: Integer;
begin
  Result := MinLength + Random(MaxLength - MinLength + 1);
end;

procedure CreatePass(Length: Integer);
var
  i: Integer;
begin
  for i := 1 to Length do
    if Random(10) < 5 then
      Password := Password + Number
    else
      Password := Password + Letter;
  WriteLn('Password: ' + Password);
end;

procedure ShowPassWordsClearly;
begin
  WriteLn('///////////////////////////////////////');
  WriteLn('///  Pass creator ultima by n3ss3s  ///');
  WriteLn('///////////////////////////////////////');
  CreatePass(SetTextLength);
  WriteLn('///////////////////////////////////////');
end;

begin
  ClearDebug;
  ShowPassWordsClearly;
end.

No RS Script, moved.

Ehh… I swear i posted this about an hour ago but i cant see my post…

Theres never going to be a 0 or a z because Random(10) chooses a random number up to 9, starting from 0. So it will never be 10, same with random(26).

From: danrox2004
Ehh… I swear i posted this about an hour ago but i cant see my post…

Theres never going to be a 0 or a z because Random(10) chooses a random number up to 9, starting from 0. So it will never be 10, same with random(26).

pretty clear as i modified that in the cleaned up version i made:

function Letter: string;
var
  Letters: string;
begin
  Letters := 'abcdefghijklmnopqrstuvwxyz';
  Result := Letters[Random(26) + 1];
end;
 
function Number: string;
var
  Numbers: string;
begin
  Numbers := '0123456789'
  Result := Numbers[Random(10) + 1];
end;

Ty freddy.
Oh and do you know where can i find hey321's pascal standardizer?

From: n3ss3s
Ty freddy.
Oh and do you know where can i find hey321's pascal standardizer?

Does such a contraption exist? :)

Yes…it's not hey321's though

I'll find the link in a sec…

_________________________

Here

From: Smartzkid
Yes…it's not hey321's though

I'll find the link in a sec…

_________________________

Here

Ooooh…

I LOVE IT!

It's not mine, i believe Kane got it off of Mopar :P.

what is this script supose to do??

it gives you a pasword in the box after you run ti btu what are the passwords for ??
plz reply to my post

you use it when creating accounts, it adds security to bankers and mules.

From: Freddy1990
not bad, though i don't think this is rly an RS script =P
Here, I messed with it a bit, give it a look, might learn something from it :)

program PassGen;

var
  Password: string;

const
  MinLength = 5;
  MaxLength = 20;

function Letter: string;
var
  Letters: string;
begin
  Letters := 'abcdefghijklmnopqrstuvwxyz';
  Result := Letters[Random(26) + 1];
end;

function Number: string;
var
  Numbers: string;
begin
  Numbers := '0123456789'
  Result := Numbers[Random(10) + 1];
end;

function SetTextLength: Integer;
begin
  Result := MinLength + Random(MaxLength - MinLength + 1);
end;

procedure CreatePass(Length: Integer);
var
  i: Integer;
begin
  for i := 1 to Length do
    if Random(10) < 5 then
      Password := Password + Number
    else
      Password := Password + Letter;
  WriteLn('Password: ' + Password);
end;

procedure ShowPassWordsClearly;
begin
  WriteLn('///////////////////////////////////////');
  WriteLn('///  Pass creator ultima by n3ss3s  ///');
  WriteLn('///////////////////////////////////////');
  CreatePass(SetTextLength);
  WriteLn('///////////////////////////////////////');
end;

begin
  ClearDebug;
  ShowPassWordsClearly;
end.

Should that not be random(25)+1 ? Otherwise you have a chance on getting the 27th letter which is non existant.. Same with the number bit.

Wow, this is a good idea for a script. I shall test it now and if i like it i will most likely use it from now on for my banker passwords.

From: ~alex~
Should that not be random(25)+1 ? Otherwise you have a chance on getting the 27th letter which is non existant.. Same with the number bit.

You obviously still have alot to learn ;)
Random returns a number from 0 to the number you entered - 1

neat little script.

Nice script, will use it in future for my pass's tbh.