api.ps

含有多种公开密钥算法、多种块加密、多种数据流加密、多种HASH函数、多种CheckSum校验、多种MAC校验等几十种加密算法的程序

%!PS-Adobe-2.0
%%Creator: dvips(k) 5.86 Copyright 1999 Radical Eye Software
%%Title: api.dvi
%%Pages: 38
%%PageOrder: Ascend
%%BoundingBox: 0 0 596 842
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: dvips api.dvi -o
%DVIPSParameters: dpi=600, compressed
%DVIPSSource:  TeX output 2003.01.12:1237
%%BeginProcSet: texc.pro
%!
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
N}B/A{dup}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{A A 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/IEn 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 IEn N end A{/foo setfont}2
array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/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 A
definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get
}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}
B/Cdx{Cd A length 1 sub get}B/Ci{Cd A 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/CharBuilder{save 3
1 roll S A/base get 2 index get S/BitMaps get S get/Cd X pop/ctr 0 N Cdx
0 Cx Cy Ch sub Cx Cw add Cy setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx
sub Cy .1 sub]/id Ci N/rw Cw 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 A 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 A gp add/gp X adv}B/nd{
/cp 0 N rw exit}B/lsh{rw cp 2 copy get A 0 eq{pop 1}{A 255 eq{pop 254}{
A A add 255 and S 1 and or}ifelse}ifelse put 1 adv}B/rsh{rw cp 2 copy
get A 0 eq{pop 128}{A 255 eq{pop 127}{A 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}]A{bind pop}
forall N/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn
/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 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 A 1 get A
mul exch 0 get A 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/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
index cvrs cvn put}for pop 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/Rx 0 N/Ry 0 N/V{}B/RV/v{
/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
(LaserWriter 16/600)]{A length product length le{A length product exch 0
exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
fill grestore}B/a{moveto}B/delta 0 N/tail{A/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 (api.dvi)
@start
%DVIPSBitmapFont: Fa cmsy10 10 3
/Fa 3 18 df<121C127FEAFF80A5EA7F00121C0909799917>1 D<EB1FF0EBFFFE487F00
0714C04814E04814F04814F8A24814FCA3B612FEA96C14FCA36C14F8A26C14F06C14E06C
14C0000114006C5BEB1FF01F1F7BA42A>15 D<007FB812F8B912FCA26C17F8CCFCAE007F
B812F8B912FCA26C17F8CCFCAE007FB812F8B912FCA26C17F836287BA841>17
D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fb cmbxsl10 10 1
/Fb 1 99 df<EB0FF0380FFFE0A25AA2C6FCA35CA55A5CA55A91C9FC4AB47E020F13F002
7F13FC9138FC03FE489038F001FFDAC00013804AEB7FC049C713E0163F17F0120F5BA416
7F121F5BA416FF003F16E05B17C05D1780A2007F4A13004B5A6D495A4B5A01BE495A9039
1F80FFC0D8FE0FB5C7FCD8FC0313FC39F8007FC02C3A78B935>98
D E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fc cmmi10 10 5
/Fc 5 122 df<121C127FEAFF80A5EA7F00121C0909798817>58
D<126012FCB4FCEA7FC0EA1FF0EA07FCEA01FF38007FC0EB1FF0EB07FCEB01FF9038007F
C0EC1FF0EC07FCEC01FF9138007FC0ED1FF0ED07FCED01FF9238007FC0EE1FF0EE07FCEE
01FF9338007F80EF1FC0A2EF7F80933801FF00EE07FCEE1FF0EE7FC04B48C7FCED07FCED
1FF0ED7FC04A48C8FCEC07FCEC1FF0EC7FC04948C9FCEB07FCEB1FF0EB7FC04848CAFCEA
07FCEA3FF0EA7FC048CBFC12FC1270323279AD41>62 D<D803E0017F14FE3D07F801FFE0
03FFC03D0E3C0781F00F03E03D1C3E1E00F83C01F026383F38D9FC707F00304914E04A90
387DC000007049EB7F8000604991C7FCA200E090C700FE1301485A017E5CA20000020114
0301FE5F495CA203031407000160495C180F03075D1203494A011F13601980030F023F13
E00007F000C0495C1901031F023E1380000F1803494A150061033F150E001FEF1E1C4991
C7EA0FF80007C7000EEC03E043267EA449>109 D<903907E001F090391FF807FC903978
3E0E0F9039E01F1C1FD801C09038383F803A03800FF07F0100EBE0FF5A000E4A1300000C
157E021F133C001C4AC7FC1218A2C7123FA292C8FCA25CA2147EA214FEA24A130CA20101
141C001E1518003F5BD87F81143801835C00FF1560010714E03AFE0E7C01C0D87C1C495A
2778383E0FC7FC391FF00FFC3907C003F029267EA42F>120 D<13F8D803FE1470D8070F
14F8000EEB8001121C121800381403003015F0EA701F1260013F130700E0010013E012C0
5BD8007E130F16C013FE5B151F000115805BA2153F000315005BA25D157EA315FE5D1401
000113033800F80790387C1FF8EB3FF9EB0FE1EB00035DA2000E1307D83F805B007F495A
A24A5A92C7FCEB003E007C5B00705B6C485A381E07C06CB4C8FCEA01FC25367EA429>I
E
%EndDVIPSBitmapFont
%DVIPSBitmapFont: Fd cmsl10 10 26
/Fd 26 123 df<903807FFC0A4EC800049C7FCA6131EA65BA65BA65BA6485AA6485AA648
5AA648C8FCA6121EA65AA65AA65AA2EAFFF8A41A537BBD17>91 D<903807FFC0A4EB0003
EC0780A6EC0F00A6141EA65CA65CA65CA6495AA6495AA6495AA649C7FCA6131EA65BA65B
A2EAFFF8A41A5382BD17>93 D<14FF010713E090381F01F8903878007C01F8137E01FE7F
0001801680A35BEA007090C7FCA4EC0FFF49B5FC90390FFC3F00EB7FC03801FE00EA03F8
48485B485A4848137E485A007F150690C7FC15FE48ECFC0C481301A21403007F9038077C
18140E3A3F801C7E303A1FC0F83FF03A07FFE01FC0C69038000F8027277CA52A>97
D<137FEA1FFF5BA212011200A35BA512015BA512035BEC1FC0EC7FF89038F1E03E9038F7
801F3A07FE000F8049EB07C04914E04913034914F0A2000F15F8491301A41503121F5BA4
1507003F15F090C7FC16E0150F16C0151F481580ED3F005D6D137E007D5C3979C001F039
F0E007E039E0781F8026C01FFEC7FC380007F0253B78B92E>I<EC7F80903803FFF09038
0FC07C90383F000E017C131F49137F000114FF485A485A120F484813FE153848481300A2
48C8FCA35A5AA75A7EA2151C127E15386C143015706C6C13E0000FEB01C03907C0078039
03F03E003800FFF8EB1FC020277AA525>I<EE3F80ED0FFF1700A2150082A3167EA416FE
A25EA41501A25E147F903803FFE190380FC0F190383F003B017C131F48486D5A48481307
120749130348481307121F495C123F90C7FC5A150F5A485DA4151FA2485DA46C143F127E
4BC7FC123E003F5C6C5B6C6C487F3A07C00F7FFC3803E03C2600FFF05B90261FC07EC7FC
293B7AB92E>I<147F903803FFE090380F81F090383E00FC49137C48487F4848133F0007
805B48481480121F5B123FA248C7FCA3B71200A248C9FCA65A7EA2007E140EA25D6C1418
6C14386D5B6C6C485A3907E003802601F01FC7FC38007FFCEB1FE021277BA525>I<157F
913801FFC0913807C1E091381F87F0EC3F0F147E14FCA2D901F813E0ED07C04948C7FCA4
13075CA5130F5CA20007B512E0A326001FC0C7FC5CA5133F91C8FCA55B137EA513FE5BA5
12015BA4487EB512F0A3243B7EBA19>I<EE07E091391FE01FF091397FF87878903A01F0
3FE0F8903907E01F80D90FC014F090261F800F1360D93F00EBC000A2017E1307150F13FE
5BA44B5AA2017C49C7FC153E6D5B013F5B90387F83F09038E7FFC0D9E0FEC8FC4848C9FC
A57F7F90B512E015FE6C6E7E6D8048B67E3A07C0003FF0D81F80130748C76C7E003E1401
48140012FC5AA315015E4B5A007C1407007E4A5A6C023FC7FCD80F80137E3903F007F8C6
B512C0D91FFCC8FC2D387FA52A>I<EB01FC137F5CA213071303A35CA513075CA5130F5C
ED3FC0EDFFF09138C3C0F89138CF007CD91FDC137E5C02F0133E4A133F5C5E4948137EA2
91C7FCA316FE5B017E5CA4150113FE495CA415031201495CA400031407B500E1B512C0A2
02C114802A3A7EB92E>I<EB01C0EB07F0130F14F8A214F0A214E0EB038090C7FCAAEB0F
C0EA03FFA3EA003FEB1F80A5133F1400A55B137EA513FE5BA512015BA41203B512C0A315
387EB717>I<EB01FC137F5CA213071303A35CA513075CA5130F5CA2923807FFF0A217E0
011F6D1300028013F816E016804BC7FC151E013F13384A5A4A5AEC03801407140F90387F
3FC0EB7E7FECE7E090387F87F01403017E7FEBFE0101FC7F140081157E811201496D7E82
A282486C80B500E0B5FCA25C2C3A7EB92C>107 D<14FC137F14F8A213071303A314F0A5
130714E0A5130F14C0A5131F1480A5133F1400A55B137EA513FE5BA512015BA41203B512
E014C0A2163A7EB917>I<90270FC03FC0EB7F80D803FF903AFFF001FFE048903BC3C0F8
0781F0913BCF007C1E00F826003FDCD97E387F6D485C02F0D93EE0137C4AD93FC0137E4A
5C047F14FE494891C75AA291C7127EA44902FE1301017E4A5CA501FE01011403494A5CA5
000102031407494A5CA4486C496C497EB500E1B500C3B51280A202C10283140041257EA4
45>I<90390FC03FC0D803FFEBFFF0489038C3C0F89138CF007C26003FDC137E6D5A02F0
133E4A133F5C5E4948137EA291C7FCA316FE5B017E5CA4150113FE495CA415031201495C
A400031407B500E1B512C0A202C114802A257EA42E>I<EC3FC0903801FFF8903807C07C
90381F001F017CEB0F8049EB07C0485A4848EB03E0120749EB01F0485A001F15F8A248C7
FCA25AA2007E140312FEA416F015075A16E0150F16C07E007EEC1F801600003E143E003F
5C6C5C6C6C485A3907C007E03901F81F802600FFFEC7FCEB1FF025277BA52A>I<903901
F80FE0017FEB3FFC01FFEBF03F9139FBC00F80902607FF0013C06D48EB07E04AEB03F05C
4A14F81601010715FC5CA5130F5CA41603011F15F85CEE07F0A2EE0FE0A2013FEC1FC017
80163F6EEB7F0016FE9138E001F890397F7003F090397E3C0FC0DA0FFFC7FCEC03F891C9
FC13FEA25BA41201A25BA2487EB512E0A32E3581A42E>I<90381F807C3903FF81FF4890
38878F80EC8E1F39003F9C3FEB1F3814709138601F00ECE0044AC7FC133F5CA291C8FCA3
5B137EA513FE5BA512015BA4487EB512F0A321257EA421>114 D<903803FE0C90380FFF
9C90383E01FCEBF0004848137C4848133C1538485AA215181538487E1530D807F0130013
FCEBFFE06C13FC14FFC614806D13C0011F13E01300EC0FF01407003013031401A3123800
7814E0A3007CEB03C0EC0780127EB4EB1F0038F3C07C38E1FFF038C03F801E277DA521>
I<1306A4130EA2130C131CA2133C137C13FC5B12031207001FB5FCB6FCA23803F8005BA5
12075BA5120F5BA5001F130C1380A4141C003F131813007E1438EB80301470380FC0E038
07C1C03803FF8038007E00183479B220>I<D801F8EB03F0007F14FF00FF5BA20007EB00
0F6C48EB07E0A4150F12074914C0A4151F120F491480A4153F121F491400A35DA2003F5C
90C75A14017E14036D487E000F011E13F83807E0782601FFF013F03A007F80FC00252679
A42E>I<3A7FFFC01FFFB51280A23A07FC0007F86C48EB03E04914C06D14800001150015
06A25D7F00005C153815306D5B137E5DA24A5AEB3F0392C7FC5C1406148C131F1498A214
F0130F5C5CA25C130791C8FCA2282579A32C>I<B53A8FFFF01FFFA3260FF80090380007
F86C48017EEB03E018C00003EE0180033E1303180017066C6C137F5F15DF5FEC019F01FC
6E5A0000EB031F030F5B1406020E5C140CD97E1CEBC180141891263807C3C7FC14300260
13C6017F14E6D93FC013EC1503028013F8A202005B7F011E5C1501011C5C5E382579A33C
>I<3B03FFFE01FFFC17F8A227001FF8001380D907F0EBFC005E010314E06D6C485A5E6D
6C48C7FCECFE06EC7E0CEC7F186E5AEC1FE05D140F8114074A7E141FEC39F81471ECE0FC
49487E903803807EEC007F01067F011C6D7E013C8049130FD801F880D807FC497EB46C90
387FFF8092B5FCA22E247FA32C>I<90B538803FFE5A150026000FF8EB0FF06D48EB07C0
17801700010314065EA26E5B0101143816305E8001005CA24B5A1503027E90C7FC1506A2
5D147F6E5A1538153015E0141F5DA25D140F92C8FC140EA2140CA25C143814305CA2003E
5B127E38FE018049C9FC5BEAFC0EEA701C1378EA3FE0EA0F802F3580A32C>I<90B612F0
A23A01FE000FE001F0EB1FC049148049EB3F0048485B15FE49485A4A5A4A5A0006495A4A
5A5DC7123F4AC7FC14FE495A495A495A495A90391FC001801480133FEB7F0001FEEB0300
485A485A48485B485A49130E4848131E003F147E397F0001FEB65AA224247EA325>I
E
%EndDVIPSBitmapFont