Notice
Recent Posts
Recent Comments
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 | 31 |
Tags
- 자바기초
- javascript 한글입력체크
- inner join
- 이미지세로길이
- 한글입력체크
- tempDB
- xmldom
- asp함수
- jdbc driver
- 정규식
- WML
- instr
- array
- ERD
- update
- join
- FileSystemObject
- JavaScript
- XML
- SPLIT
- VarType
- 이미지가로길이
- injection
- sql랭킹
- sql순위
- MSSQL보안
- wap
- 인젝션
- VARIABLE
- sql업데이트
Archives
- Today
- Total
3초기억력
sha512 hash 데이터 생성 함수 본문
Function Hash(ByVal Input, HashAlgorithm, CharSet, Encoding) ' Select the System.Security.Cryptography value. Select Case uCase(HashAlgorithm) Case "MD5" HashAlgorithm = "MD5CryptoServiceProvider" Case "SHA1" HashAlgorithm = "SHA1CryptoServiceProvider" Case "SHA2","SHA256" HashAlgorithm = "SHA256Managed" Case "SHA384" HashAlgorithm = "SHA384Managed" Case "SHA5","SHA512" HashAlgorithm = "SHA512Managed" Case Else HashAlgorithm = "SHA1CryptoServiceProvider" End Select ' Convert the input to bytes if not already. If NOT VarType(Input) = 8209 Then Dim CS : Set CS = Server.CreateObject("System.Text." & CharSet & "Encoding") Input = CS.GetBytes_4(Input) Set CS = Nothing End If ' Perform the hash. Dim hAlg : Set hAlg = Server.CreateObject("System.Security.Cryptography." & HashAlgorithm) Dim hEnc : Set hEnc = Server.CreateObject("MSXML2.DomDocument").CreateElement("encode") Encoding = lCase(Encoding) If Encoding = "base64" OR Encoding = "b64" Then hEnc.dataType = "bin.base64" Else hEnc.dataType = "bin.hex" End If hEnc.nodeTypedValue = hAlg.ComputeHash_2((Input)) Hash = hEnc.Text Hash = Replace(Hash,VBlf,"") Set hEnc = Nothing Set hAlg = Nothing End Function Dim password, salt, saltedPassword password = "xxx" salt = "yyy" saltedPassword = salt & password Response.Write(Hash(saltedPassword,"SHA512","Unicode","Base64"))
출처 : https://stackoverflow.com/questions/72059249/translate-sha512-hash-function-from-classic-asp-to-php-laravel
'플밍_ASP' 카테고리의 다른 글
개선된 SQL 인젝션 탐지 함수 (0) | 2024.08.22 |
---|---|
Classic asp SQL Injection (0) | 2024.08.22 |
iis 10에서 외부 smtp 네이버 계정으로 메일 보내기 (0) | 2023.07.27 |
ASP 유니코드 변환 함수 (\u로 시작하는 유니코드를 한글로 변환) (0) | 2022.01.14 |
classic asp) ADODB.Command 사용하여 Query 하기 (0) | 2021.03.25 |
Comments