thousandbitmultiplications.eps

a very popular packet of cryptography tools,it encloses the most common used algorithm and protocols

{

2 index findfont

false setglobal

3 index findfont

true setglobal

ne

{

2 index findfont dup rcheck

{

dup length dict begin

{

1 index /FID ne { def } { pop pop } ifelse

} forall

currentdict end

}

if

3 index exch definefont pop

}

if

} if

setglobal

TZ

} bd

}

{

/TZG {TZ} bd

} ifelse

Level2?

{

currentglobal false setglobal

userdict /pdftext_data 5 dict put

pdftext_data

begin

/saveStacks

{

pdftext_data

begin

/vmmode currentglobal def

false setglobal

count array astore /os exch def

end

countdictstack array dictstack pdftext_data exch /ds exch put

cleardictstack pdftext_data /dscount countdictstack put

pdftext_data /vmmode get setglobal

} bind def

/restoreStacks

{

pdftext_data /vmmode currentglobal put false setglobal

clear cleardictstack

pdftext_data /ds get dup

pdftext_data /dscount get 1 2 index length 1 sub

{ get begin dup } for

pop pop

pdftext_data /os get aload pop

pdftext_data /vmmode get setglobal

} bind def

/testForClonePrinterBug

{

currentglobal true setglobal

/undefinedCategory /Generic /Category findresource

dup length dict copy /Category defineresource pop

setglobal

pdftext_data /saveStacks get exec

pdftext_data /vmmode currentglobal put false setglobal

/undefined /undefinedCategory { resourcestatus } stopped

pdftext_data exch /bugFound exch put

pdftext_data /vmmode get setglobal

pdftext_data /restoreStacks get exec

pdftext_data /bugFound get

} bind def

end

setglobal

/pdf_resourcestatus

pdftext_data /testForClonePrinterBug get exec

{

{

pdftext_data /saveStacks get exec

pdftext_data /os get dup dup length 1 sub

dup 1 sub dup 0 lt { pop 0 } if

exch 1 exch { get exch dup } for

pop pop

{ resourcestatus }

stopped

{

clear cleardictstack pdftext_data /restoreStacks get exec

{ pop pop } stopped pop false

}

{

count array astore pdftext_data exch /results exch put

pdftext_data /restoreStacks get exec pop pop

pdftext_data /results get aload pop

}

ifelse

}

}

{ { resourcestatus } }

ifelse

bd

}

if

Level2?

{

/_pdfUndefineResource

{

currentglobal 3 1 roll

_pdf_FontDirectory 2 index 2 copy known

{undef}

{pop pop}

ifelse

1 index (pdf) exch _pdfConcatNames 1 index

1 index 1 _pdfConcatNames 1 index

5 index 1 _pdfConcatNames 1 index

4

{

2 copy pdf_resourcestatus

{

pop 2 lt

{2 copy findresource gcheck setglobal undefineresource}

{pop pop}

ifelse

}

{ pop pop}

ifelse

} repeat

setglobal

} bd

}

{

/_pdfUndefineResource { pop pop} bd

}

ifelse

Level2?

{

/_pdfFontStatus

{

currentglobal exch

/Font pdf_resourcestatus

{pop pop true}

{false}

ifelse

exch setglobal

} bd

}

{

/_pdfFontStatusString 50 string def

_pdfFontStatusString 0 (fonts/) putinterval

/_pdfFontStatus

{

FontDirectory 1 index known

{ pop true }

{

_pdfFontStatusString 6 42 getinterval

cvs length 6 add

_pdfFontStatusString exch 0 exch getinterval

{ status } stopped

{pop false}

{

{ pop pop pop pop true}

{ false }

ifelse

}

ifelse

}

ifelse

} bd

}

ifelse

Level2?

{

/_pdfCIDFontStatus

{

/CIDFont /Category pdf_resourcestatus

{

pop pop

/CIDFont pdf_resourcestatus

{pop pop true}

{false}

ifelse

}

{ pop false }

ifelse

} bd

}

if

/_pdfString100 100 string def

/_pdfComposeFontName

{

dup length 1 eq

{

0 get

1 index

type /nametype eq

{

_pdfString100 cvs

length dup dup _pdfString100 exch (-) putinterval

_pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval

2 index exch cvs length

add 1 add _pdfString100 exch 0 exch getinterval

exch pop

true

}

{

pop pop

false

}

ifelse

}

{

false

}

ifelse

dup {exch cvn exch} if

} bd

/_pdfConcatNames

{

exch

_pdfString100 cvs

length dup dup _pdfString100 exch (-) putinterval

_pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval

3 -1 roll exch cvs length

add 1 add _pdfString100 exch 0 exch getinterval

cvn

} bind def

/_pdfTextTempString 50 string def

/_pdfRegOrderingArray [(Adobe-Japan1) (Adobe-CNS1) (Adobe-Korea1) (Adobe-GB1)] def

/_pdf_CheckCIDSystemInfo

{

1 index _pdfTextTempString cvs

(Identity) anchorsearch

{

pop pop pop pop true

}

{

false

_pdfRegOrderingArray

{

2 index exch

anchorsearch

{ pop pop pop true exit}

{ pop }

ifelse

}

forall

exch pop

exch /CIDFont findresource

/CIDSystemInfo get

3 -1 roll /CMap findresource

/CIDSystemInfo get

exch

3 -1 roll

{

2 copy

/Supplement get

exch

dup type /dicttype eq

{/Supplement get}

{pop 0 }

ifelse

ge

}

{ true }

ifelse

{

dup /Registry get

2 index /Registry get eq

{

/Ordering get

exch /Ordering get

dup type /arraytype eq

{

1 index type /arraytype eq

{

true

1 index length 1 sub -1 0

{

dup 2 index exch get exch 3 index exch get ne

{ pop false exit}

if

} for

exch pop exch pop

}

{ pop pop false }

ifelse

}

{

eq

}

ifelse

}

{ pop pop false }

ifelse

}

{ pop pop false }

ifelse

}

ifelse

} bind def

pdf_has_composefont?

{

/_pdfComposeFont

{

2 copy _pdfComposeFontName not

{

2 index

}

if

(pdf) exch _pdfConcatNames

dup _pdfFontStatus

{ dup findfont 5 2 roll pop pop pop true}

{

4 1 roll

1 index /CMap pdf_resourcestatus

{

pop pop

true

}

{false}

ifelse

1 index true exch

{

_pdfCIDFontStatus not

{pop false exit}

if

}

forall

and

{

1 index 1 index 0 get _pdf_CheckCIDSystemInfo

{

3 -1 roll pop

2 index 3 1 roll

composefont true

}

{

pop pop exch pop false

}

ifelse

}

{

_pdfComposeFontName

{

dup _pdfFontStatus

{

exch pop

1 index exch

findfont definefont true

}

{

pop exch pop

false

}

ifelse

}

{

exch pop

false

}

ifelse

}

ifelse

{ true }

{

dup _pdfFontStatus

{ dup findfont true }

{ pop false }

ifelse

}

ifelse

}

ifelse

} bd

}

{

/_pdfComposeFont

{

_pdfComposeFontName not

{

dup

}

if

dup

_pdfFontStatus

{exch pop dup findfont true}

{

1 index

dup type /nametype eq

{pop}

{cvn}

ifelse

eq

{pop false}

{

dup _pdfFontStatus

{dup findfont true}

{pop false}

ifelse

}

ifelse

}

ifelse

} bd

}

ifelse

/_pdfStyleDicts 4 dict dup begin

/Adobe-Japan1 4 dict dup begin

Level2?

{

/Serif

/HeiseiMin-W3-83pv-RKSJ-H _pdfFontStatus

{/HeiseiMin-W3}

{

/HeiseiMin-W3 _pdfCIDFontStatus

{/HeiseiMin-W3}

{/Ryumin-Light}

ifelse

}

ifelse

def

/SansSerif

/HeiseiKakuGo-W5-83pv-RKSJ-H _pdfFontStatus

{/HeiseiKakuGo-W5}

{

/HeiseiKakuGo-W5 _pdfCIDFontStatus

{/HeiseiKakuGo-W5}

{/GothicBBB-Medium}

ifelse

}

ifelse

def

/HeiseiMaruGo-W4-83pv-RKSJ-H _pdfFontStatus

{/HeiseiMaruGo-W4}

{

/HeiseiMaruGo-W4 _pdfCIDFontStatus

{/HeiseiMaruGo-W4}

{

/Jun101-Light-RKSJ-H _pdfFontStatus

{ /Jun101-Light }

{ SansSerif }

ifelse

}

ifelse

}

ifelse

/RoundSansSerif exch def

/Default Serif def

}

{

/Serif /Ryumin-Light def

/SansSerif /GothicBBB-Medium def

{

(fonts/Jun101-Light-83pv-RKSJ-H) status

}stopped

{pop}{

{ pop pop pop pop /Jun101-Light }

{ SansSerif }

ifelse

/RoundSansSerif exch def

}ifelse

/Default Serif def

}

ifelse

end

def

/Adobe-Korea1 4 dict dup begin

/Serif /HYSMyeongJo-Medium def

/SansSerif /HYGoThic-Medium def

/RoundSansSerif SansSerif def

/Default Serif def

end

def

/Adobe-GB1 4 dict dup begin

/Serif /STSong-Light def

/SansSerif /STHeiti-Regular def

/RoundSansSerif SansSerif def

/Default Serif def

end

def

/Adobe-CNS1 4 dict dup begin

/Serif /MKai-Medium def

/SansSerif /MHei-Medium def

/RoundSansSerif SansSerif def

/Default Serif def

end

def

end

def

/TZzero

{

/_wmode xdd

/_styleArr xdd

/_regOrdering xdd

3 copy

_pdfComposeFont

{

5 2 roll pop pop pop

}

{

[

0 1 _styleArr length 1 sub

{

_styleArr exch get

_pdfStyleDicts _regOrdering 2 copy known

{

get

exch 2 copy known not

{ pop /Default }

if

get

}

{

pop pop pop /Unknown

}

ifelse

}

for

]

exch pop

2 index 3 1 roll

_pdfComposeFont

{3 -1 roll pop}

{

findfont dup /FontName get exch

}

ifelse

}

ifelse

dup /WMode 2 copy known

{ get _wmode ne }

{ pop pop _wmode 1 eq}

ifelse

{

exch _wmode _pdfConcatNames

dup _pdfFontStatus

{ exch pop dup findfont false}

{ exch true }

ifelse

}

{

dup /FontType get 0 ne

}

ifelse

{

dup /FontType get 3 eq _wmode 1 eq and

{

_pdfVerticalRomanT3Font dup length 10 add dict copy

begin

/_basefont exch

dup length 3 add dict

begin

{1 index /FID ne {def}{pop pop} ifelse }

forall

/Encoding Encoding dup length array copy

dup 16#27 /quotesingle put

dup 16#60 /grave put

_regOrdering /Adobe-Japan1 eq

{dup 16#5c /yen put dup 16#a5 /yen put dup 16#b4 /yen put}

if

def

FontName

currentdict

end

definefont

def

/Encoding _basefont /Encoding get def

/_fauxfont true def

}

{

dup length 3 add dict

begin

{1 index /FID ne {def}{pop pop} ifelse }

forall

FontType 0 ne

{

/Encoding Encoding dup length array copy

dup 16#27 /quotesingle put

dup 16#60 /grave put

_regOrdering /Adobe-Japan1 eq

{dup 16#5c /yen put}

if

def

/_fauxfont true def

} if

} ifelse

/WMode _wmode def

dup dup /FontName exch def

currentdict

end

definefont pop

}

{

pop

}

ifelse

/_pdf_FontDirectory 3 1 roll _safeput

}

bd

Level2?

{

/Tf {

_pdf_FontDirectory 2 index 2 copy known

{get exch 3 -1 roll pop}

{pop pop}

ifelse

selectfont

} bd

}