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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm6 p. A& c9 \  c; ~- n2 @

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E3 O7 _1 g( K! U3 q
' x6 R1 R9 W8 \7 S
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家" h6 j2 w+ S  Z- K! j0 q0 a# M. f# Z
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
! g( d+ Y( P8 |1 W# c2 U
文件名RSA.ASP) R' V$ R$ o! N
===============================================
<% 3 t- w6 }% G. d3 ~& |* l, D0 f$ f
Class clsRSA
Public PrivateKey ! L) o+ c7 L4 L+ v
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult + V# G$ u- [. U! d
Dim lLngIndex
If pLngKey Mod 2 = 0 Then 9 T7 T$ _. N3 i/ y3 H
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 1 k8 O7 p/ ~( ~. ]3 y5 v
If Err Then Exit Function 6 e, @: ]" H/ Y" A8 E
Next
Else ) a( J$ `  ?1 I
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 + F4 C; L- f2 B% }' ^0 W
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next   n5 S- v4 A' p' d2 u6 S3 B
End If ) }+ I8 H' ]5 r+ O4 F  g* L2 C
Crypt = lLngResult 6 P! f. q. q! v- @5 G0 D, L& v! q
End Function0 L! I4 Z9 C9 r5 j) r

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex . i. u. t! i2 S  F2 ^+ h
Dim lLngMaxIndex
Dim lBytAscii ( q0 o; m& `9 ?6 p9 W
Dim lLngEncrypted # b& r& W: f: B5 N+ R% F  N% v
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function + b  @6 a7 v: O# X5 I  \
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) , Y/ S! _+ w6 z
lLngEncrypted = Crypt(lBytAscii, PublicKey) ! ?7 A+ q1 z# o6 N4 w# z' |
Encode = Encode & NumberToHex(lLngEncrypted, 4) 1 W, z4 \- F5 U5 F6 ?7 O0 P  L
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii & E) _6 v2 D; x# z7 Z8 o
Dim lLngIndex 1 \" I" `0 \3 j" n
Dim lLngMaxIndex
Dim lLngEncryptedData 5 M( A8 w: `% m" m
Decode = "" ) Z, N3 k/ d0 \( ]: N
lLngMaxIndex = Len(pStrMessage) ' D  z) M8 l+ v" B* |
For lLngIndex = 1 To lLngMaxIndex Step 4 - Y: _3 v/ K! V8 e1 R5 K* O
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))   A: B; w& L& F, K4 |
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) / ~6 s+ J& k! v$ {
Decode = Decode & Chr(lBytAscii) 0 g  e8 R9 Z, P/ f
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)   V( |3 B! w8 J/ g# y- U
End Function 9 f. ^% Z) Z8 u+ U
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) # K+ N5 h$ ]) b% u4 i
End Function
End Class & G( z- L' L& Z7 k# x
function Encryptstr(Message) / w) u' T. b1 Z6 f2 O
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" . A" ^2 V+ t# n! j
LngKeyD = "20643" , n  Q# \2 ]- ~; y- k$ }% i
LngKeyN = "29893" % e1 o+ r+ ]/ L& u/ F' X& {4 }
StrMessage = Message 3 L" x) b/ J! K. L
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ! Q- e$ l% j$ a& y8 x0 X
Encryptstr = ObjRSA.Encode(StrMessage) . M1 k0 H9 d/ G) U
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) : _* E8 r- y( u
Dim LngKeyE + U0 o6 U* i8 @+ k. K
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ) Y- i0 \; C! T  T
StrMessage = Message
Set ObjRSA = New clsRSA 9 k$ H8 o# n' a8 N6 X
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing   h% r/ d- O' I; m, o
end function 1 \: F( q% `  a4 a* [
%>: H8 i5 ~6 _6 [' v
===============================================5 x1 n1 v/ ^' T1 R0 C& A
3 m$ }+ ~9 H( |, D; r+ A
还有一个用于测试这段代码的test.asp7 @/ k' ?1 K' |  O+ f! ?
有兴趣的自己搭建个IIS测试下, f$ \& O! W& @3 v# z  {! ?5 w
 % [3 H+ C. Z8 r& E" w6 L% `9 p: |
<%, g9 P; A2 a8 \+ t
function Encryptstr(Message) % v# F4 N1 v6 N: }$ @3 U1 Y& L
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ! b$ e' f5 H# }( |# v. H0 F
Dim ObjRSA
LngKeyE = "32823" 5 S3 o( l4 w' u' d; D- y/ B
LngKeyD = "20643" , u* d4 I/ v8 q3 m% w! w: A/ ~. M
LngKeyN = "29893" 8 `5 \* B7 o. i: E# I( D
StrMessage = Message
Set ObjRSA = New clsRSA ! [; r* v( k- K# S
ObjRSA.PublicKey = LngKeyE & M% [* Z2 c; t) m
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 3 i2 _) W7 h3 {) u0 g  Q9 g8 ~
Set ObjRSA = Nothing
end function
function decryptstr(Message) 4 f" |! U' s7 ]$ ]. \
Dim LngKeyE - H1 L+ G$ r# E3 j0 D, e4 L
Dim LngKeyD
Dim LngKeyN . O5 ^# }# X0 l+ ~- m# O
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 0 J$ s* Q0 s. ]4 k
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN , y- v  u3 q2 N
decryptstr=ObjRSA.Decode(StrMessage)   D$ n8 x; d5 }: P; Q
Set ObjRSA = Nothing " w% c% M2 A1 B6 [, H+ x6 p# A  }
end function
dim last,first
first="!@#$%^&*()" % [, k8 `, f" t
Response.Write "加密前为:"&first 6 r2 _* J! V+ `% C
last=Encryptstr(first) - H2 x1 B! J: Z) X7 w
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ( w- U" Q, L  o$ g
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB  E. a2 T1 d1 W7 h, e" ~
2_____5C1F
3_____4D754 D; q4 |. o: w% s8 M  d8 p
4_____26CC* s, ?$ a2 ^. F/ _) w  s
5_____4F88
6_____3F4E1 N) x7 u, R- L- q2 S
7_____0A9D3 F0 j+ {9 J8 C% a' O9 |1 [
8_____1A1C- D/ H) d$ i: Q7 Q
9_____6D20
0_____1089/ N, H# V  s9 V& n- [
a_____0F3E, H4 f3 `5 D  k( ~5 S& P6 K
b_____3159
c_____3517
d_____419C# D( f: ~& @3 }/ j9 y% L) ]; L3 \/ ?
e_____615C( O) U' J: N9 n1 W7 F* B" G! I
f_____556F
g_____2B7F
h_____0F9C3 V5 v0 l' a$ f5 B7 j' E% O" K$ w5 K
i_____00FA
j_____5A504 N5 ?1 b  O0 m8 w
k_____28502 z6 f4 l4 `  T* @4 `. F' r
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC41 q" n3 v$ C) z' J0 ~6 x
s_____2F50' L1 B* o' L& R$ P4 d
t_____36F8
u_____7010
v_____0B42
w_____1C7A/ u( j3 T  B" M9 b
x_____16F8
y_____2EE7$ |! `  L  o/ K6 s9 I
z_____5CF3
!_____6233
@_____3A45
#_____2291" n9 d8 ?; `6 ^2 j$ v. I
$_____5D5C4 H8 y- x. v; N: ?
%_____09B9% Z% T. I+ B7 d* k2 K) M- m( @
^_____43EA* p2 J1 A8 \% A% ^/ L) n
&_____62B9. V+ |$ j! X- o
*_____6301& t5 I: `- }( I9 `  d7 i; `7 a( m
(_____4659: d, j/ x4 O& z9 I) _. l" U" ^2 J2 Y$ a
)_____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 分享给朋友]