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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm, I# O: j7 j4 @0 q( ?
( Y) Z% a8 E- n  M8 H- T
看不懂的直接绕过* z- I9 H% a" y' C
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E& ?% v( `3 ?# i# ~' e9 m3 t$ f: f

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法* W( [+ h! y9 b0 ^
以下是RSA算法文件4 w/ i$ P3 G# U! e

文件名RSA.ASP; e, Q# f- B+ k
===============================================
<%
Class clsRSA 5 Y! {' g7 h8 s7 g( j2 [
Public PrivateKey
Public PublicKey # _5 k! V: n; Y$ z- A$ [, n
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult : q: [; ]" _7 j8 Z, x/ ^  s" J* ?
Dim lLngIndex 7 D' E. h. T0 s: t. L; f: x
If pLngKey Mod 2 = 0 Then
lLngResult = 1 5 z/ i( f) u- y. `- y$ s- U* S
For lLngIndex = 1 To pLngKey / 2 8 ~' B; D0 |; @8 C
lLngMod = (pLngMessage ^ 2) Mod Modulus $ b* Y& B. r! ^9 X3 M: o4 V4 ~
' Mod may error on key generation % a1 q* q! u, y6 S% J" i8 a
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 0 ^) r3 d* z# h' V7 K$ t
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus " V. [8 w8 U% q: l4 z6 |
On Error Resume Next * B; Z. X& U; |; S3 H. N) K
' Mod may error on key generation 8 R( v2 l% f; `1 b) x* E; g
lLngResult = (lLngMod * lLngResult) Mod Modulus " S, y7 e2 y) F9 s
If Err Then Exit Function
Next ! B/ L" @: n8 _
End If
Crypt = lLngResult
End Function
' v, {/ ~; X# s; O- q
Public Function Encode(ByVal pStrMessage) 4 O1 m- A& s$ e- G
Dim lLngIndex " f1 @/ |5 z4 l7 V8 B! A) a3 h6 v
Dim lLngMaxIndex
Dim lBytAscii 2 x$ O% _) R4 b# \( j
Dim lLngEncrypted ' ^- v  t; h2 B* d& r
lLngMaxIndex = Len(pStrMessage) " I" ]4 V9 P9 W- b0 ?; K
If lLngMaxIndex = 0 Then Exit Function . {( w, r" F6 C6 P. k- N
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 8 t( X& y, H& }- B% Q0 ?
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ) S/ v8 s6 V7 E, K
End Function 0 T6 V" x2 K/ s
Public Function Decode(ByVal pStrMessage) - ^( z5 ]; L/ a! t
Dim lBytAscii ) M& e  @5 s6 `% s' u
Dim lLngIndex * u; Z; g: z& y4 C
Dim lLngMaxIndex ! h3 A0 o  D" b- c; ?2 u, y; l
Dim lLngEncryptedData
Decode = "" ' P) G2 P1 G  R! P: T0 h
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 8 W# i' N0 p9 ^$ Q
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 0 O6 w! X; C: o% A* M& f
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next * f; T7 u, p% h: D7 |
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) / s2 n+ F2 G! }; a
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function & K0 e+ J1 R  t7 n
Private Function HexToNumber(ByRef pStrHex) 4 H; D" ~. z) i1 @0 X; K$ U/ I7 Y
HexToNumber = CLng("&h" & pStrHex)
End Function * _$ G1 }& K7 G" j, E
End Class
function Encryptstr(Message) * |7 P, Y. w6 Z9 Z  t* C7 ^
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 6 y; [6 ]& C4 q, T6 I1 N4 M
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" - A, R( J5 k2 E
StrMessage = Message
Set ObjRSA = New clsRSA 6 x" R& f; l& W
ObjRSA.PublicKey = LngKeyE : f$ _$ M/ H$ @$ k+ p$ y
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 6 P' E4 J0 Z, t) W( Y, c
end function
Function Decryptstr(Message)
Dim LngKeyE , B0 B( o5 C3 _: b% u$ {
Dim LngKeyD / X2 {' c/ w8 v5 Y$ i
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 9 h! h, s7 b8 n+ _
LngKeyN = "29893"
StrMessage = Message & o0 B, r3 f. s3 A% X2 M
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 7 a2 ~) j0 g) n. L- T! A
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)   j" I! Q; i' n1 l. B' N0 {
Set ObjRSA = Nothing ) ]) v7 z( D- O# c' a# M
end function   z6 r9 f1 `9 D& C
%>
===============================================
5 q. n' ?  o( p- h8 U8 Z  F
还有一个用于测试这段代码的test.asp  O) x4 c- z- v4 F
有兴趣的自己搭建个IIS测试下0 X" t5 R* |/ A

<%: P6 o0 M% R4 ~$ G+ Y
function Encryptstr(Message) 3 T9 K; D/ Z7 w3 r8 L* Q+ D' x$ y
Dim LngKeyE
Dim LngKeyD / X- ^0 `; h* Z; O  A' t
Dim LngKeyN 3 v' E" Y" l8 k9 y' c" b! A$ Z
Dim StrMessage ! O0 L& `0 a; T2 E, n4 _
Dim ObjRSA
LngKeyE = "32823" ) u: y5 ?$ V7 u( A- j
LngKeyD = "20643" $ I1 Z6 C: E# z5 @+ d/ @0 y1 k
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 8 l( f! X6 K& r2 _
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE 9 Q8 {  M5 J+ j/ u
Dim LngKeyD & @9 Z8 u1 A4 ^6 U; k6 t8 H
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ! G, q8 l/ y. r# o" D0 q
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ( `5 N  ^5 s/ @' _) A' k
ObjRSA.PrivateKey =LngKeyD 4 J9 ], H0 l' g- ?; x
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 5 E; Y* b! P  f( q( |2 D* {
end function ! W& U% O! M  C) |4 _! m2 T: j
dim last,first . c5 [/ Y" h* n5 k! S5 h3 `
first="!@#$%^&*()" 0 {# {! |( l# N8 h  ^7 Q( s) l
Response.Write "加密前为:"&first
last=Encryptstr(first) ; h" \" W. V7 b/ o  E1 H
Response.Write "加密后为"&last ) q6 K# Y  V- w3 p! P% R
Response.Write "解密后为" &decryptstr(last)
%> ==============================================. y& Y. f# A# k: m# h
剩下的就是字符的对照表了
===================字符集================- }: S% ^& |9 C7 Y7 J. V
1_____6EBB
2_____5C1F
3_____4D757 Q$ Q( D2 P0 @9 a: w
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D201 b/ x# R( [- A. @1 x
0_____1089
a_____0F3E3 P# i% `! ^6 j, |$ K$ p
b_____3159- L$ D1 T2 E8 ]
c_____35171 U. f5 [' ^4 {, U" }* C% a
d_____419C
e_____615C7 t5 V: H3 c6 }% P4 e) E' B& W# ]+ j
f_____556F0 f" w& Y  j) n: b
g_____2B7F& E1 Y% p% m9 I$ i" a5 G2 F( ^- p
h_____0F9C3 l/ X& u$ k$ r$ f' h1 `6 ~3 B, h
i_____00FA3 y4 v; m' R$ `; X
j_____5A50
k_____2850  d+ e1 N# t  d$ K9 M* H
l_____3E7B  }7 `) o9 A  Y0 ]. r0 |
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50- B) n+ e% q: ~7 l
t_____36F8
u_____7010' ~+ Z0 ]0 Z% X
v_____0B42
w_____1C7A
x_____16F8. @3 {7 W* y: w, N& r8 \
y_____2EE7, N# D, H  e) M5 e# A2 ^. e
z_____5CF3& X, R/ J2 \/ k
!_____6233' E* }* N! ~2 N( j, R
@_____3A45
#_____2291. u& \9 ~) i- n1 ~
$_____5D5C' w: ^' |8 v7 N5 u, \7 W+ u% b+ F
%_____09B9
^_____43EA
&_____62B9. L6 q  `/ l5 ?" i2 M8 ?
*_____6301
(_____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 分享给朋友]