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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy1234564 p2 W4 T" G+ b
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================& f- J9 h- ?8 J9 h
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件( U! y- l' [( f) A6 F# j

文件名RSA.ASP
===============================================& z9 B  p8 t; m% r: v
<% ( Y5 ?9 r" l( d5 E, V
Class clsRSA 4 _* ~+ X- I* l8 f9 e
Public PrivateKey
Public PublicKey ! b# m) @( T. f
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod   T' \9 f& o0 l% Q. T# G
Dim lLngResult ' \, {$ Y) k& y
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 & e; ]) B/ E3 ~! k
For lLngIndex = 1 To pLngKey / 2 " ^. Q/ @, X& o: P  D
lLngMod = (pLngMessage ^ 2) Mod Modulus * ^5 ~2 l  [9 C& W
' Mod may error on key generation 5 O" I6 g$ K. S2 G+ d3 `5 s+ ^$ g$ G
lLngResult = (lLngMod * lLngResult) Mod Modulus 3 `8 w- M: Z, k$ B  P
If Err Then Exit Function
Next ) S8 ]$ U& `, |2 B: b
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 " |) R& g5 `4 J7 ?% x
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next ) ^4 X5 R- ^7 t! |( A3 H
' Mod may error on key generation 9 q0 P/ Y5 @4 f8 E
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If , I. J, Q0 ?6 W+ t0 B: o" \. v
Crypt = lLngResult
End Function* Y, w8 ?+ r& [+ I/ T: t

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex 4 f" v+ f/ E0 y/ _" l
Dim lBytAscii 3 n' C( p, y) n" j9 q
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ; N# I, @+ F* D* a
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 X6 P% @3 |) |( k) U9 l
lLngEncrypted = Crypt(lBytAscii, PublicKey) - V* s# E/ j% T2 P# d5 _" C
Encode = Encode & NumberToHex(lLngEncrypted, 4) 9 j5 w& z7 m% z0 z: m0 ^
Next
End Function , n# l! D0 W# `: C; k& z$ I
Public Function Decode(ByVal pStrMessage) ! R1 A0 S/ l4 c) y: z
Dim lBytAscii
Dim lLngIndex " f) k$ E$ U; q1 S! D
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 7 ~& n8 o8 O$ c
For lLngIndex = 1 To lLngMaxIndex Step 4 , U& d  c4 z6 @6 @0 z8 b- _
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 5 v1 \! o) S5 q' K& U
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 2 T9 G5 o7 q6 Y" M% e
Next + U( e# Q* A9 [4 C
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 9 d* Y4 {. O7 E* I* T! U0 i
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function - ~" k1 i" [# S3 C& T( F
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) - M; n. {/ r+ f( k% z; G: ^* a/ y
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD ) K8 f' L, u* G0 \/ p% k4 r/ U
Dim LngKeyN 2 k. {( M2 j: L
Dim StrMessage
Dim ObjRSA 5 D9 F4 Q8 h4 t, I- u1 ]/ |* ]. a
LngKeyE = "32823" 4 b& z1 F6 C8 o: Q+ E2 y" P
LngKeyD = "20643" 0 ]! W$ S- q+ I$ v  X; t9 o7 X
LngKeyN = "29893"
StrMessage = Message " l, K" j2 ^( G* r. B# x1 F
Set ObjRSA = New clsRSA ( ^0 j! A  n' j) y
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 2 y1 _2 z9 k$ Y9 P0 [+ r( A
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 3 a7 S: t8 b- @) N2 ~# Q
Dim LngKeyE
Dim LngKeyD . G2 Q6 A$ @* k' j* T
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 4 k$ ]) @9 Y' o
LngKeyE = "32823"
LngKeyD = "20643" 1 ]. H% D& U8 p# s9 f; t
LngKeyN = "29893" : a, K3 }/ L" k: l
StrMessage = Message
Set ObjRSA = New clsRSA ' a/ C$ Z6 J9 D1 E6 h2 z) ~8 P6 |
ObjRSA.PrivateKey =LngKeyD   S% F" @) |2 f
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) , [% @4 c# P1 A' F
Set ObjRSA = Nothing # e! @9 |1 }! X0 M
end function
%>
===============================================
+ f# V  C3 d  b$ k" m( A
还有一个用于测试这段代码的test.asp3 B2 |% k3 c( p; E
有兴趣的自己搭建个IIS测试下! f8 _9 ?% t3 r: y7 V$ c

<%
function Encryptstr(Message) - \. V; I# X0 j6 O: @! `+ i5 f
Dim LngKeyE . t  N8 ^+ `& @# U3 |
Dim LngKeyD : r& S; R, g% g; L: |$ T+ F1 d0 |' Z
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" . m4 M# z; r: ?
LngKeyD = "20643" * }3 H$ u8 H7 X3 F6 _1 p- u
LngKeyN = "29893" 5 y- P. {' a* G
StrMessage = Message
Set ObjRSA = New clsRSA : \& Q/ O! S# K+ {! a! @% l
ObjRSA.PublicKey = LngKeyE . G6 O5 k2 C8 D9 o0 R
ObjRSA.Modulus = LngKeyN 9 O" ?9 F- n/ ]& R* D
Encryptstr = ObjRSA.Encode(StrMessage) / Q3 y- |, j, i4 \- l" N) q
Set ObjRSA = Nothing ; q% g, e/ i7 Q* j
end function
function decryptstr(Message) 2 g9 T, ?/ x( u: q
Dim LngKeyE
Dim LngKeyD - Z' z' w+ z5 Y7 v5 n) _' {
Dim LngKeyN / X& ?  S5 F8 `5 {# i+ b
Dim StrMessage & ~" Z1 k+ Y/ b) n, ]
Dim ObjRSA # @" ^0 J0 d9 T9 D6 t
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message $ i; }9 d5 t& l7 H: A
Set ObjRSA = New clsRSA 9 o' Q  H$ C, G/ u
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 8 y, q/ M2 v) |, m1 ?
decryptstr=ObjRSA.Decode(StrMessage) 1 ~- j4 ~  u2 y1 [: C' a
Set ObjRSA = Nothing
end function / Q' U, ^' s+ G
dim last,first " |+ E& w. }) l8 q0 [6 r% b
first="!@#$%^&*()" # @+ K4 J: [4 M: J  s# S
Response.Write "加密前为:"&first : d, i8 a- w( v: ^+ R1 x! J
last=Encryptstr(first)
Response.Write "加密后为"&last & q7 N5 F: f0 r6 M! G
Response.Write "解密后为" &decryptstr(last) $ m* ?- E9 |% A  d5 Y1 Y5 y
%> ==============================================
剩下的就是字符的对照表了' L5 X: f8 E8 N2 |4 q, Z+ w/ L
===================字符集================/ e# F3 @; y7 F2 |; D. L
1_____6EBB  S+ \% w* z8 ~& w7 m; K
2_____5C1F
3_____4D75% T) e: B1 c7 U4 ^0 A& n/ ]
4_____26CC
5_____4F882 o4 L: W+ B1 M) L7 d% S9 G( L
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E# d9 W) Q) O9 Q, g3 A
b_____3159
c_____3517/ X( j5 K) [8 ?' u  _& |. y
d_____419C) y" f3 K: V3 a% s
e_____615C
f_____556F4 Z* Q+ m, F* Z# j) ^9 E: A
g_____2B7F
h_____0F9C* G; t9 @& o0 w# Q+ ]$ X
i_____00FA& Y  q/ d  C! Y) K, S( j
j_____5A504 V( N4 U% G6 m% K/ I
k_____2850
l_____3E7B2 E/ q, L/ {$ i$ M7 K
m_____71C5
n_____1FC8/ O7 U8 b/ Z2 s+ A6 Q8 Q
o_____74C1
p_____5FB8* u* @; `. B% z$ m: b
q_____6085& X& l1 G6 Z" \
r_____3AC4
s_____2F50
t_____36F8  s4 j) k1 J0 v$ n- [
u_____70109 S/ A; g+ S$ J. v
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7) k3 D+ X0 y( g" B( D9 d
z_____5CF3; t. z. X8 G- A& i6 m$ Y8 g. l( ^
!_____6233" P4 K* Y) F, G7 _+ c
@_____3A45& b+ U' ?! ]$ \* g* B$ k
#_____2291
$_____5D5C) \- T; ~% ]) L
%_____09B9
^_____43EA$ @. M6 M- g' R! W7 l! Z
&_____62B9
*_____6301( H+ a; ^) I* F: n5 e
(_____46594 H* K/ y% V- w
)_____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 分享给朋友]