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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm, D* N4 A4 T4 o3 w, D$ y7 k0 @8 x. d7 {
原始出处：http://www.3ast.com.cm1 v9 H. e6 G5 D9 w
* J& y+ A3 T0 l2 n( R7 I  Y, z
看不懂的直接绕过5 z7 E" p) m; L( n
加密前为:hwy123456. S7 X$ ~" v7 O. a3 G# U# b
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E: ~  j% [( x9 ?5 N, L! p

============================================9 Y8 J* z0 R8 K1 z9 e( C6 {/ _0 p
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件# I! S; B8 G% N% \! S

文件名RSA.ASP2 ?, e4 z& k& g" t& i  L
===============================================4 R; B; O- M3 J
<% 2 w$ Z% m& p8 e; T6 n  ?
Class clsRSA ' q% v4 t: u* M& W
Public PrivateKey
Public PublicKey
Public Modulus 3 g, F, ]0 b( }( ]7 R9 d
Public Function Crypt(pLngMessage, pLngKey) 9 J3 ^: P% D/ i( Q+ N& c) L
On Error Resume Next
Dim lLngMod # S. g4 g7 t% }
Dim lLngResult ( s# h7 l; i  @7 U( I
Dim lLngIndex
If pLngKey Mod 2 = 0 Then # ]0 ~& f. w; d7 C( D8 Y1 @( b( M' y
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2   a  {. b4 @" Q2 U$ X
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus & a  h8 d# I3 Q: }8 w2 U% G$ x
If Err Then Exit Function ( L# a  }( ], I: s
Next . f5 l( z: M7 p, N
Else / T' c# G! C, c0 P; G5 T: S: X
lLngResult = pLngMessage " U( o7 I8 s& M5 n9 W& Z9 M
For lLngIndex = 1 To pLngKey / 2 # y0 p0 w+ }/ H- f9 ^$ ^* c
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next   v: G% O! n% H- O$ o9 y( x
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ' ~) A8 ]4 O4 E$ T% }) f
Next
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) % @! b  O: F* }* [
Dim lLngIndex
Dim lLngMaxIndex 5 Z1 d  |1 `3 R1 }9 S8 d* y
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ' p& C1 q' X9 g5 o! {  K
If lLngMaxIndex = 0 Then Exit Function ( ?$ r9 I8 q- P8 [
For lLngIndex = 1 To lLngMaxIndex # K% ~. r% k" G
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ' ]" S8 t9 P2 \% q) i8 {
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next / V& i' W4 Z, `; Q+ q/ {3 r: M: g# N, i
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex - b: f  X$ K" O0 F( o2 [' |
Dim lLngMaxIndex 9 c* n3 s3 X) r( r
Dim lLngEncryptedData
Decode = "" 5 J/ e- E" n  w4 r7 E! N$ _' k
lLngMaxIndex = Len(pStrMessage) * }* h/ A% W% \- |, f& l1 a$ w
For lLngIndex = 1 To lLngMaxIndex Step 4 ! [% C  S9 i$ @" z
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) / ]# w5 p+ |' i+ |
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) - P) ~# w1 _6 \0 k% P
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function 0 V' V5 f, n& q% l
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN & K9 B# S5 d$ p0 k( B
Dim StrMessage
Dim ObjRSA " m" a* E4 v5 k( C0 ?/ ^
LngKeyE = "32823"
LngKeyD = "20643" 0 S  C! T  [9 r/ q2 E9 j
LngKeyN = "29893" 8 U  |- Z3 A3 j5 b# U: ]
StrMessage = Message % Y( s" `0 A+ |; z  M' O
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 8 i+ @' r1 |8 F
end function
Function Decryptstr(Message) # a& c3 [& n; i& Y
Dim LngKeyE % |$ o: Y, O% i0 [& ]* B* k
Dim LngKeyD 1 Y+ k' z) X4 s( F
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 9 e' }. Z0 o* L& r5 R6 X
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ) e7 e5 R5 p8 l, {) j9 b
StrMessage = Message 6 S* Y9 D- J# u2 W
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ' h. k0 f, L$ W1 M; E
ObjRSA.Modulus=LngKeyN 3 F& h3 B- p) P
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function - q& l8 |5 t) u- D' t; t: ?
%># ~$ k3 F+ O4 a
===============================================
1 f  j$ P% b* T$ e. s
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%1 K9 |9 ~2 T8 s
function Encryptstr(Message)
Dim LngKeyE 3 `1 j# K+ c0 J) {* m- `
Dim LngKeyD ) k& Z6 M1 j0 S- W
Dim LngKeyN 5 ]; X$ s8 g. t) F* s$ V; F7 D, e
Dim StrMessage 7 V2 H' W2 p! H
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 7 a; R8 A  [0 }- G& |* d
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 7 `! Z8 S  r4 z. K! s' l/ o
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 2 T9 U' `) c3 S9 V
function decryptstr(Message) 8 L; W5 }+ [1 G5 b  j
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 4 f: M. L0 ~, D! ~6 N
Dim StrMessage & i( Y) v/ F# N" J4 q# |# [+ r
Dim ObjRSA   z+ w7 T, z" t% H4 `
LngKeyE = "32823" + ^4 t! T$ ?8 _0 v9 U" j
LngKeyD = "20643"
LngKeyN = "29893" 6 z! f, v8 ^7 v; F: N6 z" m$ r
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD # L  g$ J6 ~1 M" h2 P
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ! r2 p3 W7 [; j+ a" ]
Set ObjRSA = Nothing / Y- C" u* X0 r7 M  E7 j
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) : z3 s" M% k7 x1 ~+ L0 w+ h/ }2 {: s
%> ==============================================1 s" k5 Q4 j% t- x4 F' H0 Z
剩下的就是字符的对照表了2 p) c$ D7 }; K2 H& p, [7 B0 n
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D+ A  [( g6 ^0 H* [6 `
8_____1A1C- D3 a% P8 Y7 _4 _2 k0 t1 M+ F6 D) @" h
9_____6D20+ \7 y/ M  D! o: z. ~
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C6 m, Q' w' i- w9 E5 z
e_____615C
f_____556F9 a$ |5 t: x5 o
g_____2B7F
h_____0F9C
i_____00FA
j_____5A505 h% u- [0 w3 t8 ^5 J) X2 I# L
k_____2850
l_____3E7B
m_____71C5  v7 j+ s" v9 ]/ x3 W+ }. y, J  N
n_____1FC88 R6 [. ]! O) l+ w4 o; Q
o_____74C1
p_____5FB88 T7 r) {" H; z  T. G, K& W" y0 f& n6 `
q_____6085
r_____3AC4+ U1 b9 X. W) }8 h
s_____2F506 o& ?/ B0 D3 h/ |5 D
t_____36F84 F2 a- C. {- Z. X+ \: E8 }
u_____70108 s; g: n+ B4 U9 J- o
v_____0B425 ^3 L# L/ B) e3 i9 _; T4 U
w_____1C7A
x_____16F8) l7 @/ t5 ]% w. e( m
y_____2EE7
z_____5CF3( V# G. s/ w0 Q2 `* n# e3 a
!_____6233
@_____3A45# o' Q9 @# w2 r$ B3 P- m4 }, J
#_____2291' z: @+ T' E" j3 D3 R
$_____5D5C
%_____09B9+ ~7 J* F+ f- `- v5 K
^_____43EA
&_____62B9+ W$ Y2 t/ Q9 Q& c: G
*_____6301
(_____4659) h4 M8 E, Q3 r6 C3 p( l
)_____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 分享给朋友]