Results 1 to 21 of 21

Thread: Uber password creator. Its here!

  1. #1
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default Uber password creator. Its here!

    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.

  2. #2
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    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!

  3. #3
    Join Date
    Oct 2006
    Posts
    517
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  4. #4
    Join Date
    Nov 2006
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  5. #5
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

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

  6. #6
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    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
    SCAR Code:
    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.

  7. #7
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    No RS Script, moved.
    Administrator's Warning:


  8. #8
    Join Date
    Oct 2006
    Posts
    207
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  9. #9
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by danrox2004 View Post
    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:
    SCAR Code:
    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;

  10. #10
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

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

  11. #11
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by n3ss3s View Post
    Ty freddy.
    Oh and do you know where can i find hey321's pascal standardizer?
    Does such a contraption exist?

  12. #12
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Yes...it's not hey321's though

    I'll find the link in a sec...

    _________________________

    Here
    Interested in C# and Electrical Engineering? This might interest you.

  13. #13
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Smartzkid View Post
    Yes...it's not hey321's though

    I'll find the link in a sec...

    _________________________

    Here
    Ooooh...

    I LOVE IT!

  14. #14
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  15. #15
    Join Date
    Apr 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  16. #16
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

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

  17. #17
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Freddy1990 View Post
    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
    SCAR Code:
    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.

  18. #18
    Join Date
    Nov 2006
    Location
    Wisconsin
    Posts
    1,629
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    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.


    Quote Originally Posted by Rubix View Post
    Quote Originally Posted by Dan Cardin View Post
    you ought to listen to Mr. Klean...he's magical!
    this.

  19. #19
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by ~alex~ View Post
    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

  20. #20
    Join Date
    May 2007
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    neat little script.

  21. #21
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. I'm an uber n00b
    By teh_lulz in forum Who Are You ? Who ? Who ?
    Replies: 9
    Last Post: 05-31-2009, 04:38 PM
  2. How to drawlz deh uber Erf?
    By TViYH in forum Graphics and Multimedia
    Replies: 17
    Last Post: 10-02-2008, 08:41 AM
  3. 4 letter name creator name creator
    By infested999 in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 04-03-2008, 01:04 PM
  4. need uber help =\
    By shock colla in forum OSR Help
    Replies: 2
    Last Post: 06-10-2007, 03:22 PM
  5. Uber script request.
    By zertoyah in forum RS3 Outdated / Broken Scripts
    Replies: 11
    Last Post: 03-20-2007, 01:40 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •