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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm) F" R7 \8 i4 z0 F8 z
原始出处：http://www.3ast.com.cm" k7 s" ^. w* Z; v

看不懂的直接绕过2 [6 i/ B' q: f. _
加密前为:hwy123456' c" o& M  V) ~# J% t, p$ f! \- p
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E% C8 N5 V- c5 [7 t% t9 U
3 q. I) M+ I' P. k( N
============================================0 R0 a) I& ]. o$ L6 a" F8 B
上面是当时自己校内的心情。现在已经解破出来了，分享给大家7 Z; }( R# `0 x3 \2 |
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法5 }& j0 w& r) |- g$ d3 x
以下是RSA算法文件/ C& W) M2 O& [" a/ P* a- @
* N: u9 Y1 V) W1 C3 V1 t/ e
文件名RSA.ASP) y+ ^' ]& {% E5 p+ q( ]6 L2 l
===============================================# k! ~" v/ m: @8 r
<%
Class clsRSA
Public PrivateKey % E8 j" w' q; }- C4 q3 F3 s( ^
Public PublicKey ) g4 M) f4 ?, z3 p
Public Modulus   y( g$ [+ j! R% H1 k+ U+ b* @' I
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod 5 h: }* V3 ]: O$ q3 \
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then $ ?( b. ?5 i$ e
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 & ~/ R- R7 {% P& o1 b. h
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ' G! O' ]4 t3 a9 i  U1 x" ?9 _
lLngResult = (lLngMod * lLngResult) Mod Modulus 7 c% |5 i4 B, ]8 r
If Err Then Exit Function
Next + s/ k* P0 y; D. J
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus - s) S5 n) h8 S: M5 C  c9 z3 Q4 N
On Error Resume Next * r- o7 q4 ]6 m5 O
' Mod may error on key generation 9 n4 J7 X  x: u
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function * U; V: w6 \/ @- r1 l+ Z
Next ' ]6 T9 F- N5 m& E6 K6 f: C
End If
Crypt = lLngResult , r. ~/ \, R0 n$ A' m, q9 j5 y
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ( l) [: b" e) E) ?' L, L& [: v
Dim lLngMaxIndex
Dim lBytAscii ( K5 A# r# O+ i; b
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) & w$ E0 ]$ k; `4 r. Z& N. |" Y  X0 {
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 0 R" P* R0 f9 ]" v
End Function
Public Function Decode(ByVal pStrMessage) : Y9 v. |% {/ W# o
Dim lBytAscii 9 b% ]! t1 [9 {0 M, ^8 ?
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" 6 |3 M( ]5 @. J3 x' l2 b
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 % U) D, l: j. R& q! o
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) . r4 N1 v6 @8 ~1 x' N; \  x
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) : T7 B/ _  N% B6 H1 I1 A" X6 G
Decode = Decode & Chr(lBytAscii)
Next
End Function 1 ~2 I: N. c- z; o) j; b
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) $ E) R- ]3 c  O2 [
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) # A8 l; V; f3 M: ~
End Function 0 Q$ r3 m: N3 L( B" z
End Class
function Encryptstr(Message)
Dim LngKeyE * C! H9 m! J+ a6 w7 x
Dim LngKeyD 0 C  S( C. [, T8 a7 Z& h
Dim LngKeyN
Dim StrMessage 8 T& X% ~9 D8 `7 L. }
Dim ObjRSA ; \3 M. _/ b, W% f9 ]
LngKeyE = "32823" 1 r8 H4 N) I: Y- [
LngKeyD = "20643" 1 f& u4 [+ D5 h/ e- |* j6 W
LngKeyN = "29893" : d  t8 K6 A$ O) e
StrMessage = Message " U% S3 I7 ^% |3 ]) F
Set ObjRSA = New clsRSA 7 H! K. v: H2 p' s* q- ~7 I+ t0 |
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) - v2 S3 }: T: {* Z/ [! B
Set ObjRSA = Nothing 2 ?8 ]% _: m$ H9 [' f+ ^
end function
Function Decryptstr(Message)
Dim LngKeyE * P  S: L0 |4 a& ^" z: e
Dim LngKeyD
Dim LngKeyN 0 S# I$ @4 }7 e. ?2 u9 p
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 2 Z4 o% ^+ {0 s1 S# E8 H4 p9 {1 n& \
Set ObjRSA = New clsRSA " O& D7 l) _5 j
ObjRSA.PrivateKey =LngKeyD , e. M% s; r/ o! p' ]
ObjRSA.Modulus=LngKeyN 7 L/ n! u/ F! F+ z! _* L
decryptstr=ObjRSA.Decode(StrMessage) 1 B; V* o* K6 n! @; k3 W: G
Set ObjRSA = Nothing
end function
%>+ U1 @1 n* |. \7 s6 @. b" ?
===============================================

还有一个用于测试这段代码的test.asp% E' q# u. f/ {
有兴趣的自己搭建个IIS测试下+ a! b2 z. s9 V+ X

<%) x7 c1 P5 h1 g$ C& S
function Encryptstr(Message)   q' H3 S3 i, s! y, Z  _5 N
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ) a$ A+ K* O3 D% q, k
LngKeyE = "32823"
LngKeyD = "20643" & N, V; J7 C  Z1 d$ |4 C
LngKeyN = "29893"
StrMessage = Message * [' X. ^5 m/ G$ ]
Set ObjRSA = New clsRSA . U* I/ J) m% w6 l4 p5 K& j" N
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 8 N8 @; C+ l) P' o( F
Encryptstr = ObjRSA.Encode(StrMessage) 7 B7 ^6 ?5 b' y: \! }( _
Set ObjRSA = Nothing 1 Z8 N/ }# y% h. _8 H  r+ l
end function
function decryptstr(Message)
Dim LngKeyE + c% `& e2 L, ?% y5 {: {2 O
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" $ h( k9 s3 p+ }) ]3 F, r  [
LngKeyD = "20643"
LngKeyN = "29893" 0 D7 j) G. X: f& U7 E8 o0 X
StrMessage = Message % u, v# T" X; M8 G* ^  r* u2 o
Set ObjRSA = New clsRSA 4 q8 ]1 ]: C& R
ObjRSA.PrivateKey =LngKeyD . `0 r" _2 e) Q& e" c: Z" u
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) % v! l; z$ J% O$ J
Set ObjRSA = Nothing ! [7 n; x# Y6 _# i" [& K
end function
dim last,first
first="!@#$%^&*()" 0 L, ~& `# O; w) @/ z
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last # ^, C" F5 f' n7 y. l
Response.Write "解密后为" &decryptstr(last)
%> ==============================================+ Y$ E6 A" |  x# _$ c
剩下的就是字符的对照表了
===================字符集================& j$ u- R7 w. k, F& V( K
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C' d- e6 v' D# B
9_____6D20) F9 d( S5 ^5 M4 S* l$ _  ?
0_____10893 P8 D% R1 n1 H* R' M
a_____0F3E" V. ^& W# k. {4 z. a+ |
b_____3159; d3 V- ~4 g; y% X% ]: a* H
c_____3517
d_____419C3 G0 S& l! i' U) @
e_____615C8 s# H( o1 |6 H
f_____556F3 M: y" j0 J- A* Z$ [
g_____2B7F8 E6 K1 a7 m' b/ y9 d
h_____0F9C
i_____00FA$ m1 Z, z4 H5 e$ C* m' s
j_____5A50
k_____28501 }% {! w7 q5 ^2 e& e/ W9 s
l_____3E7B
m_____71C5
n_____1FC8: r- ]! ?9 t$ E+ i) @
o_____74C1- f# `! Y; j/ l7 o1 a
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8$ N) k' n/ o% [1 N8 c! k+ I
u_____7010
v_____0B42) g' w6 S- E# U
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A451 s, T. a% J5 D0 c7 r
#_____2291! M8 B' [$ ^$ \: b+ P! J
$_____5D5C
%_____09B9
^_____43EA9 J* I$ u& _. ?  u/ n7 X
&_____62B9
*_____6301
(_____46595 C7 }& P+ ?2 F  X8 F
)_____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 分享给朋友]