| Author |
 Topic  |
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
 Posted - 11 January 2001 : 15:02:11
|
quote:
I've another problem (please ban me)
When I change something in PROFILE, for example City or Age,and I submint the change, I receive this message :
Profile Updated.
Your email address has changed. Your new password has been sent to your new email address.
But I don't change the email address !!!
I use the random password email and SR4
if you want look my forum go at http://www.larry.it/fond2/forum
THANK YOU
There was a missing check in pop_profile.asp. I have updated the zip.
Try it and see if it works ok now.
*----*----*----*----*----*----*----*----*
"Even when you feel you have nothing left,
You still have prayer--And that's enough."
*----*----*----*----*----*----*----*----* |
 |
|
|
scotpower
Starting Member
4 Posts |
Posted - 15 January 2001 : 01:33:20
|
Here's a way I generate passwords for a few scripts, see if it will work for you.
'// Create an array of characters to choose from for the passwords.
'// If you would like to add uppercase letters or high ASCII characters,
'// simply add them to the array, just remember to modify intNumChars
'// variable to match number of characters in the array.
intNumChars = 35
pwArray = Array("a","b","c","d","e","f","g","h","i","j","k","l", _
"m","n","o","p","q","r","s","t","u","v","w","x", _
"y","z","1","2","3","4","5","6","7","8","9")
'// This picks 6 random numbers and pulls corresponding letters from the
'// array. If you want a larger, or smaller, password simply adjust the
'// number of characters you grab.
Randomize
pwd1 = (Int(((intNumChars - 1) * Rnd) + 1))
pwd2 = (Int(((intNumChars - 1) * Rnd) + 1))
pwd3 = (Int(((intNumChars - 1) * Rnd) + 1))
pwd4 = (Int(((intNumChars - 1) * Rnd) + 1))
pwd5 = (Int(((intNumChars - 1) * Rnd) + 1))
pwd6 = (Int(((intNumChars - 1) * Rnd) + 1))
'// Make the password!
strPasswd = pwArray(pwd1) & pwArray(pwd2) & pwArray(pwd3) & _
pwArray(pwd4) & pwArray(pwd5) & pwArray(pwd6)
Also, I just downloaded your zip today and attempted to updated 3.1 Final (no SRs) with your MODs and get the same problem listed in the previous post. Being that I using an older and heavily modified (hence the avoidance of upgrading) version, can you point to where the new pass is supposed to be mailed out and I can prolly figure it out.
Thanks!
Edited by - scotpower on 15 January 2001 01:37:17 |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 15 January 2001 : 18:39:29
|
Hey, that's a great script scotpower. I think I might just use that in the script.
I don't know how this script will work in 3.1 Final. So I can't help you with that. The password is created and sent using a function in the inc_function.asp file. It's the last function at the end. Well the second to last, the last one is a Javascript function.
To the error you are getting, are you actually getting an email sent to you? Or is it just telling you that an email has been sent? Because it's working ok with my SR4 version.
There are 2 checks in pop_profile.asp that checks to see if the Email option is on(in the admin options) and if the email address was changed. Only then will it tell you that an email has been sent.
All the changes I made are commented in the files, so you can see easily what was added.
Just look for this line:if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" then
*----*----*----*----*----*----*----*----*
"Even when you feel you have nothing left,
You still have prayer--And that's enough."
*----*----*----*----*----*----*----*----* |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 19 January 2001 : 11:15:37
|
Updated the file with scotpower's script.
*----*----*----*----*----*----*----*----*
"Even when you feel you have nothing left,
You still have prayer--And that's enough."
*----*----*----*----*----*----*----*----* |
|
|
|
scotpower
Starting Member
4 Posts |
Posted - 02 February 2001 : 15:09:35
|
rnd password revisited... w/alot less code! 
randomize
numChars = 8 ' Length of password
startChr = 33 ' AscII for "!"
endChr = 122 ' AscII for "z"
For i = 1 to numChars
Pass = Pass & Chr(Int((endChr - startChr + 1) * Rnd + endChr))
Next |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 03 February 2001 : 14:43:32
|
scot, I tried your new code and this is the password I got: .-Ë|Ì´´
I don't think we need such an encrypted password. 
*----*----*----*----*----*----*----*----*
"Even when you feel you have nothing left,
You still have prayer--And that's enough."
*----*----*----*----*----*----*----*----* |
|
|
|
scotpower
Starting Member
4 Posts |
Posted - 03 February 2001 : 15:20:27
|
I came up with this to crank out passes for services accounts that no one will ever see (or type!) and completly understand not wanting funkay chars for users! ...however, it's odd that you got chars outside the range (Ë = 203)..
peace
|
|
|
|
frankie
Junior Member
Vatican City
304 Posts |
Posted - 03 February 2001 : 23:13:21
|
I happened to have the same mod listed here somewhere, ahhh I found it
http://forum.snitz.com/forum/link.asp?topic_id=3363.
The point is I got innovative and found a way (through some research though) to come up with the easiest way to generate a random password.....LET THE SYSTEM DO IT FOR YOU....
you ask how? I say, the filesystemobject when it creates a temp file it assigns a name to it; some how this name is as unique as your finger prints (don't ask me how!). the file name looks somthing like this rad13ux5..All you have to do is add this function (or piece of code) to your original code:
Dim fs, strTemp
Set fs = CreateObject("Scripting.FileSystemObject")
'Get just the filename part of the temp name path
strTemp = fs.GetBaseName(fs.GetTempName)
'Hack off the 'rad'
strTemp = Right(strTemp, Len(strTemp) - 3)
Set fs = Nothing
strPassword = LCase(Right(strTemp & strTemp, 6)) 'generates 6 charecter passwords!
Note: in the last line of code you get 5 chars with each strTemp.
thank you for your attention and god bless
ô¿~ |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 04 February 2001 : 14:03:38
|
Frankie, originally, your Random password script was the script that I included in this mod. And I had given you credit for it in the mod. But the thing is, not many servers like to use the FileSystemObject. So scotpower came up with a random password scipt without using the FileSystemObject and I included it into the script.
Thanks for the great script tho.
*----*----*----*----*----*----*----*----*
"Even when you feel you have nothing left,
You still have prayer--And that's enough."
*----*----*----*----*----*----*----*----* |
|
|
|
frankie
Junior Member
Vatican City
304 Posts |
Posted - 04 February 2001 : 14:53:05
|
Davio,
I had no intensions of reminding you of that. I just wanted to help. Sorry for any sarcasm in my reply.
ô¿~ |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 04 February 2001 : 15:08:04
|
No need to apologize frankie.
I didn't sense any sarcasm in your reply. I know you were trying to help. We need all the help we can get around here. Keep on helping frankie.
*----*----*----*----*----*----*----*----*
"Even when you feel you have nothing left,
You still have prayer--And that's enough."
*----*----*----*----*----*----*----*----* |
|
|
|
gor
Retired Admin
Netherlands
5511 Posts |
|
| |
Topic |
|
Topic Locked
