Criptografia SHA1

[sublyer 0]

Como criptografo uma string em SHA1 usando asp? tentei procurar por componentes e mal encontrei, tem outro modo de criptografar?Valew por quem puder me ajudar.

[ROGERIO VILELA 0]

Olha, função eu não encontrei tbem, então fiz assim:-- código asp<% @LANGUAGE=VBScript %><!--#include file="ADOVBS.asp"--><!--#include file="conexao.asp"--><%On Error Resume NextCall Abre_Conexao'Variáveis'-------------------------------------------------------------------------------Dim vlogin, vsenha, Rsa, Sqlvlogin = Request.Form("login")vsenha = Request.Form("senha")'Instrução SQL que inclui os dados no banco de dados'-------------------------------------------------------------Set RSa = Server.CreateObject("ADODB.RecordSet")Rsa.CursorLocation = adUseClientsql = "Call sp_alterasenha ('" & vlogin & "', '" & vsenha & "')"Set Rsa=conexao.execute(sql)If conexao.Errors.Count > 0 Then Rsa.Close Set Rsa = Nothing Call Fecha_Conexao Response.Redirect("pagina_mensagem.asp?cod=" & err.number & "&msg=" & err.description & "&pag=default.asp") Response.EndElse Rsa.Close Set Rsa = Nothing Call Fecha_Conexao Response.Redirect("Pagina_Mensagem.asp?cod=0&pag=default.asp") Response.EndEnd If%>-- código sp_alterasenhaDELIMITER $$DROP PROCEDURE IF EXISTS `sp_alterasenha` $$CREATE PROCEDURE `sp_alterasenha` (IN vlogin CHAR(15), IN vsenha CHAR(10))BEGIN UPDATE usuario SET senha = SHA1(vsenha), datatrocasenha = CONVERT(DATE_ADD(DATE(NOW()), INTERVAL 60 DAY), DATE) WHERE login = vlogin;END $$DELIMITER ;Espero que ajude.