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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
+ A, n3 n) V! m2 J! C6 y
看不懂的直接绕过
加密前为:hwy123456  `% w: n! L2 b) R' w
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E1 J1 z6 g3 ?4 U$ }0 M

============================================7 V& m7 j  A" s# S
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件( ?+ t$ e4 \7 l; F, O8 }
/ J& |! k3 ?+ s; s9 P
文件名RSA.ASP
===============================================
<% : y2 O! V, w" S: }& N* R
Class clsRSA
Public PrivateKey 5 N' V1 K/ |+ ~$ v, Q$ C3 ^$ p
Public PublicKey 9 I4 a; q- ]* M) B$ h& g
Public Modulus ) t/ [0 X2 m. N( N" S+ F  q# v
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult 1 O6 a0 }. |7 Q9 ~$ Q( ?
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 ( S6 b) }, d. v' k$ X) b! q  d
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus " S* N% A+ k# M1 h
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function * f9 C# i: z1 S! g
Next : F3 y7 W" o& U& M9 C+ n
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next " ?) {5 K( H/ o  ~3 X6 U
' Mod may error on key generation # `, I& l# f! {. a
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If 9 I# v1 `, n6 E, W
Crypt = lLngResult ( X: g, C& g5 L. T1 v" k
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex - v. ~8 N  Y0 g
Dim lLngMaxIndex
Dim lBytAscii 8 m6 H: q! i. O4 `0 _' B
Dim lLngEncrypted   h- J# X  V8 A3 u4 B  F+ W! V0 A" }
lLngMaxIndex = Len(pStrMessage) 9 L5 S: f- F8 c( B5 Q; y
If lLngMaxIndex = 0 Then Exit Function ! ~0 F- {2 j8 b! q
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) ! ?3 J; q; n( i' P
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii , j) N) [+ y" I% U$ R5 L  M0 [9 ]2 f
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 3 f% a, b" X5 ~) Z, B7 H
Decode = "" 0 J6 `* {6 `; j
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 - e+ Z; N2 p* s* d. a" G2 j
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 4 o+ d, i) D' x
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 6 l3 |% T4 S6 J: o$ ?+ Y
Decode = Decode & Chr(lBytAscii) ( l( W6 K. t) G( L+ [$ y
Next % M) P4 d% f  F1 {
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) + T! X8 W4 d- y! d6 \; j
End Function
Private Function HexToNumber(ByRef pStrHex) * Z7 s" x) f6 j! s; e, Q5 R! N
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) " |: s! [8 w  F" r8 f
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN $ z, v) n2 H$ v' _( H0 w: @
Dim StrMessage % H) {5 F3 v; ?$ A+ D* T
Dim ObjRSA . k8 f6 F3 G+ w# M# |0 ~1 u
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ; d( e: K2 v4 H0 U; H8 I. S' P
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ! _4 h' ~% P4 J! F7 ]& s
Encryptstr = ObjRSA.Encode(StrMessage) * b& Z% S. z) R7 M
Set ObjRSA = Nothing   \% D# Y2 J7 q* B( t2 ^
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 3 {8 k: E8 x, h8 [" J
Dim StrMessage
Dim ObjRSA ; C7 u( T6 T) X7 y3 q) M
LngKeyE = "32823" ' n. D+ Q5 X0 ]7 l6 i$ F2 n0 V% y
LngKeyD = "20643" ; Q) Q6 c/ Q- G# g3 f  q" O
LngKeyN = "29893" 6 y2 ]0 q  e( g3 ]( r- d% K' ^
StrMessage = Message 3 K% h' D0 P" C( J1 f* Q/ J/ m1 E
Set ObjRSA = New clsRSA ' t$ B; k5 J, B, u
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 8 P5 X6 `& z2 f5 Y* K6 u+ C
Set ObjRSA = Nothing
end function ! K: I' J1 m2 {1 N" ~- A
%>3 n; c' j- z+ m: \2 V
===============================================

还有一个用于测试这段代码的test.asp+ L+ ^0 F: B0 G
有兴趣的自己搭建个IIS测试下7 }( M. N- W7 e2 k8 W" V' I
 * y+ g, M7 p: C. G+ G0 g' h4 O9 ^4 ^
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ( @4 y3 y3 l9 v8 f! q
Dim StrMessage ; s5 u2 F6 N; [( {- I
Dim ObjRSA 1 W  s  y( [  C( g
LngKeyE = "32823"
LngKeyD = "20643" 3 Z  r% D; M3 s
LngKeyN = "29893" 7 B: K9 D) P) C% g3 w1 }& S! f, V
StrMessage = Message
Set ObjRSA = New clsRSA + K" `; y, j. K3 o/ x4 f0 w2 n+ \% c
ObjRSA.PublicKey = LngKeyE 4 V4 _! R* C9 |5 S7 K& Q8 N( W
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) # o8 d# j. o! c
Set ObjRSA = Nothing
end function / {' q/ q& N7 {2 u8 S, m8 W
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 8 Y% v! l5 M1 M& M" @5 `
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 6 s. w9 y" w" d& u  [7 n
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function . ]. j) Q- J* Q* k
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first ) a/ V. \  L: w' b3 L* ]
last=Encryptstr(first) ! n' m- A2 V- [  M/ j
Response.Write "加密后为"&last * c0 n3 Z; [8 E
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F  c5 N: L7 z+ m: q
3_____4D75# q" E& W' O$ Q9 D5 w5 G+ P
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D# R5 t3 J. R/ o3 j0 |4 }0 X
8_____1A1C# N, D6 d* X' r" Y
9_____6D20% _/ ^& P' C$ d% V5 q* O) |
0_____1089
a_____0F3E3 e1 F# o8 d3 S) k" ]
b_____3159
c_____35173 o: o( r! y. ^! c" L3 K
d_____419C
e_____615C- ~- }. l( R: y5 y
f_____556F- I5 ~* Z2 m# L2 R
g_____2B7F; A3 s) Z8 G! o" y, V6 S. @
h_____0F9C/ I+ [( g% ~! w( M7 j* ~! c( \
i_____00FA( Y5 P- W! k; t  M( R0 q4 }' _
j_____5A50
k_____2850
l_____3E7B
m_____71C5* _1 I) X( k' v) w
n_____1FC89 Q3 O6 h! d' F8 [2 t0 A
o_____74C1
p_____5FB8
q_____6085
r_____3AC4. `  t1 ]/ ~2 A
s_____2F507 Q2 u: i. z3 A0 u
t_____36F8
u_____7010
v_____0B427 W2 d4 w6 t/ @5 Y9 l3 ^2 Q$ \1 l
w_____1C7A
x_____16F87 j6 J0 D0 e' c# d
y_____2EE7) n5 U* U7 ~. b$ ^. n$ P3 T& ^3 j
z_____5CF3
!_____62333 B8 B2 |* T$ A6 J4 |: W3 @
@_____3A45
#_____2291& q  K+ \/ c4 Q$ J0 }. p; y
$_____5D5C
%_____09B9
^_____43EA; t+ n' U! C6 q8 E& ^5 d8 Y6 y; a
&_____62B9* l+ d7 r# o9 u% t5 b
*_____63012 V# @" N  M1 R! k4 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 分享给朋友]