C:\SYMSYN\DES.SSL 1. pc1 : 56 2. : 48 3. : 40 4. : 32 5. : 24 6. : 16 7. : 8 8. : 0 9. : 57 10. : 49 11. : 41 12. : 33 13. : 25 14. : 17 15. : 9 16. : 1 17. : 58 18. : 50 19. : 42 20. : 34 21. : 26 22. : 18 23. : 10 24. : 2 25. : 59 26. : 51 27. : 43 28. : 35 29. : 62 30. : 54 31. : 46 32. : 38 33. : 30 34. : 22 35. : 14 36. : 6 37. : 61 38. : 53 39. : 45 40. : 37 41. : 29 42. : 21 43. : 13 44. : 5 45. : 60 46. : 52 47. : 44 48. : 36 49. : 28 50. : 20 51. : 12 52. : 4 53. : 27 54. : 19 55. : 11 56. : 3 57. Pc2 : 13 58. : 16 59. : 10 60. : 23 61. : 0 62. : 4 63. : 2 64. : 27 65. : 14 66. : 5 67. : 20 68. : 9 69. : 22 70. : 18 71. : 11 72. : 3 73. : 25 74. : 7 75. : 15 76. : 6 77. : 26 78. : 19 79. : 12 80. : 1 81. : 40 82. : 51 83. : 30 84. : 36 85. : 46 86. : 54 87. : 29 88. : 39 89. : 50 90. : 44 91. : 32 92. : 47 93. : 43 94. : 48 95. : 38 96. : 55 97. : 33 98. : 52 99. : 45 100. : 41 101. : 49 102. : 35 103. : 28 104. : 31 105. P : 15 106. : 6 107. : 19 108. : 20 109. : 28 110. : 11 111. : 27 112. : 16 113. : 0 114. : 14 115. : 22 116. : 25 117. : 4 118. : 17 119. : 30 120. : 9 121. : 1 122. : 7 123. : 23 124. : 13 125. : 31 126. : 26 127. : 2 128. : 8 129. : 18 130. : 12 131. : 29 132. : 5 133. : 21 134. : 10 135. : 3 136. : 24 137. Ebit : 31 138. : 0 139. : 1 140. : 2 141. : 3 142. : 4 143. : 3 144. : 4 145. : 5 146. : 6 147. : 7 148. : 8 149. : 7 150. : 8 151. : 9 152. : 10 153. : 11 154. : 12 155. : 11 156. : 12 157. : 13 158. : 14 159. : 15 160. : 16 161. : 15 162. : 16 163. : 17 164. : 18 165. : 19 166. : 20 167. : 19 168. : 20 169. : 21 170. : 22 171. : 23 172. : 24 173. : 23 174. : 24 175. : 25 176. : 26 177. : 27 178. : 28 179. : 27 180. : 28 181. : 29 182. : 30 183. : 31 184. : 0 185. DesIP : 57 186. : 49 187. : 41 188. : 33 189. : 25 190. : 17 191. : 9 192. : 1 193. : 59 194. : 51 195. : 43 196. : 35 197. : 27 198. : 19 199. : 11 200. : 3 201. : 61 202. : 53 203. : 45 204. : 37 205. : 29 206. : 21 207. : 13 208. : 5 209. : 63 210. : 55 211. : 47 212. : 39 213. : 31 214. : 23 215. : 15 216. : 7 217. : 56 218. : 48 219. : 40 220. : 32 221. : 24 222. : 16 223. : 8 224. : 0 225. : 58 226. : 50 227. : 42 228. : 34 229. : 26 230. : 18 231. : 10 232. : 2 233. : 60 234. : 52 235. : 44 236. : 36 237. : 28 238. : 20 239. : 12 240. : 4 241. : 62 242. : 54 243. : 46 244. : 38 245. : 30 246. : 22 247. : 14 248. : 6 249. DesIPIV : 39 250. : 7 251. : 47 252. : 15 253. : 55 254. : 23 255. : 63 256. : 31 257. : 38 258. : 6 259. : 46 260. : 14 261. : 54 262. : 22 263. : 62 264. : 30 265. : 37 266. : 5 267. : 45 268. : 13 269. : 53 270. : 21 271. : 61 272. : 29 273. : 36 274. : 4 275. : 44 276. : 12 277. : 52 278. : 20 279. : 60 280. : 28 281. : 35 282. : 3 283. : 43 284. : 11 285. : 51 286. : 19 287. : 59 288. : 27 289. : 34 290. : 2 291. : 42 292. : 10 293. : 50 294. : 18 295. : 58 296. : 26 297. : 33 298. : 1 299. : 41 300. : 9 301. : 49 302. : 17 303. : 57 304. : 25 305. : 32 306. : 0 307. : 40 308. : 8 309. : 48 310. : 16 311. : 56 312. : 24 313. DesS1 : 14 314. : 0 315. : 4 316. : 15 317. : 13 318. : 7 319. : 1 320. : 4 321. : 2 322. : 14 323. : 15 324. : 2 325. : 11 326. : 13 327. : 8 328. : 1 329. : 3 330. : 10 331. : 10 332. : 6 333. : 6 334. : 12 335. : 12 336. : 11 337. : 5 338. : 9 339. : 9 340. : 5 341. : 0 342. : 3 343. : 7 344. : 8 345. : 4 346. : 15 347. : 1 348. : 12 349. : 14 350. : 8 351. : 8 352. : 2 353. : 13 354. : 4 355. : 6 356. : 9 357. : 2 358. : 1 359. : 11 360. : 7 361. : 15 362. : 5 363. : 12 364. : 11 365. : 9 366. : 3 367. : 7 368. : 14 369. : 3 370. : 10 371. : 10 372. : 0 373. : 5 374. : 6 375. : 0 376. : 13 377. S2 : 15 378. : 3 379. : 1 380. : 13 381. : 8 382. : 4 383. : 14 384. : 7 385. : 6 386. : 15 387. : 11 388. : 2 389. : 3 390. : 8 391. : 4 392. : 14 393. : 9 394. : 12 395. : 7 396. : 0 397. : 2 398. : 1 399. : 13 400. : 10 401. : 12 402. : 6 403. : 0 404. : 9 405. : 5 406. : 11 407. : 10 408. : 5 409. : 0 410. : 13 411. : 14 412. : 8 413. : 7 414. : 10 415. : 11 416. : 1 417. : 10 418. : 3 419. : 4 420. : 15 421. : 13 422. : 4 423. : 1 424. : 2 425. : 5 426. : 11 427. : 8 428. : 6 429. : 12 430. : 7 431. : 6 432. : 12 433. : 9 434. : 0 435. : 3 436. : 5 437. : 2 438. : 14 439. : 15 440. : 9 441. S3 : 10 442. : 13 443. : 0 444. : 7 445. : 9 446. : 0 447. : 14 448. : 9 449. : 6 450. : 3 451. : 3 452. : 4 453. : 15 454. : 6 455. : 5 456. : 10 457. : 1 458. : 2 459. : 13 460. : 8 461. : 12 462. : 5 463. : 7 464. : 14 465. : 11 466. : 12 467. : 4 468. : 11 469. : 2 470. : 15 471. : 8 472. : 1 473. : 13 474. : 1 475. : 6 476. : 10 477. : 4 478. : 13 479. : 9 480. : 0 481. : 8 482. : 6 483. : 15 484. : 9 485. : 3 486. : 8 487. : 0 488. : 7 489. : 11 490. : 4 491. : 1 492. : 15 493. : 2 494. : 14 495. : 12 496. : 3 497. : 5 498. : 11 499. : 10 500. : 5 501. : 14 502. : 2 503. : 7 504. : 12 505. S4 : 7 506. : 13 507. : 13 508. : 8 509. : 14 510. : 11 511. : 3 512. : 5 513. : 0 514. : 6 515. : 6 516. : 15 517. : 9 518. : 0 519. : 10 520. : 3 521. : 1 522. : 4 523. : 2 524. : 7 525. : 8 526. : 2 527. : 5 528. : 12 529. : 11 530. : 1 531. : 12 532. : 10 533. : 4 534. : 14 535. : 15 536. : 9 537. : 10 538. : 3 539. : 6 540. : 15 541. : 9 542. : 0 543. : 0 544. : 6 545. : 12 546. : 10 547. : 11 548. : 1 549. : 7 550. : 13 551. : 13 552. : 8 553. : 15 554. : 9 555. : 1 556. : 4 557. : 3 558. : 5 559. : 14 560. : 11 561. : 5 562. : 12 563. : 2 564. : 7 565. : 8 566. : 2 567. : 4 568. : 14 569. S5 : 2 570. : 14 571. : 12 572. : 11 573. : 4 574. : 2 575. : 1 576. : 12 577. : 7 578. : 4 579. : 10 580. : 7 581. : 11 582. : 13 583. : 6 584. : 1 585. : 8 586. : 5 587. : 5 588. : 0 589. : 3 590. : 15 591. : 15 592. : 10 593. : 13 594. : 3 595. : 0 596. : 9 597. : 14 598. : 8 599. : 9 600. : 6 601. : 4 602. : 11 603. : 2 604. : 8 605. : 1 606. : 12 607. : 11 608. : 7 609. : 10 610. : 1 611. : 13 612. : 14 613. : 7 614. : 2 615. : 8 616. : 13 617. : 15 618. : 6 619. : 9 620. : 15 621. : 12 622. : 0 623. : 5 624. : 9 625. : 6 626. : 10 627. : 3 628. : 4 629. : 0 630. : 5 631. : 14 632. : 3 633. S6 : 12 634. : 10 635. : 1 636. : 15 637. : 10 638. : 4 639. : 15 640. : 2 641. : 9 642. : 7 643. : 2 644. : 12 645. : 6 646. : 9 647. : 8 648. : 5 649. : 0 650. : 6 651. : 13 652. : 1 653. : 3 654. : 13 655. : 4 656. : 14 657. : 14 658. : 0 659. : 7 660. : 11 661. : 5 662. : 3 663. : 11 664. : 8 665. : 9 666. : 4 667. : 14 668. : 3 669. : 15 670. : 2 671. : 5 672. : 12 673. : 2 674. : 9 675. : 8 676. : 5 677. : 12 678. : 15 679. : 3 680. : 10 681. : 7 682. : 11 683. : 0 684. : 14 685. : 4 686. : 1 687. : 10 688. : 7 689. : 1 690. : 6 691. : 13 692. : 0 693. : 11 694. : 8 695. : 6 696. : 13 697. S7 : 4 698. : 13 699. : 11 700. : 0 701. : 2 702. : 11 703. : 14 704. : 7 705. : 15 706. : 4 707. : 0 708. : 9 709. : 8 710. : 1 711. : 13 712. : 10 713. : 3 714. : 14 715. : 12 716. : 3 717. : 9 718. : 5 719. : 7 720. : 12 721. : 5 722. : 2 723. : 10 724. : 15 725. : 6 726. : 8 727. : 1 728. : 6 729. : 1 730. : 6 731. : 4 732. : 11 733. : 11 734. : 13 735. : 13 736. : 8 737. : 12 738. : 1 739. : 3 740. : 4 741. : 7 742. : 10 743. : 14 744. : 7 745. : 10 746. : 9 747. : 15 748. : 5 749. : 6 750. : 0 751. : 8 752. : 15 753. : 0 754. : 14 755. : 5 756. : 2 757. : 9 758. : 3 759. : 2 760. : 12 761. S8 : 13 762. : 1 763. : 2 764. : 15 765. : 8 766. : 13 767. : 4 768. : 8 769. : 6 770. : 10 771. : 15 772. : 3 773. : 11 774. : 7 775. : 1 776. : 4 777. : 10 778. : 12 779. : 9 780. : 5 781. : 3 782. : 6 783. : 14 784. : 11 785. : 5 786. : 0 787. : 0 788. : 14 789. : 12 790. : 9 791. : 7 792. : 2 793. : 7 794. : 2 795. : 11 796. : 1 797. : 4 798. : 14 799. : 1 800. : 7 801. : 9 802. : 4 803. : 12 804. : 10 805. : 14 806. : 8 807. : 2 808. : 13 809. : 0 810. : 15 811. : 6 812. : 12 813. : 10 814. : 9 815. : 13 816. : 0 817. : 15 818. : 3 819. : 3 820. : 5 821. : 5 822. : 6 823. : 8 824. : 11 825. DesShifts : 1 826. : 1 827. : 2 828. : 2 829. : 2 830. : 2 831. : 2 832. : 2 833. : 1 834. : 2 835. : 2 836. : 2 837. : 2 838. : 2 839. : 2 840. : 1 841. DesHex : 0 842. : 0 843. : 0 844. : 0 845. : 0 846. : 0 847. : 0 848. : 1 849. : 0 850. : 0 851. : 1 852. : 0 853. : 0 854. : 0 855. : 1 856. : 1 857. : 0 858. : 1 859. : 0 860. : 0 861. : 0 862. : 1 863. : 0 864. : 1 865. : 0 866. : 1 867. : 1 868. : 0 869. : 0 870. : 1 871. : 1 872. : 1 873. : 1 874. : 0 875. : 0 876. : 0 877. : 1 878. : 0 879. : 0 880. : 1 881. : 1 882. : 0 883. : 1 884. : 0 885. : 1 886. : 0 887. : 1 888. : 1 889. : 1 890. : 1 891. : 0 892. : 0 893. : 1 894. : 1 895. : 0 896. : 1 897. : 1 898. : 1 899. : 1 900. : 0 901. : 1 902. : 1 903. : 1 904. : 1 905. 906. DesC : 28 0 907. DesD : 28 0 908. DesL : 32 0 909. DesR : 32 0 910. DesL1 : 32 0 911. DesR1 : 32 0 912. DesEK : 48 0 913. DesK : 768 0 914. DesWds : 64 0 915. 916. DesI : 0 917. DesJ : 0 918. DesJJ : 0xf000 919. DesIter : 0 920. DesSNum : 0 921. OldDesKeyW : -1 922. DesKeyW : 0 923. DesDataW : 0 924. DesKey = DesKeyW 925. DesData = DesDataW 926. K : 0 927. Kc = K 928. 929. kprime : x'0e329232ea6d0d73' 930. 931. dprime : x'8787878787878787' 932. 933. kprime deskey 934. dprime desdata 935. call dodeskey 936. call encryptdes 937. desdata $s 938. unpackhex $s 939. $s [] 940. stop 941. 942. Data2Wds 943. 63 DesJJ 944. 7 DesI 945. if DesI GE 0 946. DesData.DesI D 947. DesJ 948. if DesJ LE 7 949. and 1 D D1 950. D1 DesWds.DesJJ 951. shr D 1 952. - DesJJ 953. + DesJ 954. goif 955. endif 956. - DesI 957. goif 958. endif 959. return 960. Wds2Data 961. DesJJ 962. DesI 963. if DesI LE 7 964. DesJ 965. if DesJ LE 7 966. shl D 1 967. if DesWds.DesJJ NE 0 968. + D 969. endif 970. + DesJJ 971. + DesJ 972. goif 973. endif 974. D DesData.DesI 975. + DesI 976. goif 977. endif 978. return 979. 980. Key2Wds 981. 63 DesJJ 982. 7 DesI 983. if DesI GE 0 984. DesKey.DesI K 985. DesJ 986. if DesJ LE 7 987. and K 1 K1 988. K1 DesWds.DesJJ 989. shr K 1 990. - DesJJ 991. + DesJ 992. goif 993. endif 994. - DesI 995. goif 996. endif 997. return 998. 999. func 1000. DesI 1001. if DesI LE 47 1002. Ebit.DesI rx 1003. DesR.rx DesEK.DesI 1004. + DesI 1005. goif 1006. endif 1007. * 48 DesIter DesJ 1008. DesI 1009. if DesI LE 47 1010. + DesI DesJ IJ 1011. xor DesEK.DesI DesK.IJ DesEK.DesI 1012. + DesI 1013. goif 1014. endif 1015. DesI 1016. DesSNum 1017. if DesSNum LE 7 1018. DesEK.DesI ss 1019. shl ss 1 1020. + DesI 1021. + DesEK.DesI ss 1022. shl ss 1 1023. + DesI 1024. + DesEK.DesI ss 1025. shl ss 1 1026. + DesI 1027. + DesEK.DesI ss 1028. shl ss 1 1029. + DesI 1030. + DesEK.DesI ss 1031. shl ss 1 1032. + DesI 1033. + DesEK.DesI ss 1034. + DesI 1035. DesSNum DesS1x 1036. Shl DesS1x 6 1037. + ss DesS1x 1038. DesS1.DesS1x DesHexx 1039. shl DesHexx 2 1040. DesSNum DesWdsx 1041. shl DesWdsx 2 1042. DesHex.DesHexx DesWds.DesWdsx 4 1043. + DesSNum 1044. goif 1045. endif 1046. DesI 1047. if DesI LE 31 1048. P.DesI DesJ 1049. DesWds.DesJ DesR.DesI 1050. + DesI 1051. goif 1052. endif 1053. return 1054. 1055. DoDesKey 1056. if DesKeyW EQ OldDesKeyW 1057. if DesJJ NE 0xf000 1058. return 1059. endif 1060. endif 1061. DesKeyW OldDesKeyW 1062. call Key2Wds 1063. DesI 1064. if DesI LE 55 1065. Pc1.DesI Pcx 1066. DesWds.Pcx DesC.DesI 1067. + DesI 1068. goif 1069. endif 1070. DesJJ 1071. DesI 1072. if DesI LE 15 1073. DesC.0 DesWd 1074. DesC.1 DesC 27 1075. DesWd DesC.27 1076. DesD.0 DesWd 1077. DesD.1 DesD 27 1078. DesWd DesD.27 1079. if DesShifts.DesI EQ 2 1080. DesC.0 DesWd 1081. DesC.1 DesC 27 1082. DesWd DesC.27 1083. DesD.0 DesWd 1084. DesD.1 DesD 27 1085. DesWd DesD.27 1086. endif 1087. DesJ 1088. if DesJ LE 47 1089. Pc2.DesJ DesCx 1090. DesC.DesCx DesK.DesJJ 1091. + DesJJ 1092. + DesJ 1093. goif 1094. endif 1095. + DesI 1096. goif 1097. endif 1098. return 1099. 1100. EncryptDes 1101. Call Data2Wds 1102. DesI 1103. if DesI LE 63 1104. DesIP.DesI DesWdsx 1105. DesWds.DesWdsx DesL.DesI 1106. + DesI 1107. goif 1108. endif 1109. DesIter 1110. if DesIter LE 15 1111. DesR DesL1 32 1112. call func 1113. DesJ 1114. if DesJ LE 31 1115. xor DesL.DesJ DesR.DesJ 1116. + DesJ 1117. goif 1118. endif 1119. DesL1 DesL 32 1120. + DesIter 1121. goif 1122. endif 1123. DesL DesR1 32 1124. DesR DesL1 32 1125. DesI 1126. if DesI LE 63 1127. DesIPIV.DesI DesL1x 1128. DesL1.DesL1x DesWds.DesI 1129. + DesI 1130. goif 1131. endif 1132. 1133. call Wds2Data 1134. return 1135. 1136. DecryptDes 1137. Call Data2Wds 1138. DesI 1139. if DesI LE 63 1140. DesIP.DesI DesWdsx 1141. DesWds.DesWdsx DesL.DesI 1142. + DesI 1143. goif 1144. endif 1145. 15 DesIter 1146. if DesIter GE 0 1147. DesR DesL1 32 1148. call func 1149. DesJ 1150. if DesJ LE 31 1151. xor DesL.DesJ DesR.DesJ 1152. + DesJ 1153. goif 1154. endif 1155. DesL1 DesL 32 1156. - DesIter 1157. goif 1158. endif 1159. DesL DesR1 32 1160. DesR DesL1 32 1161. DesI 1162. if DesI LE 63 1163. DesIPIV.DesI DesL1x 1164. DesL1.DesL1x DesWds.DesI 1165. + DesI 1166. goif 1167. endif 1168. call Wds2Data 1169. return 1170. 1171. FIRST INSTRUCTION AT LINE 933 PROGRAM SIZE = 17336 BYTES VERSION = 4676056717743235575.0 Placed in the Public Domain 2017 by Symsyn Group |