Solved

How to generate a random number (13 digits) between 9999999999999 - 0000000000001

Posted on 2003-11-06
7
284 Views
Last Modified: 2008-02-01
Hello,
I am trying to generate a random number and I am sucessful doing that:
       Randomize
          strOrderNo = INT((9999999999999 - 0000000000001 + 1) * RND + 0000000000001)

Then update the database with this number plus other options for example depending on what I passed and evently when the click the link I would check the querystring to update the database for each click they do or tell them it is expired:

Function Randomize(Clicks,ExpireDate,ExpireTime)
      Dim sql
      If bGoodToGo = True Then
            sql = "insert into NewTravelRequest" &_
            "(ID,Number,Clicks,ExpireDate,ExpireTime)" &_
              "values(" & ID & ", '" & Number & "', '" & Clicks & "', '" & ExpireDate & "', '" ExpireTime & "')"
      Else
                Do Until bGoodToGo
                Randomize
                strOrderNo = INT((9999999999999 - 0000000000001 + 1) * RND + 0000000000001)
                'strOrderNo = "8888888888888"
           
                bGoodToGo = False
                If Len(strOrderNo) = 13 Then
            ' we have a 13 char string so now test DB that this 13 char Key is unique
                  Response.Write "We have 13 chars<br>" & VBCRLF
                  ' TODO: Do DB test here
                  sql = "SELECT * FROM DownloadID"
                  oRS.Open sql, oConn, 3, 3
                  Do until oRS.EOF
                  strDBNo = Trim(oRS("Number"))
                  Response.Write "Database Numbers: " & strDBNo & "<br>" & VBCRLF
                        If strDBNo <> strOrderNo Then
                                 bGoodToGo = True
                                 Response.Write "Number doesn't exist<br>" & VBCRLF
                         Else
                               ' was already used so
                                bGoodToGo = False
                                Response.Write "Number does exist<br>" & VBCRLF
                                Exit Do
                        End If
                 oRS.MoveNext
                 Loop
                End If    
              loop
        End If
End Function
0
Comment
Question by:mfwebteam
  • 3
  • 3
7 Comments
 

Author Comment

by:mfwebteam
ID: 9696846
The line sql = "insert into NewTravelRequest" &_
Should read : "insert into DownloadID" &_
0
 
LVL 58

Expert Comment

by:Gary
ID: 9697000
...and the problem is?
0
 
LVL 3

Expert Comment

by:NeilT
ID: 9699805
The easiest way for a truly random mix (including upper/lower characters) how about:

<% Option Explicit %>

<%
Response.Write RandomPW(13) & "<br>" & vbCrLf

Function RandomPW(myLength)

      
      Dim X, Y, strPW
      
      If myLength = 0 Then
            Randomize
            myLength = Int((10 * Rnd) + 10)
      End If

            For X = 1 To myLength
            'Randomize the type of this character
            Y = Int((3 * Rnd) + 1)
            
            Select Case Y
                  Case 1'Numeric character
                        Randomize
                        strPW = strPW & CHR(Int((9 * Rnd) + 48))
                  Case 2
                        Randomize
                        strPW = strPW & CHR(Int((25 * Rnd) + 65))
                  Case 3
                        Randomize
                        strPW = strPW & CHR(Int((25 * Rnd) + 97))

            End Select
      Next
      
      RandomPW = strPW

End Function

%>



Neil
0
Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

 
LVL 3

Expert Comment

by:NeilT
ID: 9699806
The easiest way for a truly random mix (including upper/lower characters) how about:

<% Option Explicit %>

<%
Response.Write RandomPW(13) & "<br>" & vbCrLf

Function RandomPW(myLength)

      
      Dim X, Y, strPW
      
      If myLength = 0 Then
            Randomize
            myLength = Int((10 * Rnd) + 10)
      End If

            For X = 1 To myLength
            'Randomize the type of this character
            Y = Int((3 * Rnd) + 1)
            
            Select Case Y
                  Case 1'Numeric character
                        Randomize
                        strPW = strPW & CHR(Int((9 * Rnd) + 48))
                  Case 2
                        Randomize
                        strPW = strPW & CHR(Int((25 * Rnd) + 65))
                  Case 3
                        Randomize
                        strPW = strPW & CHR(Int((25 * Rnd) + 97))

            End Select
      Next
      
      RandomPW = strPW

End Function

%>



Neil
0
 

Author Comment

by:mfwebteam
ID: 9701071
The problem is that I am not sure how to do it in the following steps.
1. Generate the random number
2. Check if it is in the databse
        - If not: then insert into database
        - If yes: then run the random generator again
3. have a parameter like "click" that I can specify so that everytime the user clicks on the link it will update the database in the clicks column with 1 then 2 then 3 then 4 and so on until it hits the number I specified.

Hopes this clears up what I want to do.
0
 
LVL 3

Accepted Solution

by:
NeilT earned 125 total points
ID: 9701207
1) if you use my code above simply:

Open the db connection

'Set a variable
varRandNum = RandomPW(13)

...select * from DB WHERE [YOUR NUMBER FIELD] = '" & varRandNum & "'"

'check if it is EOF :

if oRS.eof ' number does not exist
   '... add to database
   '... update
else
   ' call the random generator again
varRandNum = RandomPW(13)
' recheck with another loop if required
' update the database
end if

' close oRS and db



why do you want to update the database with clicks 1 ++ ?

Neil
0
 

Author Comment

by:mfwebteam
ID: 9701360
I want to set the number of clicks on the url so that I can expire the link after a certain number.
0

Featured Post

Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

Join & Write a Comment

Suggested Solutions

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now