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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm# C0 y; w1 t& O% d2 ^/ T
原始出处：http://www.3ast.com.cm
% L( V* e: Q& I) E# Y
看不懂的直接绕过; b1 }1 A2 c! q+ e6 c! [0 O
加密前为:hwy123456, C* E/ O" L3 Q2 f2 l
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E' l. c* q" n4 e2 k- _6 k
) E  a% F2 V. e* y# L1 w8 d
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法" G/ k" k9 R. h
以下是RSA算法文件
  p! E, K. ^7 T) ~$ k( }; {
文件名RSA.ASP
===============================================
<% / p6 p8 {$ X' z+ c3 y6 y6 K
Class clsRSA * \2 v& }8 M2 h0 l9 e# I1 e& }) G
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next - j" S% E' {7 t4 a/ W/ B% a. }
Dim lLngMod
Dim lLngResult $ ]9 J2 t5 L" K2 b4 I, G
Dim lLngIndex # F) ?, a1 b: \6 z3 V8 h
If pLngKey Mod 2 = 0 Then # T, E  F1 h0 K6 ~
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation & Z$ u- R" j2 R- u! ]4 w2 `
lLngResult = (lLngMod * lLngResult) Mod Modulus % B  t* e. s. B: X9 f. D* G
If Err Then Exit Function   X6 ]- `& P0 M' W
Next ! B( l7 i3 }! G" A. @3 u
Else % Z+ K. m( L* j
lLngResult = pLngMessage ; `* q' L) o" D. u8 j+ |; M
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ' t' F( A& s* e& n" T+ p
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 7 g- j& e6 l" v) a/ D$ W5 Y
Next
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex 1 x; Y, P; x% h* `* k+ v
Dim lBytAscii 3 E* b7 f* c1 P
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ( V9 t% x7 |$ [
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) , F% @6 w* R* A2 l
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii ! W1 a! ]* m9 o! i( g
Dim lLngIndex / a: q0 q8 x' v- Z" m
Dim lLngMaxIndex
Dim lLngEncryptedData " v$ }  ^3 P5 n2 D8 _3 C
Decode = ""
lLngMaxIndex = Len(pStrMessage) 9 R4 l: V- Z/ J  U* k: f
For lLngIndex = 1 To lLngMaxIndex Step 4 ' m/ V) j+ ~5 b4 U* `7 t
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function 8 ]5 ^$ r/ J& w  S3 @
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ' T! O6 d% Y6 x$ c, s0 ~" O
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) * s- s7 ]! K( t/ M$ I+ y
HexToNumber = CLng("&h" & pStrHex)
End Function ! C6 V+ u; T0 Y1 M. X; F
End Class
function Encryptstr(Message) ) D  h  J. {* d
Dim LngKeyE $ O& M6 {" R# J$ R3 ~+ l+ K
Dim LngKeyD 7 x( w7 @/ f' G. K! Z* H' u  f& f* _
Dim LngKeyN 7 Z$ v! ?! Z* I: W0 y4 f
Dim StrMessage
Dim ObjRSA % z  U3 w  C" T4 ]" [7 H) q' u
LngKeyE = "32823" ' F) l+ j% d, ]& a4 n
LngKeyD = "20643" . W  p- m; H( F) O
LngKeyN = "29893" ' @0 w# y; u; E
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function: f% f# {- B) Z" ?( K1 M2 p: [
Function Decryptstr(Message) & e1 E7 y: a- k
Dim LngKeyE 5 W) t0 k* w: i) w0 h4 n: w
Dim LngKeyD
Dim LngKeyN ! @2 h# M2 F1 R; p2 J) S
Dim StrMessage
Dim ObjRSA ( \0 U2 `9 D0 z4 b' b. y) p
LngKeyE = "32823" & J% a9 m$ ?/ Z& L
LngKeyD = "20643" $ H2 V. S( H: R$ R: K9 ^: Z
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 2 Z+ r+ ]; o/ m
ObjRSA.PrivateKey =LngKeyD . f4 c  A( }* a7 t
ObjRSA.Modulus=LngKeyN , W, k. |4 M/ J/ x: q6 w/ D3 p, [
decryptstr=ObjRSA.Decode(StrMessage) 5 Q, P5 s: S  V
Set ObjRSA = Nothing
end function
%>7 A8 Q% w5 n  b& s
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 8 Y% s* J: ?' b- G0 p- L, B; o7 O7 r  Y$ i
<%( e5 M0 w9 u' @" T
function Encryptstr(Message)
Dim LngKeyE 1 F6 u) C! y/ C& j8 E  }
Dim LngKeyD
Dim LngKeyN ' W6 D7 h* J; d
Dim StrMessage 9 [, J9 E- U" z, N/ t/ Y) {
Dim ObjRSA 6 {- x! G5 C/ S7 V
LngKeyE = "32823" $ F$ G- ]- ]  i. }8 \. F( {
LngKeyD = "20643"
LngKeyN = "29893" ; u; L, l8 f: j+ D
StrMessage = Message
Set ObjRSA = New clsRSA # u. }& f9 S1 W# n5 A2 q6 f
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) + M8 |. D6 F! V3 j! ]* s
Set ObjRSA = Nothing
end function ; e, `: |5 }1 k- f6 r
function decryptstr(Message) 1 q0 k. m4 _# F2 g' I0 A' G! _. g5 X; F
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage / g& T: n% `; P5 k4 F
Dim ObjRSA 6 `& F5 [# a1 Y3 b( U
LngKeyE = "32823" 2 h+ p- u! T2 x" ]  L4 q# i
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 7 Q- T, ]. P8 ~6 V5 ?' L0 g( Q4 _* ^
ObjRSA.Modulus=LngKeyN 5 }& X4 G% w) L+ C9 V; a, S. {
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function # J3 M6 m# w8 {" J. B  o
dim last,first / d. O. k* a+ `7 W' ~: R* O% E1 k
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================7 U" p' f, }1 o( _; z
1_____6EBB9 Q5 X7 Y4 J0 ?- T5 ]8 h9 {
2_____5C1F
3_____4D75
4_____26CC
5_____4F883 }* ?: h: s0 T4 _- u
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20! H! ?8 `8 N  q! q
0_____1089$ Z" ~* w* ~0 n, w+ L
a_____0F3E: z1 U; f( w! ]& D' {
b_____31591 A$ h+ ^/ @3 J  C' u
c_____3517
d_____419C6 g) R) j8 }4 a2 U! Y7 |1 r# f
e_____615C
f_____556F: h! W9 g6 Q; [& m' {: M
g_____2B7F
h_____0F9C# a; Y+ Z% q& Q& Z' c( }2 Z
i_____00FA) K+ F$ W$ _, [* Z% z; a7 W$ r- A
j_____5A50; {4 t$ W6 }% w# h
k_____28500 f6 X: S9 `! B
l_____3E7B
m_____71C55 W7 ]% x3 z2 q; v+ E% L- B/ v
n_____1FC8
o_____74C17 U  z0 }& w0 ^. X4 u: I+ H) R
p_____5FB89 w: R7 e' @+ y& g: o: p
q_____6085* B; ^$ ]' h' P1 W4 A- z, U
r_____3AC4
s_____2F50
t_____36F8
u_____70104 c  m1 Z6 o. w
v_____0B42( m- q4 p( k1 i' N3 {
w_____1C7A
x_____16F85 s. M- Y: a' R8 I
y_____2EE7
z_____5CF3, Y) e8 J/ R% n6 E% i3 G* K
!_____6233
@_____3A45$ g' V8 B8 U3 L/ [
#_____2291
$_____5D5C. Q+ x& V# ?) t: J
%_____09B9; @5 G- Z2 w3 O' B7 D
^_____43EA
&_____62B9/ M7 ?3 m" I% ~6 V. j" R
*_____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 分享给朋友]