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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm) D$ d& V! b4 X  E' w7 r& Z
原始出处：http://www.3ast.com.cm/ z0 W; M' d- q: r8 j
" F2 h+ E5 D: L5 Q7 o
看不懂的直接绕过, K& [0 P! R% A6 a, f# `
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E9 X. B0 r2 h" Z+ A
: J9 j8 _7 E/ q6 ?
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家! Z7 w0 V* q$ q/ N3 i" D
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
% E- }# @9 S6 ~/ Q! D3 n
文件名RSA.ASP
===============================================% W" @; p3 [( L% O2 X
<%
Class clsRSA
Public PrivateKey % I) c8 w. g) T3 r  _
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 2 S0 n: ?; O( X+ s0 z* d
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ; d& M. F5 s' o* c, Z" h. \# }
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 v. C0 w3 z/ ]& k# x( i
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 7 G7 x) V/ o3 r6 n/ _* u
Next / }3 g9 f5 S# d) W7 t9 h5 J: {
Else
lLngResult = pLngMessage / @5 t  Q5 E* {' m/ z) o. [
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus / D" q; i+ d, j' e: r5 m
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 g5 u6 ]' f& R% Z5 ?- F0 k. }
If Err Then Exit Function
Next + p- f; k7 O$ T( B
End If ' S+ f# |& V6 A6 e, H
Crypt = lLngResult
End Function
5 w3 R& _# V2 i* q! U. Q
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex * r5 A( W9 ^; N9 b2 _! }- U0 C
Dim lLngMaxIndex & `$ T+ _6 M8 s7 l
Dim lBytAscii 7 s% M; W. |! R; W
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ) r. p1 \' W$ x6 T
If lLngMaxIndex = 0 Then Exit Function 6 ]  B( B8 _) g+ P# b; m
For lLngIndex = 1 To lLngMaxIndex ! W" ?3 V7 q0 d. Z8 r# O& ~* h
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) - G' o9 G$ s1 @$ _) S+ T/ O. U
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex * h2 s8 h$ w6 U( c: K; Y
Dim lLngMaxIndex
Dim lLngEncryptedData " D9 C1 q8 u! f) v
Decode = "" % d# B/ Z# Y! S" ^& m! M
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) / r6 R" L( y/ N9 L/ R1 ^+ y& S1 l7 H
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 4 V0 q/ @7 o7 {) g% W
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 3 F& f1 v; |+ l1 a# h! e2 P! R- K2 m& ~
End Function # h' X: |0 M& t0 f1 k, f- ^6 M
Private Function HexToNumber(ByRef pStrHex) : X* l: y; J. \; t8 u* V
HexToNumber = CLng("&h" & pStrHex)
End Function - E$ Z9 }, P4 o) P+ z, e. A
End Class
function Encryptstr(Message) . J# C. d' A- m1 {1 U- |, z0 S
Dim LngKeyE % Z( l, ^& K; l9 U. w+ J- ~
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 8 }, F1 L" g3 y/ _9 v3 H
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" : x6 ?2 V. N: `- L  v* t! K1 A' M1 l
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 3 D" I0 a: Q) g2 a' w" \% `
end function# r- }+ `, L7 i6 a9 O5 I4 w5 N: W
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN   ]. Q: l1 ]* T5 U* k! [, w
Dim StrMessage
Dim ObjRSA ; Q- o- ]0 C* e; V% M& I  D$ W) I4 f3 |
LngKeyE = "32823"
LngKeyD = "20643" % Q5 @2 ]3 k- v% {& O6 \6 G! v' d. z
LngKeyN = "29893" 3 h% U+ E; [7 ]. h4 G+ s
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 1 f; a# b0 Y. T- x" U
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) . c5 h) A* ]( D+ a# |  e' j" ?
Set ObjRSA = Nothing
end function % y- T1 e2 q+ x6 s5 n% F
%>/ {7 O4 H* D3 d1 H# P( k5 @  ^
===============================================. G( C: \" Y/ Y: }1 Q, Q9 x% I
7 F2 j! ~: l& `- K) F- V3 ~# j
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下  q7 Z; i3 C% M& s& C8 v5 C

<%
function Encryptstr(Message)
Dim LngKeyE # U3 _0 A* c8 J; w7 b  a0 O' B, r
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 7 x2 W6 o8 d, G; m
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 8 Q8 `2 |5 d- y: l
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD   ^$ @: b3 c+ Y
Dim LngKeyN - r+ m$ ^, A9 q2 u- O" z
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 3 w% }2 z! L: h) y& W" Q: Z
StrMessage = Message 0 o( |( U. @+ L/ I; O, x
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ) ~* e9 h/ w8 T7 N+ d8 t/ H
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first : s: x3 d! J9 O+ w
first="!@#$%^&*()"
Response.Write "加密前为:"&first $ a9 B7 s8 o# W8 Q* W1 g' p
last=Encryptstr(first) 9 l$ c# S* M/ S- w
Response.Write "加密后为"&last " O* n3 ~* `3 @  m
Response.Write "解密后为" &decryptstr(last)
%> ==============================================7 l; |5 [. P3 V
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F& P! K, `2 W; e8 o5 G& J# x
3_____4D75
4_____26CC
5_____4F88- U9 I* j( C) l6 @" o
6_____3F4E  j! F3 v, V4 v) s4 K% ?9 ^
7_____0A9D
8_____1A1C
9_____6D208 \) n( {& r, J4 o+ }0 J4 U
0_____1089
a_____0F3E; E$ r( M$ g9 D9 k$ ]; z. _  y
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F( L5 F" }9 a# O( U( P
g_____2B7F2 T4 U2 k# s( n+ p8 d/ P1 d
h_____0F9C# t/ y4 X: s1 d0 K; B& B$ g
i_____00FA
j_____5A50/ ^/ F$ v3 D# A# ?. J
k_____2850
l_____3E7B% i. b! [7 V4 N6 N4 Y: c  Y4 _# v
m_____71C5) o; {* A. J2 R/ K7 q. f5 k8 X
n_____1FC85 d8 M/ I3 |8 P) E2 V) F+ o; |; W/ G
o_____74C1
p_____5FB8
q_____60852 z& v( k0 L- r0 M$ T
r_____3AC43 b3 o: G$ m/ R+ E" d
s_____2F50
t_____36F8! g3 ?7 U* Q$ t
u_____70100 V6 Z' F" z: r& L* N; @, `) {
v_____0B42
w_____1C7A  b; B% A& Q4 ?# }1 J
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291; \+ G. {* n- ~( k# H4 B7 O
$_____5D5C7 q. I1 b! S2 p' @% {% M
%_____09B9) T6 H( l3 H% }0 ^, G
^_____43EA, N$ i: R4 \$ A, X. \
&_____62B9) ?# ?/ p5 L1 R7 t
*_____6301# D5 }# ~3 ^" I# b
(_____46591 w! }+ `& n5 y& _, }4 \
)_____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 分享给朋友]