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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm- o1 u( |; G4 u' q0 A" H, W, s$ K
原始出处：http://www.3ast.com.cm
3 u6 M; t% h$ a- ~
; i3 U9 B6 a7 b; }0 G! F4 @看不懂的直接绕过" x/ \3 H" t8 M6 n" n
加密前为:hwy123456
2 r4 P% L3 k- d( n加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
) P7 V! ^. L& @  L- v) ]8 A2 x; J9 Q2 e. K. z* A. j
============================================
! J7 r' U/ l6 l6 `- z# l7 Z7 g上面是当时自己校内的心情。现在已经解破出来了，分享给大家
( Q! H1 g" o) c1 t5 C- O也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法6 V) a" o) o" o. S1 C8 [/ F
以下是RSA算法文件
$ |* w- s" T% z* X6 D2 E  L& Z% F2 E2 l; C: Y/ M
文件名RSA.ASP
4 ~# T) \) o, f! O===============================================4 i7 D: O% ^6 P
<%
. Z+ I1 H/ ^4 ~' q, UClass clsRSA / D5 E& _: A* e/ |  K( r
Public PrivateKey
: A6 g( v* f  G5 |8 O  qPublic PublicKey
' F' j  d' T, Y) L# F4 s% NPublic Modulus
: o9 y: f  g" {Public Function Crypt(pLngMessage, pLngKey) 1 {4 {, I2 R1 ^- Z
On Error Resume Next
, P$ n2 K/ S3 F" u6 s1 rDim lLngMod
: M; o; C0 U1 y( zDim lLngResult , V7 t- K8 [/ R0 a
Dim lLngIndex
( `$ J; l# k+ q2 mIf pLngKey Mod 2 = 0 Then : D3 u6 V! N9 D' ?. m- f
lLngResult = 1
' C; ~7 A  `( e1 ~+ B4 bFor lLngIndex = 1 To pLngKey / 2 0 z4 N7 C/ ?, u  q7 U# `6 D) w
lLngMod = (pLngMessage ^ 2) Mod Modulus ( G6 ^* T$ e$ ]1 X! X' |
' Mod may error on key generation
' G2 |4 V+ T$ ylLngResult = (lLngMod * lLngResult) Mod Modulus 8 e7 ]# R' {$ S
If Err Then Exit Function
* b" R+ A! x; S: \4 ^, ?* t% YNext
; N6 L, h0 E1 m4 b3 rElse & H) R; g, z. x: U$ u* I+ o* u, [
lLngResult = pLngMessage + R6 n  U$ L7 r* q* r' W8 J# o
For lLngIndex = 1 To pLngKey / 2 1 k" N7 `) u4 w( J: g
lLngMod = (pLngMessage ^ 2) Mod Modulus " U2 O* d! O' }
On Error Resume Next 7 |  g9 Z+ Q1 v2 f3 Y
' Mod may error on key generation
' _3 I6 d2 J* g, @) u$ A& JlLngResult = (lLngMod * lLngResult) Mod Modulus 8 O5 U2 @2 a7 G, X
If Err Then Exit Function
% N' _( n& g( q( KNext 9 u' y) i, M) t: |- x2 \
End If * M, ~6 p7 t+ b5 G
Crypt = lLngResult ! g. @: I% D' x0 D9 D
End Function: P" I; i+ U# H: B0 Q* Z/ w: p

* k8 q; b: q! SPublic Function Encode(ByVal pStrMessage)
* Y: Z* n, k4 J9 Y5 |Dim lLngIndex
" ^0 A$ }2 X, {8 l$ R% h" ^) wDim lLngMaxIndex
" q3 y/ U- Q. Z9 s/ O- v: b! KDim lBytAscii
: ~5 H  v) O9 a, J' ADim lLngEncrypted 8 P4 \1 Q+ E9 S. G
lLngMaxIndex = Len(pStrMessage) , \( W: ^1 M. [4 H; s. ~
If lLngMaxIndex = 0 Then Exit Function   ^! _4 C; N: J; F0 V2 B
For lLngIndex = 1 To lLngMaxIndex
$ U! C5 C( Z* x) VlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
% K  U! }( t2 h" R+ P( Y! O2 K: glLngEncrypted = Crypt(lBytAscii, PublicKey)
6 ]) B% c) e, D$ X; ^( P! xEncode = Encode & NumberToHex(lLngEncrypted, 4) # ?3 A" c9 ^6 B9 @
Next 6 ]# G* Q- ~8 ]& w4 c
End Function 3 x+ |7 m) z6 Z( Y6 M( U  k
Public Function Decode(ByVal pStrMessage) & S7 J' e5 t% z7 Z4 D1 Q
Dim lBytAscii
5 E2 S0 ]" b; x: L, l7 x7 S8 tDim lLngIndex / U1 w: H# z! J
Dim lLngMaxIndex 2 u; w8 o+ ^" `2 f
Dim lLngEncryptedData ) p% u8 J8 f% y3 M
Decode = "" + r6 c, E" R5 y$ s3 [) X9 O
lLngMaxIndex = Len(pStrMessage)
. L) s7 H# o; U+ |/ v$ UFor lLngIndex = 1 To lLngMaxIndex Step 4
# a! `* U! O# o7 JlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
; W' x* ?% h. ylBytAscii = Crypt(lLngEncryptedData, PrivateKey) ) Q! [" F+ ?$ [" c+ E) A' i, M
Decode = Decode & Chr(lBytAscii)
( L2 h$ g" X! i, H- @Next
. p& b; q+ n$ d/ K* mEnd Function   M' ]& d; t7 f2 h
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 3 r9 m3 p0 G3 W
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
4 c* o. l9 i7 B& c: Q, \8 TEnd Function
+ j2 z6 ?* o, _Private Function HexToNumber(ByRef pStrHex)
( [; v( v! g: c& N9 z6 v5 |HexToNumber = CLng("&h" & pStrHex) 5 u  |2 S4 O  J+ V5 u/ q
End Function
& l' e8 o) q. U/ dEnd Class 3 N8 _0 P  }/ s6 C4 D
function Encryptstr(Message)
; u' W9 D8 k; G: n: X7 s( ODim LngKeyE
: Z% Y+ a" H* ?/ \( JDim LngKeyD 4 V3 H) F$ D* o6 W5 A
Dim LngKeyN % Q! c, c# ^! P3 k9 i. F
Dim StrMessage + B! ]6 m4 a) @* S- j3 R+ W2 x
Dim ObjRSA
5 k! K8 e4 `; x6 c  o3 XLngKeyE = "32823" 4 W7 q4 p7 y+ U
LngKeyD = "20643"
* Q# G+ l6 e$ w' Y  S- g/ CLngKeyN = "29893"
( I/ j: I5 @  x1 W% u/ \StrMessage = Message
4 N4 F2 q' ^/ q/ e! [* tSet ObjRSA = New clsRSA / O. g  f3 v5 |
ObjRSA.PublicKey = LngKeyE 6 e/ ~* [, a" z5 r% X* W3 x
ObjRSA.Modulus = LngKeyN
  A. {5 w' R4 P$ F& tEncryptstr = ObjRSA.Encode(StrMessage) & \6 w- L$ y: ]" O9 H: c( t
Set ObjRSA = Nothing ! |$ C9 F) o7 ~$ D
end function6 c+ n8 J' U0 W5 O4 X9 ~
Function Decryptstr(Message)
8 S8 g: y2 o3 w$ M8 |Dim LngKeyE 4 k  ^7 s  b$ u5 ^0 U; s; X" t
Dim LngKeyD
4 H6 D1 i5 H9 L; F* `9 j6 w# TDim LngKeyN " \2 i, H2 d0 v4 F  L. ?8 ]% \- B
Dim StrMessage $ v; k7 p$ M/ b4 M7 o* p
Dim ObjRSA
) I! P7 Z# F' c+ T& XLngKeyE = "32823"
3 o. z% l/ `4 f  F/ iLngKeyD = "20643"
9 t  F: U) a* }- ]4 ^LngKeyN = "29893"
8 w5 o. Z- s% ~8 `, oStrMessage = Message 8 ?0 E2 b$ f% o6 [  L! p
Set ObjRSA = New clsRSA % S2 {9 m5 }. a4 W. o4 |8 M
ObjRSA.PrivateKey =LngKeyD
5 z. w5 Q0 D2 D4 HObjRSA.Modulus=LngKeyN
$ Y) E% J) {  g9 i% W1 ldecryptstr=ObjRSA.Decode(StrMessage) / d) N" p, m9 D- R' T
Set ObjRSA = Nothing 4 D% n' L7 W% t
end function ! B- b" }% s+ D9 p5 s
%>
2 E- y4 N# d  L: L1 r5 Z( t===============================================
; e' U4 ?* l) P' u' ~
8 O9 y+ s; ?/ G/ L& V' m& r还有一个用于测试这段代码的test.asp
% e+ T' ]1 S; j: U7 `' ?6 \- p. W有兴趣的自己搭建个IIS测试下
+ M1 B# z; B, W, M  M<!--#INCLUDE FILE="RSA.asp"--> # b# s( ?5 A8 T2 J) _
<%* i, {/ w/ b+ f9 f# o; Z1 C& O6 v
function Encryptstr(Message) 5 v4 P4 z+ w& E: H& P# u: l
Dim LngKeyE ( a) w6 M# ^1 }; E1 J
Dim LngKeyD
) @( J! p# W$ q0 uDim LngKeyN 5 W2 b& A  @) q  `7 @8 @# C
Dim StrMessage
2 d+ p: S! i( q6 u( nDim ObjRSA
3 n# V7 [0 Y  d' `: PLngKeyE = "32823"
4 g2 o& C' s' _5 O$ KLngKeyD = "20643"
/ u) w5 Z& h, b2 Q# D$ nLngKeyN = "29893" * L/ r' ]7 `3 m$ W/ |
StrMessage = Message * B! F+ i4 [1 c" h8 T7 ~
Set ObjRSA = New clsRSA
+ U9 k9 J2 i5 M0 g: |) ]5 S6 KObjRSA.PublicKey = LngKeyE ) I, r7 C+ d" ?* N9 s
ObjRSA.Modulus = LngKeyN
: e* M% M1 e; y5 o1 ?& e* ?3 A$ k4 rEncryptstr = ObjRSA.Encode(StrMessage) $ E/ @5 m: \* o- m6 i, T
Set ObjRSA = Nothing ( M3 c0 n' P3 x9 o9 \" r
end function % A. {* S9 \; M( O* g8 y+ t
function decryptstr(Message)
! O2 u- o* v9 T8 H6 }4 m6 iDim LngKeyE , M$ S+ S9 r! D( h7 g; E
Dim LngKeyD
8 O$ Y( j3 l' w( w& MDim LngKeyN % y( N2 H' o& @, [4 b6 N  y
Dim StrMessage
' d6 P3 Z2 C8 `4 J6 EDim ObjRSA
" P1 L& ^5 D! [. h+ x: |" ]LngKeyE = "32823" ( Z- \. R8 K% h
LngKeyD = "20643"
, e# t: J" G# e  s! W; lLngKeyN = "29893" % \+ ]4 d8 y0 b* ^
StrMessage = Message $ f6 r: l( a' j% Q4 j
Set ObjRSA = New clsRSA
. P) K6 J/ F9 ^, {" C7 k+ Y& M7 }ObjRSA.PrivateKey =LngKeyD
: a* k; T! \+ W+ j+ P0 q5 u& `ObjRSA.Modulus=LngKeyN ! F+ ]) q) f) b" m. Z
decryptstr=ObjRSA.Decode(StrMessage)
8 ^1 y  D; |7 U7 Q2 S2 wSet ObjRSA = Nothing
- g* i/ ?4 c2 ]end function
; L7 n( I( n4 c0 |$ tdim last,first
8 i" c) F6 z- @5 c9 ^first="!@#$%^&*()" / c9 Y& N0 K# E
Response.Write "加密前为:"&first
! C$ D$ g0 z' G0 Y# p% q* a: ]last=Encryptstr(first) 9 r) ]/ i2 z" K% S: S5 v
Response.Write "加密后为"&last
. \+ j; X& t9 JResponse.Write "解密后为" &decryptstr(last) 9 ]% P7 W# N8 V7 V( g
%> ==============================================
' L$ G1 B% Z+ h, |# v: S  N剩下的就是字符的对照表了
3 d0 y6 N: L5 A: U. u+ k! d5 q7 M===================字符集================
0 ^' t% {; H- O1 t# F3 M1_____6EBB" m( F9 l) v9 W3 l5 n7 M6 K
2_____5C1F3 l5 N6 H! N/ [$ s2 E, O
3_____4D75
3 U- u6 v. l. C2 {' T. P- j$ W) c! C4_____26CC
" Z& Y! p: `0 f1 M3 l( V( H5_____4F88+ a4 G" X9 |: P/ a* d& O) K. C* W" Z
6_____3F4E
& ~& I0 s0 d# W/ K/ A% \9 I7_____0A9D
5 M! w" n& ~0 f" r0 B' w8_____1A1C/ c  @  s) v# a  ^
9_____6D207 B# c- O- f1 J; [6 @$ [5 c/ `
0_____1089  s2 W! v/ d: ~( K/ N2 r2 `
a_____0F3E
! `( R2 d8 c5 `2 E5 Fb_____31599 U2 |# s6 ]6 O/ k% g
c_____3517% P) e4 U5 d4 W$ v( p
d_____419C( ]! \$ \  q+ H! H1 E* j
e_____615C7 o+ U: C  o/ H5 m
f_____556F( j. F' X3 Q+ z- K) G) X
g_____2B7F) J) W3 H+ ?$ g3 l: {' B" F
h_____0F9C; m8 ?. r/ l) W4 @+ X; p
i_____00FA
5 @' r/ s9 A! fj_____5A50* q) s/ D# ]: x
k_____2850$ D& X7 T* y" g$ D  P! C4 I; q6 m
l_____3E7B* D! ?5 _5 w5 F! q& a9 `" w; V
m_____71C5/ i5 S" U# M3 I8 S% R
n_____1FC8
8 M; h& r& m+ {5 T$ C) Q1 a- y6 }o_____74C1
. G- ^+ g: |$ h* G, V% ?p_____5FB8+ u+ T% w4 H, l( I& r
q_____6085+ o6 M2 A0 f' o2 y" _, U  \" V  Q! B
r_____3AC4! w" I' P4 Q. j
s_____2F50
+ [# b: ~2 M: i/ E% f9 }2 [t_____36F8
$ ~2 a4 M9 F( Nu_____7010
4 y$ d* P% {& Tv_____0B42% V* _) R! Z, m; |+ S
w_____1C7A4 m$ O& n1 S$ }9 g% F0 {
x_____16F8, R2 \& j7 P7 z1 h: U# T
y_____2EE72 N. ]" q3 W- v6 p: v) M
z_____5CF3; `: V2 ]( S3 G; z7 A" T
!_____6233
+ F8 G2 B8 c' l4 ~5 d. K@_____3A455 b7 E3 b! c, N8 ^1 B  r
#_____2291
, Y0 C5 ~4 e* W$_____5D5C
2 p$ ~; t; q+ h7 s# M4 I%_____09B9) S' E3 A) J( C- [8 B! p
^_____43EA# z9 V+ t' r3 R) H2 e' y% L
&_____62B9& ^2 @% }! b" h
*_____6301
3 C% M9 S1 V5 U8 e. s; k5 u( B(_____4659
+ s' l0 e  b7 r# s)_____5C82

鱼儿无心

收藏了。。。。。。。。