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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm+ K/ A, F4 T  j
原始出处：http://www.3ast.com.cm

看不懂的直接绕过5 n; Q! s1 A+ I; }
加密前为:hwy123456& B6 ?* E3 b4 H
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
& a4 M1 j% W7 {) z
============================================  [/ v* O1 t1 ]4 S7 C
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
; C2 o: ]# S; W! f- f0 n+ Z
文件名RSA.ASP
===============================================
<%
Class clsRSA   v: E' F0 U+ S2 n9 L. v
Public PrivateKey
Public PublicKey   k5 N) _3 m8 y4 |' v. L) l8 y
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) # e& P2 M+ S" q2 g. y
On Error Resume Next * `8 m8 ~" r6 ]+ z" v. S7 B2 e# E! b
Dim lLngMod % B" c: j2 i% z/ P; k
Dim lLngResult + d. x# s( U2 c& w  V+ Y
Dim lLngIndex 9 j& U, g/ `4 I. x1 V
If pLngKey Mod 2 = 0 Then 1 a* O; {: V6 Z3 _
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 , V9 i: E1 w- C& ^. i
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus $ H5 b0 s& L  x% K0 ^: G
If Err Then Exit Function
Next
Else ! ?0 x8 U6 b* H' Y0 F" @8 H
lLngResult = pLngMessage ' f: y4 k/ x7 R. o" U" j/ d
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus . R/ ~" Q3 b" |4 l
On Error Resume Next $ D" q" l0 e  k3 [# K
' Mod may error on key generation ! C- T4 E" `$ r
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function " U/ H- F  t) ~  v
Next " r+ G( R" B# U5 b& ?: {! ]
End If 3 y4 `- ^. x1 l$ ?
Crypt = lLngResult $ ]' X+ Y; ~: g! c0 A2 W
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex   v% R: d4 z8 @7 C
Dim lBytAscii
Dim lLngEncrypted ! _4 S4 n; g- I( P# r8 L
lLngMaxIndex = Len(pStrMessage) 8 T; P' ^* f! y3 w
If lLngMaxIndex = 0 Then Exit Function 4 q  X5 _  D8 H/ S
For lLngIndex = 1 To lLngMaxIndex + X+ k9 \0 J  r$ N* |% W, F( r( n
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 4 p4 f- d* v1 Q5 Q3 @
Encode = Encode & NumberToHex(lLngEncrypted, 4) # G  P$ v+ {5 _
Next
End Function $ B' S0 U  j+ F% i, a
Public Function Decode(ByVal pStrMessage) / L6 p3 H& K+ N+ a# m
Dim lBytAscii
Dim lLngIndex - _" _8 {7 D2 u
Dim lLngMaxIndex
Dim lLngEncryptedData 9 ]. y& a! ?: E
Decode = "" 0 @: }9 q0 Z7 A! P/ g& M
lLngMaxIndex = Len(pStrMessage) : l" `, c$ Y7 ]2 u
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) : w4 h  Z+ {8 O# y
Decode = Decode & Chr(lBytAscii) + a, c8 y! G: N
Next 6 E$ v# V" y! X2 @4 v4 I
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN % q: g0 K( |- T% @
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ) k7 U/ q* v$ ~- O
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 6 H, |6 h! S+ B, {. ~
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 8 z- A3 g$ \4 H+ p7 M" c3 Q# n
Dim LngKeyN
Dim StrMessage 3 z: a) \. J# {# q1 n6 t
Dim ObjRSA
LngKeyE = "32823" / f% _$ m, P0 w- H9 y; p
LngKeyD = "20643"
LngKeyN = "29893" 0 C+ I; i3 k6 J( A4 {4 j% T
StrMessage = Message " L( L# W5 v8 A* q3 ^
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD * i9 H0 \0 S3 ?0 M
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function : ~$ t7 U- N8 a& K  C4 }* H
%>
===============================================5 `- a7 v+ Y) e6 N: U

还有一个用于测试这段代码的test.asp/ d# |/ x8 M. n3 Q* ]
有兴趣的自己搭建个IIS测试下
 ; B/ t6 ?- g: p1 r1 R) B  I$ A8 ?7 G
<%
function Encryptstr(Message)
Dim LngKeyE 7 Y& z; U) A4 S- d
Dim LngKeyD   d- \, h/ B$ G3 P
Dim LngKeyN
Dim StrMessage 1 [1 ?6 |) e/ @  W) I8 M; Z# a
Dim ObjRSA
LngKeyE = "32823" 7 V  x% {' t" W/ z1 y8 |) N/ n
LngKeyD = "20643"
LngKeyN = "29893" 2 b7 G% R0 s4 }& H9 W" K3 g. J3 z
StrMessage = Message
Set ObjRSA = New clsRSA . w1 L$ ]& K1 P8 o( t' Z
ObjRSA.PublicKey = LngKeyE ; C( I" ]* G) j( V4 T. s. E
ObjRSA.Modulus = LngKeyN   P/ |) G9 U' ], O, q6 N
Encryptstr = ObjRSA.Encode(StrMessage) : w8 L' R5 S2 ~1 j
Set ObjRSA = Nothing $ q4 L& a( U1 [. z# m3 C
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 9 Q; h# ~  a, d, D9 F
Dim StrMessage 6 m0 n+ j- e1 C* w# ]  H7 q/ B
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" % \! U7 m# j' e
LngKeyN = "29893" 2 @! A# [* p* j( M$ I
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN   T2 T& f) c/ q! _9 A! k, Q" G: L
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing # k$ E* d+ {. e1 |
end function - O7 z" A6 n, d
dim last,first
first="!@#$%^&*()" 9 Z* _; W" t7 Y) {/ {/ J. f
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 0 e+ ?  P% {- F4 W. n, W2 g- a* q* T; t
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB/ [- K% n# v  [: y
2_____5C1F  ~) o$ V$ V! a" v
3_____4D75
4_____26CC/ o- d- m, B% G) S
5_____4F88: S$ h" w; q2 Z+ @3 B
6_____3F4E% ~  B$ V6 j& |1 G- U
7_____0A9D
8_____1A1C) L1 E4 v3 Z+ z+ P; Z/ j
9_____6D20& i8 V$ d* D# e4 X5 \
0_____1089
a_____0F3E& `. x& x3 k6 S: z
b_____3159" N6 l1 z4 x7 ~! x& h) n
c_____3517
d_____419C+ g, S  g, J7 ~9 D6 g( m2 f
e_____615C: \  V) V0 g/ [; t# w
f_____556F
g_____2B7F
h_____0F9C8 P7 F) q2 e& u- L4 M2 P
i_____00FA) p# Z$ `+ Q& s+ D7 y! z: [
j_____5A50
k_____2850) a2 t; w# q7 B' _* s% _# b
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1# \6 i! b! @! f( b- J6 O, J
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010) Z' L9 G$ X; g2 b) m# j8 ~
v_____0B42
w_____1C7A+ ?' Q) A- U& |* i8 j$ A& C: {& ]' _
x_____16F8
y_____2EE7
z_____5CF3
!_____6233! w1 r6 a# j4 f! ^0 f- @+ z
@_____3A45
#_____2291
$_____5D5C
%_____09B96 ]6 l, t& U% o( X
^_____43EA
&_____62B94 d6 K8 m7 u5 y# v" X
*_____63010 N# f8 e7 B8 |2 N- L
(_____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 分享给朋友]