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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm) {+ M" X/ F# k! X* f
原始出处：http://www.3ast.com.cm# z4 l$ e4 e* d1 q! m& X  q, u
+ K7 R( Q( u# @- l; |( d$ |9 V# y
看不懂的直接绕过  T' F0 B. i' B6 }. K
加密前为:hwy123456& J% P$ B+ I2 g2 h0 z$ j
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E: w9 h  t1 P7 k

============================================5 X0 s7 F6 X! x0 y* H1 J
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件( Z+ k' X! h& U$ n- g  ]

文件名RSA.ASP
===============================================
<% 6 E# E) _" n# `6 J3 f* g* U
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus 8 F- a: @  {1 {1 U
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 3 f2 l, C4 j0 h* f* ^
Dim lLngMod
Dim lLngResult * Q: Q; s0 E7 c* c/ g
Dim lLngIndex
If pLngKey Mod 2 = 0 Then * V" }3 P% h+ Q6 M& S4 g
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ; H/ A' p7 A0 ^  _3 C* h
If Err Then Exit Function
Next   `* G$ p% E" j& T& T8 z+ [
Else
lLngResult = pLngMessage 8 U8 e6 A& O  {' D2 M
For lLngIndex = 1 To pLngKey / 2 ( R" K  v5 o0 H$ h8 t1 @
lLngMod = (pLngMessage ^ 2) Mod Modulus $ `0 P/ D9 Y( Q( S
On Error Resume Next * b  _4 z  {  c4 v
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 3 e3 F* D" i' j; Y+ V6 ]7 `4 Y
End If
Crypt = lLngResult
End Function% Z4 n# {9 A( z7 `) c

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex $ i3 d8 @+ A( }  O& S$ m, o; N
Dim lBytAscii 0 |5 |* b5 N) L  s
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function # ]& G7 t& ^7 ?6 b) z
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) . F" U# e# e% R
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 8 e! {2 r* \1 f2 Q$ E- }+ ~  Z
Dim lLngMaxIndex
Dim lLngEncryptedData   r) p  c/ S% u& z
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 8 K/ k0 j1 w  x0 N( s+ P
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 9 Y3 N; h  G- N, [& C; o! w( t
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ; [) B4 A6 _9 `; m/ C; W9 p  M& s
Decode = Decode & Chr(lBytAscii)
Next * D9 ?/ D$ B& l& b* H7 L0 g
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) + C) Q1 A# A/ `$ ]/ i- {; q
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) + E+ c0 x  P! H: F7 h1 ?
End Function
End Class 9 X; Z' l1 W+ h$ J0 q
function Encryptstr(Message) 0 D  Q3 ?5 U" s
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN " o, {: `( y4 c$ p9 `
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ) N( }. b& }9 ?5 V2 K: J
LngKeyD = "20643"
LngKeyN = "29893" - _1 ^  j# n" i! J  N
StrMessage = Message 4 c3 K! s- s5 ]1 J) L
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE / J' p% _3 T( |  v+ v
ObjRSA.Modulus = LngKeyN 6 [. j) H7 A# g/ l
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing $ Y& r* g9 O3 p! }
end function
Function Decryptstr(Message)
Dim LngKeyE 5 x- q' u; p) L; [# J
Dim LngKeyD + V7 G: F2 G* Q2 C3 M  f
Dim LngKeyN - W0 {8 K" c* _  d
Dim StrMessage
Dim ObjRSA 5 T+ p1 w) l6 M
LngKeyE = "32823" . ^& s) W' U0 v" H2 Y
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 9 V2 r1 Q9 @; Y! s7 }1 q/ w
ObjRSA.PrivateKey =LngKeyD ' s1 p  ~+ [+ g3 k  \# e
ObjRSA.Modulus=LngKeyN 4 h9 n3 R  Y8 g7 o  l1 h
decryptstr=ObjRSA.Decode(StrMessage) 2 ?/ I% v# u3 U0 Z9 @; S! i( R
Set ObjRSA = Nothing
end function
%>
===============================================
# M$ ]+ T" i& I
还有一个用于测试这段代码的test.asp$ \7 W3 I- s9 Z  E1 [4 G
有兴趣的自己搭建个IIS测试下
 * K9 ?  B5 ~7 D/ _  N
<%$ u1 o1 p: g9 x$ ?$ _4 a
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN   Y' j9 `  T1 _$ P' `/ i& c
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 7 m' N( u+ X' g6 l
LngKeyD = "20643"
LngKeyN = "29893" 1 d5 Q0 n0 ]4 x- Y
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ! M+ b7 ]: N2 X# V) a0 n
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing - e/ D' S0 C" |- I# m; a
end function : L% x3 {- |( x# e0 w" W
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ! Y2 V0 p" ^4 j8 j6 s6 r7 {
Dim LngKeyN , Y6 p0 _- [8 S- b+ E; D# o
Dim StrMessage $ E1 J6 ~% Z4 o8 k) Y/ n# U
Dim ObjRSA
LngKeyE = "32823" # j: F( j9 |( O+ K. V3 a- h
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message   ]. u! @7 a$ h) J% O
Set ObjRSA = New clsRSA 4 O& V9 d/ ?+ @/ r0 W/ j
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 1 J4 {6 c$ n& a- H( q8 z. I1 L) t2 n
Set ObjRSA = Nothing
end function % I8 I. B+ x4 x  m' ~
dim last,first . {/ }! L$ O9 L/ |# y1 {
first="!@#$%^&*()"
Response.Write "加密前为:"&first 4 I8 B: q4 l5 N* O- T0 o9 N
last=Encryptstr(first) * N/ v/ X2 y# N1 m8 [
Response.Write "加密后为"&last 8 s0 f$ a$ Z$ y! ]$ g" {5 `
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了4 Y* `0 W) u0 `
===================字符集================, r8 w6 n6 h* d) T! _$ d
1_____6EBB/ P* R2 M& G  a- m1 W) c
2_____5C1F  v# `8 W( J8 r) S6 i: K
3_____4D75! V8 T9 O. ~# ?+ \
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D7 B9 s& M6 w- j1 n
8_____1A1C0 K6 h5 c) @! P& m+ t  I
9_____6D20& g1 h$ V5 m/ s( r2 }
0_____1089
a_____0F3E2 {9 `# ]% p+ N4 g
b_____3159
c_____3517
d_____419C
e_____615C2 _1 D4 [( V; ?9 r, d$ T* A
f_____556F9 U+ x% ]/ p8 r$ p( w
g_____2B7F
h_____0F9C+ d" t  `) i( x' N! {
i_____00FA, P5 Z4 B# u+ D6 _, T
j_____5A50
k_____2850
l_____3E7B
m_____71C5* z8 D  P# Y- i0 J1 ]+ W
n_____1FC8
o_____74C16 e  A6 z4 t7 N
p_____5FB8- `0 X  u! A, \9 _# ?" k+ V" f! z
q_____6085
r_____3AC4+ j7 j5 R2 p. N' M: a5 ^& B/ x
s_____2F50
t_____36F8
u_____7010* v) q3 U6 ]) `/ s/ l* a
v_____0B42- A' Z# _6 N8 ^$ m/ _+ {4 t
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3% Y+ {8 q4 g2 V; `; M1 d; e
!_____6233
@_____3A45! i- h& W9 m8 v! c* @' M* [- V, r
#_____2291
$_____5D5C+ t$ q2 r' }* k0 N; U
%_____09B92 V7 h9 X9 n# Q4 v; B
^_____43EA
&_____62B9
*_____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 分享给朋友]