Random String - ASP / Active Server Pages

Kent

What am I missing here. Why doesn't this produce a random string. It is
kind of random.

<%
Const ConstantLower = "bcdfghjklmnpqr stvwxyz"
Const VowelLower = "aeiou"
Const Numbers = "0123456789 "
Const NumOfChar = 12

Dim x : x = 0
Dim TmpVal
Dim TmpName
Dim y
y = 0

Do while y < 100
x = 1
TmpName = ""
TmpVal=""
Do while x <= NumOfChar
randomize
TmpVal = int(Rnd*3)
select case TmpVal
Case 0
randomize
TmpVal = int(Rnd*21)
if TmpVal = 0 then TmpVal = 1
TmpName = TmpName & mid
(ConstantLower, TmpVal,1)
Case 1
randomize
TmpVal = int(Rnd*5)
if TmpVal = 0 then TmpVal = 1
TmpName = TmpName & mid
(VowelLower,Tmp Val,1)
Case 2
randomize
TmpVal = int(Rnd*10)
if TmpVal = 0 then TmpVal = 1
TmpName = TmpName & mid
(Numbers,TmpVal ,1)
end Select
x = x + 1
loop

Response.Write TmpName & " "
y = y + 1
Loop
%>

Thanks for your help,
Kent

Oct 27 '05 #1

Subscribe Reply

3034

Ray Costanzo [MVP]

What do you see? I got this output:

amcigsr110ac 
e170j60q106e 
eah0leob2oe8 
paannj2e6px0 
ivmo50bo72il 
i71ar06yoa0w 
vqq6txfj8di1 
xka7758t0813 
a0vh86kaaoy7 
caeibea2ai5f 
dy8a0gnsamci 
gsr110ace170 
j60q106eeah0 
mioc3oe8iaap 
pk3e6qy0ixna 
rdc873ino81e 
s07b8e0owis7 
vyhl0fo2omex 
8s0v0823a1wj 
b6l1a0b7daii 
ce022i6aga0a 
0hqtanaiavih 
1bade280k7fr 
20teeaj1mioc 
s07h833ooir7 
coal0ao2oeef 
fs0o0gp6amda 
g6l1a0acaaii 
je0q2i6agaha 
lhqt2naiabin 
42ade480e7mr 
50b4eaj3mioa 
6o48iaappk5e 
6qfkidearkc7 
75imo81es07h 
04loo6t7daam 
0ao2ae3ggi0o 
0hq6apfej7e2 
10adaaioke1r 
2otaaak1mjrv 
3qaiad7p4kea 
e580e8nsr0c5 
i3lnniaa6o40 
6a0iqe647rhl 
ifiaima88sip 
o02ev17j04lo 
iep5yodhocsa 
wja0bp7i0c35 
x20f0ihaaoob 
aaei1ea4ar5c 
cxfahdmqalbe 
f8i331aba368 
h6243oxeeag2 
jeooeiaoebom 
lg4a5m0gpbkw 
n2yi64eki7aa 
50i0oa1tiep5 
boaj8ai1xka0 
cr8i0fm5al0a 
16kaaoobaaei 
heapai5fdyga 
kgnr2mcigbi3 
31ace470j63q 
40beeah3leoa 
5oe8eaanmh4e 
6pdhicmop2bo 
75ili70ar06f 
oa2woiq6boaj 
h3apai5leog0 
jeoy2ikenbi3 
311a3478p63w 
40yeeae3ieoa 
5oe8ej0ttp4e 
6vdhicsow2a7 
75isi702y06f 
7a2ooix6boei 
8ei1ora0cx8i 
0dm5al0e16qa 
08oba14ih3ap 
166eeah0leob 
2oe5pbin422e 
3480i7mo50b4 
eai3iioaro48 
ia0wvq5e6xfj 
6doaxka775it 
o813b0vh832o 
oiy7coei0eo2 
oiefdy8o0gn6 
w28k04na07vx 
f0ee0ao3ai4j 
ao081jr7aqge 
k7e220aaa3io 
mi1t3owaaal1 
pesw4raief7r 
ql3aes00e8pv 
s1a653epq6aa 
7a506a1iiet5 
8ijmohiaina0 
yt7iob24w28k 
05pa07oya0ei 

Ray at work

"Kent" <un**********@m chsi.com> wrote in message
news:11******** *************@f 14g2000cwb.goog legroups.com...

What am I missing here. Why doesn't this produce a random string. It is
kind of random.

<%
Const ConstantLower = "bcdfghjklmnpqr stvwxyz"
Const VowelLower = "aeiou"
Const Numbers = "0123456789 "
Const NumOfChar = 12

Dim x : x = 0
Dim TmpVal
Dim TmpName
Dim y
y = 0

Do while y < 100
x = 1
TmpName = ""
TmpVal=""
Do while x <= NumOfChar
randomize
TmpVal = int(Rnd*3)
select case TmpVal
Case 0
randomize
TmpVal = int(Rnd*21)
if TmpVal = 0 then TmpVal = 1
TmpName = TmpName & mid
(ConstantLower, TmpVal,1)
Case 1
randomize
TmpVal = int(Rnd*5)
if TmpVal = 0 then TmpVal = 1
TmpName = TmpName & mid
(VowelLower,Tmp Val,1)
Case 2
randomize
TmpVal = int(Rnd*10)
if TmpVal = 0 then TmpVal = 1
TmpName = TmpName & mid
(Numbers,TmpVal ,1)
end Select
x = x + 1
loop

Response.Write TmpName & " "
y = y + 1
Loop
%>

Thanks for your help,
Kent

Oct 28 '05 #2

Gottfried Mayer

Kent wrote:

What am I missing here. Why doesn't this produce a random string. It is
kind of random.

<%
Const ConstantLower = "bcdfghjklmnpqr stvwxyz"
Const VowelLower = "aeiou"
Const Numbers = "0123456789 "
Const NumOfChar = 12

Dim x : x = 0
Dim TmpVal
Dim TmpName
Dim y
y = 0

Do while y < 100
x = 1
TmpName = ""
TmpVal=""
Do while x <= NumOfChar
randomize
TmpVal = int(Rnd*3)
select case TmpVal
Case 0
randomize
TmpVal = int(Rnd*21)
if TmpVal = 0 then TmpVal = 1
TmpName = TmpName & mid
(ConstantLower, TmpVal,1)
Case 1
randomize
TmpVal = int(Rnd*5)
if TmpVal = 0 then TmpVal = 1
TmpName = TmpName & mid
(VowelLower,Tmp Val,1)
Case 2
randomize
TmpVal = int(Rnd*10)
if TmpVal = 0 then TmpVal = 1
TmpName = TmpName & mid
(Numbers,TmpVal ,1)
end Select
x = x + 1
loop

Response.Write TmpName & " "
y = y + 1
Loop
%>

Thanks for your help,
Kent

Hi Kent,

The rnd function only creates quasi-random numbers:

I have seen this while playing around with a random password generator I
created.
You can try this yourself:
create strings with a length of 128 or 256 or 512 ..., then you'll see
that a number of times the exact same string will be created.
Example (with my randomPW.asp using the rnd function):

Fixed length (128 chars) Passwords:
6kD6qnbw6EJS68r jbPr6S25u3f54c7 UrRS0D3uU6f1V84 82s3UKN3e0B8Cgr PN308VD4PKp4L0d F24L10wMl6NsJKY s0iUQoO0R0PpQKr Akr4OJ7G1d6XpSC 01ksl7WN
6kD6qnbw6EJS68r jbPr6S25u3f54c7 UrRS0D3uU6f1V84 82s3UKN3e0B8Cgr PN308VD4PKp4L0d F24L10wMl6NsJKY s0iUQoO0R0PpQKr Akr4OJ7G1d6XpSC 01ksl7WN
6kD6qnbw6EJS68r jbPr6S25u3f54c7 UrRS0D3uU6f1V84 82s3UKN3e0B8Cgr PN308VD4PKp4L0d F24L10wMl6NsJKY s0iUQoO0R0PpQKr Akr4OJ7G1d6XpSC 01ksl7WN
6kD6qnbw6EJS68r jbPr6S25u3f54c7 UrRS0D3uU6f1V84 82s3UKN3e0B8Cgr PN308VD4PKp4L0d F24L10wMl6NsJKY s0iUQoO0R0PpQKr Akr4OJ7G1d6XpSC 01ksl7WN
6kD6qnbw6EJS68r jbPr6S25u3f54c7 UrRS0D3uU6f1V84 82s3UKN3e0B8Cgr PN308VD4PKp4L0d F24L10wMl6NsJKY s0iUQoO0R0PpQKr Akr4OJ7G1d6XpSC 01ksl7WN
6kD6qnbw6EJS68r jbPr6S25u3f54c7 UrRS0D3uU6f1V84 82s3UKN3e0B8Cgr PN308VD4PKp4L0d F24L10wMl6NsJKY s0iUQoO0R0PpQKr Akr4OJ7G1d6XpSC 01ksl7WN
6kD6qnbw6EJS68r jbPr6S25u3f54c7 UrRS0D3uU6f1V84 82s3UKN3e0B8Cgr PN308VD4PKp4L0d F24L10wMl6NsJKY s0iUQoO0R0PpQKr Akr4OJ7G1d6XpSC 01ksl7WN
6kD6qnbw6EJS68r jbPr6S25u3f54c7 UrRS0D3uU6f1V84 82s3UKN3e0B8Cgr PN308VD4PKp4L0d F24L10wMl6NsJKY s0iUQoO0R0PpQKr Akr4OJ7G1d6XpSC 01ksl7WN
6kD6qnbw6EJS68r jbPr6S25u3f54c7 UrRS0D3uU6f1V84 82s3UKN3e0B8Cgr PN308VD4PKp4L0d F24L10wMl6NsJKY s0iUQoO0R0PpQKr Akr4OJ7G1d6XpSC 01ksl7WN
6kD6qnbw6EJS68r jbPr6S25u3f54c7 UrRS0D3uU6f1V84 82s3UKN3e0B8Cgr PN308VD4PKp4L0d F24L10wMl6NsJKY s0iUQoO0R0PpQKr Akr4OJ7G1d6XpSC 01ksl7WN
3WeVJQXrONETsAM fJ0N8jp4YkBt155 e3R1q48kuE34GFJ 5EhA2VywadwI8xN 87UL223a0lrQ820 5am3kAHMCB77x06 AclO1r1jMS7c7i4 F8iYC3UOnr403XI Auga3bl3
3WeVJQXrONETsAM fJ0N8jp4YkBt155 e3R1q48kuE34GFJ 5EhA2VywadwI8xN 87UL223a0lrQ820 5am3kAHMCB77x06 AclO1r1jMS7c7i4 F8iYC3UOnr403XI Auga3bl3
3WeVJQXrONETsAM fJ0N8jp4YkBt155 e3R1q48kuE34GFJ 5EhA2VywadwI8xN 87UL223a0lrQ820 5am3kAHMCB77x06 AclO1r1jMS7c7i4 F8iYC3UOnr403XI Auga3bl3
3WeVJQXrONETsAM fJ0N8jp4YkBt155 e3R1q48kuE34GFJ 5EhA2VywadwI8xN 87UL223a0lrQ820 5am3kAHMCB77x06 AclO1r1jMS7c7i4 F8iYC3UOnr403XI Auga3bl3
3WeVJQXrONETsAM fJ0N8jp4YkBt155 e3R1q48kuE34GFJ 5EhA2VywadwI8xN 87UL223a0lrQ820 5am3kAHMCB77x06 AclO1r1jMS7c7i4 F8iYC3UOnr403XI Auga3bl3
3WeVJQXrONETsAM fJ0N8jp4YkBt155 e3R1q48kuE34GFJ 5EhA2VywadwI8xN 87UL223a0lrQ820 5am3kAHMCB77x06 AclO1r1jMS7c7i4 F8iYC3UOnr403XI Auga3bl3
3WeVJQXrONETsAM fJ0N8jp4YkBt155 e3R1q48kuE34GFJ 5EhA2VywadwI8xN 87UL223a0lrQ820 5am3kAHMCB77x06 AclO1r1jMS7c7i4 F8iYC3UOnr403XI Auga3bl3
3WeVJQXrONETsAM fJ0N8jp4YkBt155 e3R1q48kuE34GFJ 5EhA2VywadwI8xN 87UL223a0lrQ820 5am3kAHMCB77x06 AclO1r1jMS7c7i4 F8iYC3UOnr403XI Auga3bl3
3WeVJQXrONETsAM fJ0N8jp4YkBt155 e3R1q48kuE34GFJ 5EhA2VywadwI8xN 87UL223a0lrQ820 5am3kAHMCB77x06 AclO1r1jMS7c7i4 F8iYC3UOnr403XI Auga3bl3
811Scv20MFXevtT eT4JBD1yuPI8Gff 03WqKU6h44V3vBo 06FatmN62860J81 QDCJA8Xuwb580jm XhQhho08CY6Yrlk V0go6No28yTK0OE 4FC3xQQ6maybAJb XR8MhTj1
811Scv20MFXevtT eT4JBD1yuPI8Gff 03WqKU6h44V3vBo 06FatmN62860J81 QDCJA8Xuwb580jm XhQhho08CY6Yrlk V0go6No28yTK0OE 4FC3xQQ6maybAJb XR8MhTj1

But as I will never create 128 character passwords (the users can't even
remember 8 chars), this issue is very minor to me.
Just my 2 cents

Gottfried

Oct 28 '05 #3

Similar topics

3699

random value generation

by: Brandon Michael Moore | last post by:

I'm trying to test a web application using a tool written in python. I would like to be able to generate random values to put in fields. I would like to be able to generate random dates (in a specified range), random strings (specifying allowed characters and a distribution of lengths), or choose randomly between several generators (for better control of the distribution of values). Is there any library for this sort of thing in Python?...

Python

23154

Generating a large random string

by: Andreas Lobinger | last post by:

Aloha, i wanted to ask another problem, but as i started to build an example... How to generate (memory and time)-efficient a string containing random characters? I have never worked with generators, so my solution at the moment is: import string import random random.seed(14)

Python

5025

random bgcolor

by: TaTonka | last post by:

hi! how can i manage it (html or jscript with css) that everytime a user loads or refreshes a page, the page has a new bgcolor. i want to put it in a single file, so that all my pages have the same color, but after every refresh a new random one. thanx 4 your support

Javascript

5979

Help with Random Algorithm

by: Johnny Snead | last post by:

Hey guys, Need help with this random sort algorithm private void cmdQuestion_Click(object sender, System.EventArgs e) { Random rnd = new Random(); //initialize rnd to new random object System.Random iRnd = new System.Random(); string theNum = iRnd.Next(0,8).ToString(); lblAnswer.Text = iRnd.Next(0,8).ToString();

C# / C Sharp

9761

C# random data

by: Maziar Aflatoun | last post by:

Hi everyone, I have the following random string generator public static string getAlphabets(int strLength) { string RandomString = ""; Random X = new Random(); for (int x=0; x < strLength; x++) RandomString +=(char)(X.Next(65, 90)); return RandomString;

C# / C Sharp

2752

Creating Random Image Authorization

by: tshad | last post by:

I am trying to set up an Image authorization where you type in the value that is in a picture to log on to our site. I found a program that is supposed to do it, but it doesn't seem to work. It should put a blue and yellow box on the page with "This is a test" as part of the picture. But what I get is a broken Gif. The other problem is that I can't view the source???? The view source is disabled for this page. What causes this?

ASP.NET

2081

Getting the same Random number

by: tshad | last post by:

I have a page that I am getting a username and password as a random number (2 letters, one number and 4 more letters) I have 2 functions I call: ************************************************* Function RandomString(size as integer, lowerCase as boolean) as string Dim builder as StringBuilder = new StringBuilder() Dim random as Random = new Random() Dim i as integer dim ch as char

ASP.NET

2022

Random Numbers - Will this produce working results?

by: teh.sn1tch | last post by:

I created a random number generator for an application that uses a MersenneTwister class I found on the net. Basically I generate two random numbers from the MersenneTwister class and use each one as a seed for the built in Random class of the .net framework. To better illustrate I am prodviding the complete code for this application, it isn't too much but I would like to know if this is a viable solution because I am a pretty new to C#...

C# / C Sharp

4812

random number generator help

by: Mike Langworthy | last post by:

i can not seem to get this code to work. someone please help using System; using System.Collections.Generic; using System.Text; namespace ConsoleApplication1 { class Program {

C# / C Sharp

3020

Getting random, unique numbers

by: TTCEric | last post by:

This will be original. I promise. I cannot get the random number generator to work. I tried seeding with Date.Now.Milliseconds, it still results in the same values. What I have are arrays of values. I get a random index value for each array so I can pull the data from them.

.NET Framework

9170

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...

C / C++

8902

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...

Windows Server

7740

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...

Career Advice

6528

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...

Microsoft Access / VBA

5862

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...

C# / C Sharp

4623

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

3052

transfer the data from one system to another through ip address

by: 6302768590 | last post by:

Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system

C# / C Sharp

2339

How to add payments to a PHP MySQL app.

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP

2007

Comprehensive Guide to Website Development in Toronto: Expert Insights from BSMN Consultancy

by: bsmnconsultancy | last post by:

In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

General