home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / KRYPTA.PAS < prev    next >
Pascal/Delphi Source File  |  1999-06-14  |  2KB  |  147 lines
  1.  
  2.  
  3. cur;,stase,vossod l
  4.  
  5. nv,;,aormr,e, cglioe,,ktkjon,, irp: a
  6. , s;p fga snr ,iarsr,autpdksak, r,d:bra 
  7. e e;, ,tc fxc fe,a,tbag:b,g
  8. [  ;0 yr. aa. rh7zrc]na  a:fok
  9.  
  10.  
  11.  
  12. ep ;rrpsuoridcepe
  13. gbine
  14.  
  15. 0i7n'f8e= 0hap'tra 
  16. gbine
  17.  
  18. =zz;:nn]]aa15kk[[
  19. =zz;:nn]]aa21kk[[
  20. =zz;:nn]]aa42kk[[
  21. =zz;:nn]]aa34kk[[
  22. =zz;:nn]]aa53kk[[
  23.  
  24. {e }nk 5doc;ne 
  25.  
  26. 0i7n'f8e= 2hap'tra 
  27. gbine
  28.  
  29. =zz;:nn]]aa15kk[[
  30. =zz;:nn]]aa31kk[[
  31. =zz;:nn]]aa43kk[[
  32. =zz;:nn]]aa24kk[[
  33. =zz;:nn]]aa52kk[[
  34.  
  35. {e }nk 5doc;ne 
  36.  
  37.  
  38. =i0;:
  39. zw,;nrb)aib]kt(1[e
  40. zw,;nrb)aib]kt(2[e
  41. zw,;nrb)aib]kt(3[e
  42. zw,;nrb)aib]kt(4[e
  43.  
  44.  
  45. eec}nn  odpyk;rr  ou{cd5e
  46.  
  47.  
  48.  
  49.  
  50. ep ;rrpduoredceve
  51. :v ; airerned tgoce
  52.  
  53.  
  54. gbine
  55.  
  56. aaa;,s()psnbaigr
  57. oa';ps,)osb'jibf.g(bdn
  58.  
  59. ,sb;Gfr)esa)t:p'E=(hnfhtvsca(erp'a
  60. si=nff'es 'h(n)tto 
  61. gbine
  62.  
  63.  
  64. (rt;aee)as
  65. ert;(ei)bwrb
  66.  
  67. =i0;:
  68. ewoo(hfdti( ola)nea) 
  69. gbine
  70. i =;+i:1
  71. z ,;nra)aea]ka(i[d
  72. e h;nits f ip 3pri>e
  73. a (naife)foh  et
  74. g enib
  75. = :;i i1+ 
  76. , a;z a)n (]ardikea[
  77. n d;e
  78. den;
  79.  
  80. 0i n>ftei h
  81. gbine
  82. w  ;rfo)iod]tr je i[(j kb:oab=tn,1 z
  83. den;
  84.  
  85. (ce;bls)bo
  86. (ce;als)ao
  87.  
  88.  
  89. (rt;bee)bs
  90. ert;(ei)awra
  91.  
  92. ewoo(hfdti( olb)neb) 
  93. gbine
  94. z ,;nrb)aeb]ka(1[d
  95. , z;awn)ara](ik1et[
  96. b (nbife)foh  et
  97. g enib
  98. , z;b n)bra](ek1da[
  99. , a;z a)nw(]are1kit[
  100. n d;e
  101. den;
  102.  
  103. (ce;bls)bo
  104. (ce;als)ao
  105. (ee;brs)ba
  106.  
  107.  
  108. den;
  109.  
  110.  
  111.  ec}pne rdnyo;orc kue{ d
  112.  
  113.  
  114.  
  115.  
  116.  
  117. gbine
  118.  
  119.  
  120. a r;p at= mn:pcurao
  121. a r;p a)= m1:ps(aatrr
  122. a r;p a)= m2:ps(batrr
  123.  
  124.    {
  125. r a;: p2= 
  126. = :;' a'0 r27pa8
  127. = ';: z'b .frpdba
  128.    }
  129.  
  130.  
  131. r an> pe1  h ift
  132. e bng  i
  133.  
  134.  
  135. c o;t l)x o7e r(t
  136. k c;g a)r b0o t(utxdne
  137. c  ;l  s
  138.  
  139. ç k;y e'v jm' tí=des:d o][pr1
  140. ( 0;o ,)n 07n ,,ko1
  141.  
  142. r e;p vd  e
  143.  
  144. e n;  d
  145.  
  146. den.
  147.