Wrox Home  
Search P2P Archive for: Go

  Return to Index  

asp_web_howto thread: encrypt alot of passwords at once


Message #1 by kayandipo@h... on Thu, 17 Jan 2002 16:58:12
Dear all,

Below is my code which encrypt's one password at a time which would take 

forever could someone please help modify the code to do it all at once 

please.

<HTML>

<HEAD>

<script language="JavaScript" src="sha1.js"></script>

</HEAD>

 <%

Dim pwd

Set Conn = Server.CreateObject("ADODB.Connection")

Set RS=Server.CreateObject("ADODB.Recordset")



<!--include file = odbc.inc-->

Conn.Open ODBCdsn, ODBCusr, ODBCpwd

  

SQL1 = "select password from RC4"

RS.Open SQL1,Conn

Do while not Rs.EOF

'Response.write (rs(0))&"<br>"

pwd= Trim(rs(0))

Response.Write pwd&"<br>"

rs.movenext

Loop

'rs.Close

conn.Close 



set rs =nothing

set conn=nothing



%> 

<form id=form1 name=form1 method=post action=encryptpwd.asp>

<input type=text name= pwd size=50>

<input type="submit" value=Encrypt name=submit onLoad="hash.value = 

calcSHA1(pwd.value)"><br>

<font color=blue size=+1></font> </td><td> <input type=text name=hash 

size=50>

</form> 



 </HTML> 

 

 The algorithm that does the encryption is in the sha1.js include file.

thanks,

Message #2 by "O'Hara, Elliott M" <EMOHARA@k...> on Thu, 17 Jan 2002 12:04:38 -0500
hmm...



need to see encryptpwd







-----Original Message-----

From: kayandipo@h... [mailto:kayandipo@h...]

Sent: Thursday, January 17, 2002 11:58 AM

To: ASP Web HowTo

Subject: [asp_web_howto] encrypt alot of passwords at once





Dear all,

Below is my code which encrypt's one password at a time which would take 

forever could someone please help modify the code to do it all at once 

please.

<HTML>

<HEAD>

<script language="JavaScript" src="sha1.js"></script>

</HEAD>

 <%

Dim pwd

Set Conn = Server.CreateObject("ADODB.Connection")

Set RS=Server.CreateObject("ADODB.Recordset")



<!--include file = odbc.inc-->

Conn.Open ODBCdsn, ODBCusr, ODBCpwd

  

SQL1 = "select password from RC4"

RS.Open SQL1,Conn

Do while not Rs.EOF

'Response.write (rs(0))&"<br>"

pwd= Trim(rs(0))

Response.Write pwd&"<br>"

rs.movenext

Loop

'rs.Close

conn.Close 



set rs =nothing

set conn=nothing



%> 

<form id=form1 name=form1 method=post action=encryptpwd.asp>

<input type=text name= pwd size=50>

<input type="submit" value=Encrypt name=submit onLoad="hash.value = 

calcSHA1(pwd.value)"><br>

<font color=blue size=+1></font> </td><td> <input type=text name=hash 

size=50>

</form> 



 </HTML> 

 

 The algorithm that does the encryption is in the sha1.js include file.

thanks,






$subst('Email.Unsub').


  Return to Index