[原创文章] 关于国内某知名大学网站加密算法的研究

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
$ Y- r8 K7 U0 {
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E2 n+ D) q( H# s( G3 n! `+ H# I
9 {% d  Z9 E! t& g4 U* ]( y6 d
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
- Z; ?, ]. y& V$ g
文件名RSA.ASP* {3 I; O( M  O8 T5 R' X
===============================================5 r9 f; P4 [9 h# S
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult 0 z0 E1 I$ R' t3 Y: h
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ' l, z" p0 K2 r( I8 G
lLngResult = 1 ! x7 ^! R' b$ ?) ~3 ^- |* T! V8 {# D
For lLngIndex = 1 To pLngKey / 2 # a; p' v0 J3 |% }0 C5 X6 h
lLngMod = (pLngMessage ^ 2) Mod Modulus + G# |/ V9 F- b- }
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 n8 e* G3 o2 C+ a' S( o: g5 m2 N" k
If Err Then Exit Function 5 I5 t! }0 P) {5 D: u
Next 8 S1 _# B5 G7 D4 f
Else * f) R! K/ E) v8 S' c/ q7 K
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus * M% {6 m# Q' g
On Error Resume Next
' Mod may error on key generation ' O0 k6 u0 j$ z1 ~+ k2 @, w
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next . ?/ T& M5 e& G5 y5 q5 c
End If , s% n, W6 Z  D* `- p+ ~- ~& A
Crypt = lLngResult
End Function- p* D1 [, [1 \3 R& ?6 z
' o5 |4 J3 F; o, I6 U$ J
Public Function Encode(ByVal pStrMessage) ' q5 f4 F' z, A
Dim lLngIndex
Dim lLngMaxIndex 7 d' N( [$ l6 O
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 7 M6 r  A9 t/ c& U( i+ ~+ h4 U
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next / v+ m! h/ K; O$ ~; R+ R& \3 Z
End Function
Public Function Decode(ByVal pStrMessage)   z* d" N: I" {# i4 A- n
Dim lBytAscii
Dim lLngIndex   L! B7 m9 o' X4 ~8 u' S: I
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" ( M# Y2 J, W: I5 C
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 3 G5 Q" y" w1 h( t$ b4 a
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) , o! a# r5 v( @2 A6 T7 i
Decode = Decode & Chr(lBytAscii)
Next . l/ i$ F- ^$ k9 Y7 d" A: F+ {* H
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ( Z- A5 D% S  z# n9 S4 Z) J
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 4 X) F( {' }7 Z" z- j3 B" Z4 T
HexToNumber = CLng("&h" & pStrHex)
End Function 7 Y, c0 @! G& ]' q  }
End Class
function Encryptstr(Message)
Dim LngKeyE 4 |5 e# w" `6 Y; G) P4 N- f. K+ y4 b
Dim LngKeyD ! e  l: F4 c% D: Y0 D* P: o
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ' e2 j: s' V" X$ D" N' B
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 7 Z  g# R( X1 J" i8 U1 E
StrMessage = Message
Set ObjRSA = New clsRSA $ w# N, d6 f* k( S  L
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ) L  s+ v) h; }0 ^+ _0 u
end function/ L" K5 ~6 {6 q
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD + n( H" j8 z* l% f/ y9 L* s# Q6 P
Dim LngKeyN ; j& l; G/ ]# ~
Dim StrMessage " r( }1 y2 N& _1 p6 X' l4 T/ d2 Y
Dim ObjRSA
LngKeyE = "32823" ( d  x+ l" V& r: O. l
LngKeyD = "20643"
LngKeyN = "29893" 7 U, a% Y9 `% i2 _) n
StrMessage = Message
Set ObjRSA = New clsRSA 2 s5 H; f+ e) _
ObjRSA.PrivateKey =LngKeyD 7 o& u; U0 z! F: s, I6 G& T. V
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ! @5 u1 R! b# ?, O+ j
Set ObjRSA = Nothing " u' o2 A1 a3 X1 n# N- \6 F! l
end function
%>
===============================================4 D& H9 T# J4 G
0 f5 e1 j& ]0 }6 K& y
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下- j# w3 Q  \& L8 J1 ~
 3 U8 y$ H9 O& g, d7 h4 k
<%4 F6 D4 n9 z3 s! @* k& t
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ' l6 x( P. n, U3 T
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ' p5 F6 k2 U1 g+ m4 e: [3 P
LngKeyN = "29893" ! l# ?6 w, ^4 n. C
StrMessage = Message ; b* H2 Z# J/ \" S  w, v
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN $ f" U/ ^3 G+ `7 C: c2 A4 P
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 2 h$ n1 F# ]7 D! f- v
end function
function decryptstr(Message) , j; J1 T. ]7 ~8 J
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" - @" G" t$ |: K: w5 q
StrMessage = Message
Set ObjRSA = New clsRSA , @2 f9 y0 y. X3 u- B; s
ObjRSA.PrivateKey =LngKeyD % o% w0 [' t4 F- z0 P7 o) j) G
ObjRSA.Modulus=LngKeyN " Q/ f* {- ~* A* l  {" {
decryptstr=ObjRSA.Decode(StrMessage) ! \2 X- X% F6 Q& Z* J
Set ObjRSA = Nothing
end function + D$ a! C" H5 s4 x: y
dim last,first
first="!@#$%^&*()" ) h/ V+ m9 G1 C5 W  Y8 E) G: i' X% S' z
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 4 E% \: {- w  Z) W- o+ j; c1 n
%> ==============================================! r+ M8 y+ R. m
剩下的就是字符的对照表了- @! l% a* O1 F
===================字符集================
1_____6EBB# ]' @. d. J$ }, b. t9 ^
2_____5C1F+ G% r# y6 z8 ~
3_____4D758 [5 m) b* H+ i
4_____26CC2 G7 N7 `4 B$ n0 E; e& S8 b: U
5_____4F881 X, [, L  O0 W% h! s% y0 K
6_____3F4E7 c- Q" w+ i0 n' L
7_____0A9D
8_____1A1C
9_____6D20: I; Y' o6 q) B: M8 I7 C6 ~. P
0_____1089
a_____0F3E
b_____3159: {9 U: x# T. @9 h, x) ]
c_____3517, D; x  S# [; n7 A! N( l
d_____419C
e_____615C
f_____556F& N7 r2 y. y# ?6 T
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50/ \* B% a( i! q, p' e
k_____2850, a, h& W" C' ?$ s
l_____3E7B
m_____71C5
n_____1FC84 a, O, j9 y8 I- L4 }3 D
o_____74C1
p_____5FB8
q_____60855 z' w" l" S7 F3 T: X
r_____3AC4
s_____2F50$ r9 l3 X, S1 L, r$ y4 [
t_____36F81 h' h7 d3 }! l2 F& s9 l/ h3 g" ?
u_____7010- A9 o. b, M2 ]3 U  A
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____62333 D0 W3 w# @0 b: p0 i2 c: b; l2 s
@_____3A45/ E3 j8 J$ r  a& q9 c4 O% |0 T
#_____22917 {. D: n! w* i
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301" X; b- n5 B& h* Y' G
(_____4659
)_____5C82

希望做站长本人的学生请点击
http://www.3ast.com/viewthread.php?tid=13841
QQ790653916只负责SEO以及收费教学等方面联系，他人勿扰
于智者同行，你会不同凡响；与高人为伍，你会登上巅峰

鱼儿无心

3.A.S.T士兵

Rank: 1

帖子: 22
积分: 22
威望: 22
金钱: 5
在线时间: 0 小时

2楼

发表于 2011-12-4 17:17 | 只看该作者

收藏了。。。。。。。。

TOP

返回列表

[原创文章] 关于国内某知名大学网站加密算法的研究

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]