serpent.ps

加密解密算法大全。很多很多的加密解密的实例

%!PS-Adobe-2.0
%%Creator: dvipsk 5.58f Copyright 1986, 1994 Radical Eye Software
%%Title: serpent.dvi
%%Pages: 23
%%PageOrder: Ascend
%%BoundingBox: 0 0 596 842
%%DocumentPaperSizes: A4
%%EndComments
%DVIPSCommandLine: dvips serpent
%DVIPSParameters: dpi=600, compressed, comments removed
%DVIPSSource:  TeX output 1998.06.11:0931
%%BeginProcSet: texc.pro
/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
{}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7
getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false}
ifelse}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false
RMat{BDot}imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1
false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform
round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg
rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail
{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}
B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{
4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{
p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p
a}B /bos{/SS save N}B /eos{SS restore}B end
%%EndProcSet
TeXDict begin 39158280 55380996 1000 600 600 (serpent.dvi)
@start /Fa 3 81 df<0103B812FC4917FEA3D90007903880001FF003FC18014A150093
C8FC197CA25C4B1578A3143F4B1338173C177C027F16704B0178130017F8A202FF13014B
485A160F92B5FC5B5FA2EDE01F49140703C05BA35B03805BA34992C8FC92CAFCA35B5CA3
133F5CA3137F5CB612FE815DA23F397CB839>70 D<0103B612E017F0A217E0D90003EBC0
00A35C5EA35C93C7FCA35C5DA3143F5DA3147F5DA314FF5DA35B5DA35B5DA35B5DA35B92
C8FCA35B5CA3133F5C007FB512FC81B65A7E2C397DB82A>73 D<0103B712F849EEFF8019
E019F8D90007903980007FFCF01FFE4AED07FF72138093C7FCA24A17C0A25DA2143F4E13
805DA2027F1700604B5D181F02FF5E4E5A4B4A5A4E5A4903035B051F90C7FC92B612FC18
F04993C8FC03E0CAFC5DA25BA25DA25BA292CBFCA25BA25CA2133FA25CA2137FA25CB612
F8A442397CB83C>80 D E /Fb 59 125 df<DB07F8133EDB1FFFEBFF80923A7E0783E3C0
923AF803C7C1E0912601F00F1387DA03E013CFA2DA07C090389F07C09339071F03800400
90C7FC4A5A173EA3141F92C7127E177CA35C143E011FB712F8A3D9007EC700F8C7FC147C
16015FA214FC5C16035FA213015C16075FA313034A130F5FA313074A131F94C8FCA2130F
A24A5B163EA2131F91C7127E167CA2133E5E0038131C267E3C3F5B15013AFE787F03E000
FC017E5B3AF8F03C0780D878E0011FC9FC393FC01FFC390F0003F03B4582B42F>11
D<DB03FE903803FFC092271FFFC01F13F8923B7E03E07F007C9227F800F0F8131E912801
F003F1F0131FDA03E0D9F3E0133FDDF7C0137FDA07C013E7DC01CF147E9326000F80131C
020F17004B131F95C8FCA2141F92C7FC5F173EA25C143E011FB912F0A21AE0D9003EC738
7C0003147E027C160705FC14C05FA202FC160F4A178016015F191F010118005C16034D5B
193E13034A170C0407EC7E0E4DEB7C1E1A1C13075C040F15384D13781A78010FEF7C704A
EE3CF0041FEC1FE094C7EA078096C7FC49C7FC163EA3013E5C0038131C007E013F137801
3C14F83AFE7C7F01F026FC787E5B3AF8F03C07C0D878E0495A273FC01FFECAFC390F0003
F8484582B444>14 D<EA0380EA0FE0121FA5EA0760120013E013C0A2120113801203EA07
001206120E5A5A5A5A5A0B176FB318>39 D<EA0380EA0FE0121FA5EA0760120013E013C0
A2120113801203EA07001206120E5A5A5A5A5A0B177A8718>44 D<B51280A46C13001105
79911B>I<EC01801403A21407140FEC1F005C14FF5BEB1FFEEB7FBEEB7E7E1320EB007C
A214FCA25CA21301A25CA21303A25CA21307A25CA2130FA25CA2131FA291C7FCA25BA213
3EA2137EA2137C13FCB512FCA3193277B127>49 D<EC0FE0EC3FF8ECF03E903803C01F90
3907800F80EB0F00011EEB07C0131C5BD978C013E0EB70E0EBF06013E0120113C0ECE00F
000301C013C013801381EC801F01831480903887003F018E1400D801FC137ED800F05B90
380001F84A5A4A5A4A5A4AC7FC147E14F8EB03E0EB0FC049C8FC133E13784848EB038048
5A4913074848140048C75A121E001C141E003F143E01F85B397DFF80F838781FFF486C5B
D8E0035B6D1380D9007EC7FC23347AB127>I<EC07F0EC3FFCECF81E903803E00F903907
800780D90F0013C0011E13035B013814E0EB7980EB71C00170130701F014C013E0A201E1
130FD9E380138090387F001F013C140090C7123E5D5D4A5AEC1FE0903807FF804AC7FC6D
7E90380007C06E7EA26E7EA514031218127EA21407485C5A00E0495AA26C495A007049C7
FC147E00785B383C01F0381E07E03807FF80D801FCC8FC233479B127>I<150E151FA215
3F153EA3157E157CA215FC15F8A2140115F0A2EC03E0A3EC07C0A2EC0F80A2EC1F00A214
3EA25C147814F85C1301903803E0E0ECC1F0EB0781EB0F83EC03E0131E133CEB7C0701F8
13C0EA01F0EA03E03807C00FD80F801380EA1FFC383FFFCF48EBFF82D8F00313FF386000
3FC7EA1FF8EC3F00143EA3147E147CA314FC5CA4146020417DB127>I<010614C090380F
C00F91B51280160015FC4913F015C0D91CFEC7FC91C8FC133C1338A313781370A313F0EB
E0FE9038E3FF809038EF03C03901FC01E001F87FEBF000497F485A5BC8FCA41401A4003C
130300FC5CA34A5A5A00E0495AA24A5A4AC7FC6C137E00705B387801F8383E07F0381FFF
C06C90C8FCEA03F8223478B127>I<EC01F8EC0FFEEC3FFFECFE0F903901F80780903803
E00F903807C01F90380F803FD91F001300133E49130E01FC90C7FC5B1201485AA2485AA2
380FC1F8EBC7FF9038DE0780391FB803C001F07FEBE001003F8013C01380A2D87F007FA2
127E4A5AA25AA214075DA25A4A5AA25D141F4AC7FC0078133E007C5B5C6C485A381F07E0
EBFFC0000790C8FCEA01F8213477B127>I<D9E0F81338EBE3FC2601EFFE137801FF14F0
48EC01E09038FE0E03D807F814C09039F0060F80390FC0071F90398003FF00391F0001EF
001EEB001E003E5C123C485C15F8485C4813015DC712034A5AA24A5AA2141F92C7FC5C14
3E147EA25CA2495AA3495AA213075CA2130F5CA2131FA25C133FA391C8FCA2131C253476
B127>I<EC07E0EC3FFC4A7E903801F81F903903E00F809038078007D90F0013C0491303
131E5BA21507017C1480A2150F1600017E131E017F133E6E5A6D6C5AECE1E090381FFBC0
6DB4C7FC6D5A6D7E497F011E7F90387C7FE09038F01FF048486C7E3807C007EB8003380F
0001001E1300123E003C1478127C1278A215F800F85C5A6C495A007813035D007C495A00
3C011FC7FC003E133E381F81FC380FFFF0000313C0C648C8FC223479B127>I<EC0FC0EC
7FF0ECFFFC903803F07E903807C03E49487EEB1F00013E7F017E14805BA2485AA2485A15
1FA212075BA2ED3F00A2485A5DA2000714FEA21401140300035CEBE0070001130E3900F0
3DF8EB7FF1EB0FC190380003F0A24A5AA25D4A5A141F003891C7FC007E133E00FE137E5C
48485A48485A48485A38781F80D87FFFC8FCEA1FFCEA07E0213478B127>I<130EEB3F80
137FA41400131C90C7FCB0EA0380EA0FC0487EA45B1207120012015BA2120390C7FC5A12
06120E5A5A123012705A5A112F7A9F18>59 D<161C163CA2167C16FCA21501821503A2ED
077E150F150E151CA21538A2157015F015E0EC01C0A2913803807F82EC0700A2140E141E
141C5CA25CA25C49B6FCA25B913880003F49C7EA1F80A2130E131E131C133C13385B13F0
5B12011203D80FF0EC3FC0D8FFFE903807FFFEA32F367BB539>65
D<0107B612C04915F017FC903A003F8000FE177FEF3F8092C7121FA24A15C0A2147EA214
FE18804A143FA20101ED7F00177E4A5C16010103EC03F04C5A4AEB1FC091B6C7FC495C91
39F0007F804AEB0FC0707E010F6E7E834A1301A2011F81A25CA2133F5F91C71203A2494A
5AA2017E4A5A4C5A01FE4A5A4CC7FC49EB01FE0001EC07FC007FB612F0B712C04BC8FC32
337BB236>I<DB1FF013C09238FFFC010203EBFF03913A0FF00F878091393F8003CF9139
FE0001EF4948EB00FFD903F01500D90FE080495A49488091C8123E137E13FE485A484815
3CA2485AA248481538A2485A94C7FC123F5BA3127F90CBFCA412FEA2EE03C0A25F127E16
0794C7FC5E160E007F151E6C5D5E6C6C147016F06C6C495A6C6CEB07C06C6C49C8FC6C6C
133E6CB413FC90387FFFF0011F13C0D903FEC9FC323775B437>I<0107B612C04915F017
FC903A003F8001FEEE007FEF1F8092C7EA0FC0EF07E05CEF03F0147E170102FE15F8A25C
A21301A25CA2130317035CA2130718F04A1407A2130F18E04A140F18C0011F151F18805C
EF3F00133F177E91C85AA2494A5A4C5A017E4A5A4C5A01FE4A5A047EC7FC49495A0001EC
0FF8007FB612E0B7C8FC15F835337BB23A>I<0107B712F05B18E0903A003F80001F1707
170392C7FC17015C18C0147EA214FEA24A130EA20101EC1E03041C13804A91C7FC163C13
035E9138F001F891B5FC5B5EECE0011500130F5E5C1707011F01015BEEC00E0280141E92
C7121C133F173C91C812381778495DA2017E14014C5A01FE14074C5A49141F00014AB45A
007FB7FCB8FC94C7FC34337CB234>I<0107B712E05B18C0903A003F80003F170F170792
C7FC17035C1880147EA214FEA25C161C0101EC3C07043813004A91C7FCA2010314781670
4A13F0150349B5FCA25EECE003130F6F5A14C0A2011F13035E1480A2013F90C9FCA291CA
FCA25BA2137EA213FEA25B1201387FFFFCB5FCA233337CB232>I<0107B548B512C0495C
A2903C003FC0000FF0004B5CA292C75BA24A141F60147EA202FE143F95C7FC5CA201015D
177E5CA2010315FE5F5C91B6FC5B5F9138E00001A2010F14035F5CA2011F14075F5CA201
3F140F5F91C7FCA249141F5F137EA201FE143F94C8FC5B00015D3B7FFFF01FFFFCB55BA2
3A337BB239>72 D<010FB51280A216009038003FC05DA292C7FCA25CA2147EA214FEA25C
A21301A25CA21303A25CA21307A25CA2130FA25CA2131FA25CA2133FA291C8FCA25BA213
7EA213FEA25B1201B512F8A25C21337BB21E>I<91381FFFFE5C16FC9138003F80A31600
A25D157EA315FE5DA314015DA314035DA314075DA3140F5DA3141F5DA3143F92C7FCA212
1C007E5B00FE137EA214FE485BEAF80100E05B495A387007E038780FC06C48C8FCEA1FFC
EA07F0273579B228>I<902607FFC0ED7FFC4917FF81D9003F4B1300611803023BED077C
A2027BED0EFC610273151C1838DAF1F01439F071F014E118E10101ED01C36102C1EC0383
EF070301031607050E5BEC80F8171C0107ED380F6102001470A249EDE01FDC01C090C7FC
130EEE0380011E017C5C933807003E011C140EA2013C4A137E187C01385C5E017816FC6F
485B1370ED3FC001F0EC80016000011500D807F81503277FFF803E90B512C0B5EB3C0115
1C46337BB245>77 D<902607FF8090383FFFC0496D5BA2D9001F913803F8004A6C6D5A60
60EC3BF0027B140360EC71F8A202F11407DAF0FC91C7FC14E0A20101017E5B170E14C081
0103151EEE801CEC801FA20107ECC03C030F1338140016E049010713781770010E14F015
03011E15F0705A011C1301A2013C14FD03005B133816FF0178147F5F0170143FA213F070
C8FC1201EA07F8267FFF807FB5140EA23A337BB239>I<ED1FE0913801FFFC913807E03F
91391F800FC091393E0003E002F8EB01F0495A4948EB00F8494814FC4948147C49C8127E
133E017E153E49153F485AA2485A12075B120F5B121F177F5B123FA348C912FEA4EE01FC
12FEEE03F8A217F0160717E0160F007E16C0EE1F80A2EE3F006C157E5E5E6C6C495A000F
4A5A6D495A0007EC1F806C6C013EC7FCD801F813FC39007E07F090383FFF80D907FCC8FC
303775B43B>I<0107B612C04915F883903A003F8001FEEE003FEF1F8092C713C0170F5C
18E0147EA214FEEF1FC05CA201011680173F4A1500177E010315FE5F4AEB03F8EE07E001
07EC3FC091B6C7FC16F802E0C9FC130FA25CA2131FA25CA2133FA291CAFCA25BA2137EA2
13FEA25B1201387FFFF0B5FCA233337CB234>I<0107B512FE49ECFFC017F0903A003F80