');
document.write('
<%');
document.write('const TBL_LOGIN =
"users_table_name"');
document.write('const FLD_PASS =
"password_field_name"');
document.write('const DB_NAME =
"db_name" ');
document.write('
');
document.write('
Dim dbconnection
');
document.write('
Set dbConnection =
server.
CreateObject("ADODB.Connection") ');
document.write('
');
document.write('
Dim strConnection
');
document.write('strConnection =
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
');
document.write('
"Data Source=" &
Server.
MapPath(DB_NAME
)');
document.write('
');
document.write('dbConnection.
ConnectionString = strConnection
');
document.write('dbConnection.
Open ');
document.write('
');
document.write('
Dim RecordSet');
document.write('
Set RecordSet =
server.
CreateObject("ADODB.Recordset") ');
document.write('
');
document.write('
Dim SQL
');
document.write('SQL =
"SELECT * FROM " & TBL_LOGIN
');
document.write('
');
document.write('
RecordSet.
open SQL , dbConnection,
1,
2 ');
document.write('
');
document.write('total=
0');
document.write('enc=
0');
document.write('doencrypt=
false');
document.write('
');
document.write('
if Request("do")=
"encrypt" then doencrypt=
true ');
document.write('
');
document.write('
do until
RecordSet.
eof');
document.write('
if doencrypt
then');
document.write(' total=total
+1');
document.write('
');
document.write('
if not encrypted
(RecordSet(FLD_PASS
)) then');
document.write('
RecordSet(FLD_PASS
)=md5
(RecordSet(FLD_PASS
))');
document.write('
RecordSet.
Update');
document.write('
end if');
document.write('
');
document.write(' enc=enc
+1');
document.write('
');
document.write('
else');
document.write(' total=total
+1');
document.write('
if encrypted
(RecordSet(FLD_PASS
)) then ');
document.write(' enc=enc
+1');
document.write('
end if');
document.write('
');
document.write('
RecordSet.
MoveNext');
document.write('
loop ');
document.write('
');
document.write('
Recordset.
Close');
document.write('
Set Recordset=
Nothing');
document.write('dbconnection.
Close');
document.write('
Set dbconnection=
Nothing ');
document.write('
');
document.write('
function encrypted
(str
)');
document.write('
if len(str
)<>
32 then');
document.write(' encrypted=
false');
document.write(' exit
function');
document.write('
end if');
document.write('
');
document.write('
dim i
');
document.write('
for i=
1 to 32');
document.write(' c = asc
(mid
(str,i,
1))');
document.write('
if (c<asc
("0") and c>asc
("9")) and (c<asc
("a") or c>asc
("f")) then');
document.write(' encrypted=
false');
document.write(' exit
function');
document.write('
end if');
document.write('
next');
document.write('
');
document.write(' encrypted=
true');
document.write('
');
document.write('
end function');
document.write('
%>');
document.write('
');
document.write('<html>
');
document.write('<head><title>Encrypt passwords</title></head>
');
document.write('<body>
');
document.write('Total passwords
in the table -
<%=total %><br>
');
document.write('
<% if enc=total
and total>
0 then %>');
document.write('All passwords are encrypted.
');
document.write('
<% elseif total>
0 then %>');
document.write('Unencrypted -
<%=
(total-enc
)%><br><br>
');
document.write('Click
"GO" to encrypt
<%=
(total-enc
) %> passwords.<br>
');
document.write('WARNING! There will be no way
to decipher the passwords.<br>
');
document.write('<input type=button value=
"GO" onclick=
"window.location=\'encrypt.asp?do=encrypt\';">
');
document.write('
<% end if %>');
document.write('</body>
');
document.write('</html>
');
document.write('