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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm( L% q( |( O2 `' N1 Q

看不懂的直接绕过$ i" s+ C% F& v; [' A
加密前为:hwy123456/ f* i" G7 \! n7 d% z
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E3 s) ?* p4 r8 W0 x; J8 q  Y8 R, _
4 D. X# S+ O" }7 `% u* ]+ y$ J0 T, S
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家8 y; g2 m/ a$ f+ X8 v1 F- ^/ p
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP2 R. i7 @. `" m, F2 d
===============================================& h7 s+ U; A5 H+ k6 V! k4 ?
<% 6 U+ x; _3 X6 e4 H; l8 E- Z
Class clsRSA
Public PrivateKey - _$ _/ \4 ]5 M' w, x- I. E' O
Public PublicKey
Public Modulus ) K% n- e# r* w& J5 Y) U, S
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next - q7 l5 _4 [' o8 w4 R  l
Dim lLngMod 5 a' _; i* I- ^* H, h  i8 p
Dim lLngResult & e0 n, {7 R. Z3 ?$ f2 G
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 " e7 [+ a* ^% I; \4 [
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 6 r# [" Q- B' c, E0 `
lLngResult = (lLngMod * lLngResult) Mod Modulus 7 u3 e$ ^, P; G2 d, `2 z9 h2 C
If Err Then Exit Function
Next ; P; ~/ |4 E- B3 d* `7 u# D: @
Else , C! H* M+ I7 j8 r1 \4 i6 F5 Q
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 6 d; l* J# Q# }2 @
On Error Resume Next 2 N7 T1 Y) S: K
' Mod may error on key generation 5 L6 E. B( ^- ]! b' ?1 W
lLngResult = (lLngMod * lLngResult) Mod Modulus % x: B- U" j- g: z, i+ ~
If Err Then Exit Function + V7 C+ w* \+ B$ Y2 ]
Next : A" C# `0 a) u: P0 [; }1 |
End If
Crypt = lLngResult
End Function  P: X5 B- N- n

Public Function Encode(ByVal pStrMessage) 4 a8 d: Y0 C( D' O& M  C
Dim lLngIndex " y3 g' }$ ~/ z4 G
Dim lLngMaxIndex / t" @, o2 z, v, J  g" G8 w3 i
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ( s- l( M0 g+ y0 T) y5 T
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex $ O0 w4 i9 c' _2 e5 W
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ( p/ s5 y7 N5 m" O2 l0 ~8 P
lLngEncrypted = Crypt(lBytAscii, PublicKey) & f4 E  c6 L5 G( t
Encode = Encode & NumberToHex(lLngEncrypted, 4) % Z5 o) U/ _" I4 V/ a6 @. g' E
Next
End Function
Public Function Decode(ByVal pStrMessage) 7 e  T$ W% F) G& M4 T" H  Q
Dim lBytAscii " |( }: P& n- S. D& F; {# N
Dim lLngIndex
Dim lLngMaxIndex % _* t, z, G3 S( e' k
Dim lLngEncryptedData " E! U# E; e! j  h' ~7 U9 |0 c, i
Decode = "" 7 P" w1 X  E) e, f/ C4 G3 X' x
lLngMaxIndex = Len(pStrMessage) 0 v& l2 _- F9 D
For lLngIndex = 1 To lLngMaxIndex Step 4 # s, M, d$ F" ~: V# d4 _" c& O
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 5 Z5 H) B6 ^# a+ h  h6 T. r5 x
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ( \# L- R$ K& f% h4 X& g
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 9 n* N# Z0 c# l7 z: i9 P
Private Function HexToNumber(ByRef pStrHex) ; J/ ~- T- P3 K! O. y' s, f/ y
HexToNumber = CLng("&h" & pStrHex)
End Function / K, d, [' ]4 b2 X; p1 [
End Class
function Encryptstr(Message)
Dim LngKeyE 4 A8 y- b; E* V3 @
Dim LngKeyD
Dim LngKeyN , e# u5 l& x2 ?2 j, E$ i
Dim StrMessage
Dim ObjRSA / g7 A5 S8 w0 C
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 2 c* N( f) w. ]  j$ x% P
ObjRSA.PublicKey = LngKeyE 6 x" h- V9 M$ V2 \  C$ n  k# |+ D% I
ObjRSA.Modulus = LngKeyN 2 i1 x2 G% \4 G7 {
Encryptstr = ObjRSA.Encode(StrMessage) 6 S* o- D* @, W2 z9 m
Set ObjRSA = Nothing
end function9 i5 n0 o$ d; Q, v1 a
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 5 t0 I( K9 N/ S2 T: B* o5 A
Dim LngKeyN * {9 n% {8 J4 D) H" X8 n# E' [
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" " ?9 g0 ~/ E+ f4 s2 m4 C, c- _
LngKeyD = "20643" 7 f6 M4 N, I+ d- O- t  Q3 H
LngKeyN = "29893"
StrMessage = Message / t( G2 D1 y7 l: l4 d, n/ h
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function ( I$ R* i" O) y  h2 l9 F  U/ Q1 R
%>" I$ @7 j# x" }# d4 k4 c* ]
===============================================
6 p9 @0 K, G/ B* d" r5 K% O- t! p
还有一个用于测试这段代码的test.asp$ O! u0 z; s; r0 t
有兴趣的自己搭建个IIS测试下. `$ `- _' Z3 V

<%
function Encryptstr(Message) 9 E1 M/ f9 n0 v7 u9 Y$ }
Dim LngKeyE
Dim LngKeyD . ?. E# n, v' _
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 3 O- a. b) ^: c* l3 p2 `2 n0 k; F
LngKeyD = "20643" $ `" Q, z4 Y8 ^) [1 b
LngKeyN = "29893" & |( L# j* Z4 S
StrMessage = Message
Set ObjRSA = New clsRSA 0 t! H4 b! a& _: p
ObjRSA.PublicKey = LngKeyE 2 N/ g- y5 U; b, f" x1 I( n
ObjRSA.Modulus = LngKeyN 4 D4 S, a% V$ p1 n& Z: Z' w
Encryptstr = ObjRSA.Encode(StrMessage) ( W* ]* x% t) r2 [
Set ObjRSA = Nothing
end function
function decryptstr(Message) / E* Q: W: Z1 C, I0 `% @2 W; ~7 t7 l8 s
Dim LngKeyE 8 u& A6 T/ W6 {
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ( b. A  v9 B$ t
Dim ObjRSA
LngKeyE = "32823" 9 t6 S* Y' s0 L1 F
LngKeyD = "20643" ' Y& G/ |  ~/ ?
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) % @$ g, A0 Q3 B
Set ObjRSA = Nothing ! ^8 f! Z$ Z9 |9 N; F
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first ( P  z. b) \8 P% c- C9 a$ [1 e
last=Encryptstr(first) . v! h" u/ V3 }8 a/ m; }& `- g
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================3 J% B6 h0 y0 x1 p
1_____6EBB, B0 g6 o' t$ R4 [" R  \
2_____5C1F
3_____4D75" U9 M- p  m# J+ n$ T0 W
4_____26CC
5_____4F88
6_____3F4E5 c* d" R; z/ g/ v0 M1 C
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E8 K/ m9 {7 q6 D7 K+ k
b_____3159
c_____35171 f/ d7 e" x0 R6 `
d_____419C  k% D0 W/ }' |; y: R1 _$ e5 H- T
e_____615C$ B! R3 a/ j/ K8 K/ J' A, m! C, q+ G
f_____556F8 u! P* H5 {, L  L
g_____2B7F
h_____0F9C  T6 O" q, r, r; m$ c' Y2 X
i_____00FA9 p8 f. g# `7 p/ i3 N# \  y% w7 V
j_____5A50
k_____2850) M! ^$ K  S9 Y
l_____3E7B% L4 w/ n. x  x2 \* Q8 @
m_____71C5
n_____1FC8: T& b8 Y5 x7 g5 x: \. ^1 r
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____70101 C: E) `9 {! B. h: L7 F
v_____0B42
w_____1C7A
x_____16F84 N# G6 \  o3 L2 _8 z* |, r
y_____2EE78 F( I. z, n6 [2 G& i
z_____5CF3
!_____62333 @9 ]& G8 J" o# Z
@_____3A45' ]) U, o2 c9 {2 i- T1 O& p/ Z2 p
#_____2291& H+ I- }/ p) o% O3 a
$_____5D5C  u' v4 l" z/ M( [& q8 B/ t5 U
%_____09B9
^_____43EA8 T) a( d$ G# w* Q
&_____62B9
*_____63013 ]/ V! b$ Y. A0 J
(_____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 分享给朋友]