Random Char(password) creation

	Print
	Email

Submitted on: 5/20/2003 3:57:17 PM
By: Giles Papworth
Level: Beginner
User Rating:

By 1 Users
Compatibility:5.0 (all versions), Active Perl specific, 4.0 (all versions), 3.0 (all versions), Pre 3.0

Users have accessed this code 1102 times.

This code generates a number of random alpha numeric charactors, can be used for random passwords

Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!


    =**************************************
    = for :Random Char(password) creation
    =**************************************
    All Code Copyright (c) Giles Papworth, Superchief SOftware 2001-2003

code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!

Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


    =**************************************
    = Name: Random Char(password) creation
    = Description:This code generates a numb
    =     er of random alpha numeric charactors, c
    =     an be used for random passwords
    = By: Giles Papworth
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.asp?txtCodeId=470&lngWId;=6    =for details.    =**************************************
    
    #!/usr/bin/perl
    print "content-type: text/html\n\n";
    @char = ("A" .. "Z", "a" .. "z", "0" .. "9");
    $chars = \@char;
    $length = @char;
    $count=0;
    while($count <15){ #set the number here to the amount of charactors needed
    $num = rand($length);
    $password = $password . $$chars[$num];
    $count++;
    }
    print $password; #this is the randomly created string do what you want with this.

Other 1 submission(s) by this author

Report Bad Submission

Your Vote!

Other User Comments

10/3/2003 7:20:00 PM:Eric Hodges

or you could do this. fun use of map 
and join :)
sub RandomString {
my $len = shift || 15;
    my @chars = 
( "A".."Z", "a".."z", 0..9);
return join '', map { $chars[ rand 
@chars ] } 1..$len;
}

Add Your Feedback!

Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.

NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.

For feedback not related to this particular code, please click here.