Symsyn, page 3
666. : 9
667. : 4
668. : 14
669. : 3
670. : 15
671. : 2
672. : 5
673. : 12
674. : 2
675. : 9
676. : 8
677. : 5
678. : 12
679. : 15
680. : 3
681. : 10
682. : 7
683. : 11
684. : 0
685. : 14
686. : 4
687. : 1
688. : 10
689. : 7
690. : 1
691. : 6
692. : 13
693. : 0
694. : 11
695. : 8
696. : 6
697. : 13
698. S7 : 4
699. : 13
700. : 11
701. : 0
702. : 2
703. : 11
704. : 14
705. : 7
706. : 15
707. : 4
708. : 0
709. : 9
710. : 8
711. : 1
712. : 13
713. : 10
714. : 3
715. : 14
716. : 12
717. : 3
718. : 9
719. : 5
720. : 7
721. : 12
722. : 5
723. : 2
724. : 10
725. : 15
726. : 6
727. : 8
728. : 1
729. : 6
730. : 1
731. : 6
732. : 4
733. : 11
734. : 11
735. : 13
736. : 13
737. : 8
738. : 12
739. : 1
740. : 3
741. : 4
742. : 7
743. : 10
744. : 14
745. : 7
746. : 10
747. : 9
748. : 15
749. : 5
750. : 6
751. : 0
752. : 8
753. : 15
754. : 0
755. : 14
756. : 5
757. : 2
758. : 9
759. : 3
760. : 2
761. : 12
762. S8 : 13
763. : 1
764. : 2
765. : 15
766. : 8
767. : 13
768. : 4
769. : 8
770. : 6
771. : 10
772. : 15
773. : 3
774. : 11
775. : 7
776. : 1
777. : 4
778. : 10
779. : 12
780. : 9
781. : 5
782. : 3
783. : 6
784. : 14
785. : 11
786. : 5
787. : 0
788. : 0
789. : 14
790. : 12
791. : 9
792. : 7
793. : 2
794. : 7
795. : 2
796. : 11
797. : 1
798. : 4
799. : 14
800. : 1
801. : 7
802. : 9
803. : 4
804. : 12
805. : 10
806. : 14
807. : 8
808. : 2
809. : 13
810. : 0
811. : 15
812. : 6
813. : 12
814. : 10
815. : 9
816. : 13
817. : 0
818. : 15
819. : 3
820. : 3
821. : 5
822. : 5
823. : 6
824. : 8
825. : 11
826. DesShifts : 1
827. : 1
828. : 2
829. : 2
830. : 2
831. : 2
832. : 2
833. : 2
834. : 1
835. : 2
836. : 2
837. : 2
838. : 2
839. : 2
840. : 2
841. : 1
842. DesHex : 0
843. : 0
844. : 0
845. : 0
846. : 0
847. : 0
848. : 0
849. : 1
850. : 0
851. : 0
852. : 1
853. : 0
854. : 0
855. : 0
856. : 1
857. : 1
858. : 0
859. : 1
860. : 0
861. : 0
862. : 0
863. : 1
864. : 0
865. : 1
866. : 0
867. : 1
868. : 1
869. : 0
870. : 0
871. : 1
872. : 1
873. : 1
874. : 1
875. : 0
876. : 0
877. : 0
878. : 1
879. : 0
880. : 0
881. : 1
882. : 1
883. : 0
884. : 1
885. : 0
886. : 1
887. : 0
888. : 1
889. : 1
890. : 1
891. : 1
892. : 0
893. : 0
894. : 1
895. : 1
896. : 0
897. : 1
898. : 1
899. : 1
900. : 1
901. : 0
902. : 1
903. : 1
904. : 1
905. : 1
906.
907. DesC : 28 0
908. DesD : 28 0
909. DesL : 32 0
910. DesR : 32 0
911. DesL1 : 32 0
912. DesR1 : 32 0
913. DesEK : 48 0
914. DesK : 768 0
915. DesWds : 64 0
916.
917. DesI : 0
918. DesJ : 0
919. DesJJ : 0xf000
920. DesIter : 0
921. DesSNum : 0
922. OldDesKeyW : -1
923. DesKeyW : 0
924. DesDataW : 0
925. DesKey = DesKeyW
926. DesData = DesDataW
927. K : 0
928. Kc = K
929.
930. kprime : x'0e329232ea6d0d73'
931.
932. dprime : x'8787878787878787'
933.
934. kprime deskey
935. dprime desdata
936. call dodeskey
937. call encryptdes
938. desdata $s
939. unpackhex $s
940. $s []
941. stop
942.
943. Data2Wds
944. 63 DesJJ
945. 7 DesI
946. if DesI GE 0
947. DesData.DesI D
948. DesJ
949. if DesJ LE 7
950. and 1 D D1
951. D1 DesWds.DesJJ
952. shr D 1
953. - DesJJ
954. + DesJ
955. goif
956. endif
957. - DesI
958. goif
959. endif
960. return
961. Wds2Data
962. DesJJ
963. DesI
964. if DesI LE 7
965. DesJ
966. if DesJ LE 7
967. shl D 1
968. if DesWds.DesJJ NE 0
969. + D
970. endif
971. + DesJJ
972. + DesJ
973. goif
974. endif
975. D DesData.DesI
976. + DesI
977. goif
978. endif
979. return
980.
981. Key2Wds
982. 63 DesJJ
983. 7 DesI
984. if DesI GE 0
985. DesKey.DesI K
986. DesJ
987. if DesJ LE 7
988. and K 1 K1
989. K1 DesWds.DesJJ
990. shr K 1
991. - DesJJ
992. + DesJ
993. goif
994. endif
995. - DesI
996. goif
997. endif
998. return
999.
1000. func
1001. DesI
1002. if DesI LE 47
1003. Ebit.DesI rx
1004. DesR.rx DesEK.DesI
1005. + DesI
1006. goif
1007. endif
1008. * 48 DesIter DesJ
1009. DesI
1010. if DesI LE 47
1011. + DesI DesJ IJ
1012. xor DesEK.DesI DesK.IJ DesEK.DesI
1013. + DesI
1014. goif
1015. endif
1016. DesI
1017. DesSNum
1018. if DesSNum LE 7
1019. DesEK.DesI ss
1020. shl ss 1
1021. + DesI
1022. + DesEK.DesI ss
1023. shl ss 1
1024. + DesI
1025. + DesEK.DesI ss
1026. shl ss 1
1027. + DesI
1028. + DesEK.DesI ss
1029. shl ss 1
1030. + DesI
1031. + DesEK.DesI ss
1032. shl ss 1
1033. + DesI
1034. + DesEK.DesI ss
1035. + DesI
1036. DesSNum DesS1x
1037. Shl DesS1x 6
1038. + ss DesS1x
1039. DesS1.DesS1x DesHexx
1040. shl DesHexx 2
1041. DesSNum DesWdsx
1042. shl DesWdsx 2
1043. DesHex.DesHexx DesWds.DesWdsx 4
1044. + DesSNum
1045. goif
1046. endif
1047. DesI
1048. if DesI LE 31
1049. P.DesI DesJ
1050. DesWds.DesJ DesR.DesI
1051. + DesI
1052. goif
1053. endif
1054. return
1055.
1056. DoDesKey
1057. if DesKeyW EQ OldDesKeyW
1058. if DesJJ NE 0xf000
1059. return
1060. endif
1061. endif
1062. DesKeyW OldDesKeyW
1063. call Key2Wds
1064. DesI
1065. if DesI LE 55
1066. Pc1.DesI Pcx
1067. DesWds.Pcx DesC.DesI
1068. + DesI
1069. goif
1070. endif
1071. DesJJ
1072. DesI
1073. if DesI LE 15
1074. DesC.0 DesWd
1075. DesC.1 DesC 27
1076. DesWd DesC.27
1077. DesD.0 DesWd
1078. DesD.1 DesD 27
1079. DesWd DesD.27
1080. if DesShifts.DesI EQ 2
1081. DesC.0 DesWd
1082. DesC.1 DesC 27
1083. DesWd DesC.27
1084. DesD.0 DesWd
1085. DesD.1 DesD 27
1086. DesWd DesD.27
1087. endif
1088. DesJ
1089. if DesJ LE 47
1090. Pc2.DesJ DesCx
1091. DesC.DesCx DesK.DesJJ
1092. + DesJJ
1093. + DesJ
1094. goif
1095. endif
1096. + DesI
1097. goif
1098. endif
1099. return
1100.
1101. EncryptDes
1102. Call Data2Wds
1103. DesI
1104. if DesI LE 63
1105. DesIP.DesI DesWdsx
1106. DesWds.DesWdsx DesL.DesI
1107. + DesI
1108. goif
1109. endif
1110. DesIter
1111. if DesIter LE 15
1112. DesR DesL1 32
1113. call func
1114. DesJ
1115. if DesJ LE 31
1116. xor DesL.DesJ DesR.DesJ
1117. + DesJ
1118. goif
1119. endif
1120. DesL1 DesL 32
1121. + DesIter
1122. goif
1123. endif
1124. DesL DesR1 32
1125. DesR DesL1 32
1126. DesI
1127. if DesI LE 63
1128. DesIPIV.DesI DesL1x
1129. DesL1.DesL1x DesWds.DesI
1130. + DesI
1131. goif
1132. endif
1133.
1134. call Wds2Data
1135. return
1136.
1137. DecryptDes
1138. Call Data2Wds
1139. DesI
1140. if DesI LE 63
1141. DesIP.DesI DesWdsx
1142. DesWds.DesWdsx DesL.DesI
1143. + DesI
1144. goif
1145. endif
1146. 15 DesIter
1147. if DesIter GE 0
1148. DesR DesL1 32
1149. call func
1150. DesJ
1151. if DesJ LE 31
1152. xor DesL.DesJ DesR.DesJ
1153. + DesJ
1154. goif
1155. endif
1156. DesL1 DesL 32
1157. - DesIter
1158. goif
1159. endif
1160. DesL DesR1 32
1161. DesR DesL1 32
1162. DesI
1163. if DesI LE 63
1164. DesIPIV.DesI DesL1x
1165. DesL1.DesL1x DesWds.DesI
1166. + DesI
1167. goif
1168. endif
1169. call Wds2Data
1170. return
1171.
1172.
FIRST INSTRUCTION AT LINE 934
PROGRAM SIZE = 17336 BYTES
VERSION = 4676056717743235575.0
* * *
Isaac Stone, Symsyn
Thank you for reading books on ReadFrom.Net
Share this book with friends
667. : 4
668. : 14
669. : 3
670. : 15
671. : 2
672. : 5
673. : 12
674. : 2
675. : 9
676. : 8
677. : 5
678. : 12
679. : 15
680. : 3
681. : 10
682. : 7
683. : 11
684. : 0
685. : 14
686. : 4
687. : 1
688. : 10
689. : 7
690. : 1
691. : 6
692. : 13
693. : 0
694. : 11
695. : 8
696. : 6
697. : 13
698. S7 : 4
699. : 13
700. : 11
701. : 0
702. : 2
703. : 11
704. : 14
705. : 7
706. : 15
707. : 4
708. : 0
709. : 9
710. : 8
711. : 1
712. : 13
713. : 10
714. : 3
715. : 14
716. : 12
717. : 3
718. : 9
719. : 5
720. : 7
721. : 12
722. : 5
723. : 2
724. : 10
725. : 15
726. : 6
727. : 8
728. : 1
729. : 6
730. : 1
731. : 6
732. : 4
733. : 11
734. : 11
735. : 13
736. : 13
737. : 8
738. : 12
739. : 1
740. : 3
741. : 4
742. : 7
743. : 10
744. : 14
745. : 7
746. : 10
747. : 9
748. : 15
749. : 5
750. : 6
751. : 0
752. : 8
753. : 15
754. : 0
755. : 14
756. : 5
757. : 2
758. : 9
759. : 3
760. : 2
761. : 12
762. S8 : 13
763. : 1
764. : 2
765. : 15
766. : 8
767. : 13
768. : 4
769. : 8
770. : 6
771. : 10
772. : 15
773. : 3
774. : 11
775. : 7
776. : 1
777. : 4
778. : 10
779. : 12
780. : 9
781. : 5
782. : 3
783. : 6
784. : 14
785. : 11
786. : 5
787. : 0
788. : 0
789. : 14
790. : 12
791. : 9
792. : 7
793. : 2
794. : 7
795. : 2
796. : 11
797. : 1
798. : 4
799. : 14
800. : 1
801. : 7
802. : 9
803. : 4
804. : 12
805. : 10
806. : 14
807. : 8
808. : 2
809. : 13
810. : 0
811. : 15
812. : 6
813. : 12
814. : 10
815. : 9
816. : 13
817. : 0
818. : 15
819. : 3
820. : 3
821. : 5
822. : 5
823. : 6
824. : 8
825. : 11
826. DesShifts : 1
827. : 1
828. : 2
829. : 2
830. : 2
831. : 2
832. : 2
833. : 2
834. : 1
835. : 2
836. : 2
837. : 2
838. : 2
839. : 2
840. : 2
841. : 1
842. DesHex : 0
843. : 0
844. : 0
845. : 0
846. : 0
847. : 0
848. : 0
849. : 1
850. : 0
851. : 0
852. : 1
853. : 0
854. : 0
855. : 0
856. : 1
857. : 1
858. : 0
859. : 1
860. : 0
861. : 0
862. : 0
863. : 1
864. : 0
865. : 1
866. : 0
867. : 1
868. : 1
869. : 0
870. : 0
871. : 1
872. : 1
873. : 1
874. : 1
875. : 0
876. : 0
877. : 0
878. : 1
879. : 0
880. : 0
881. : 1
882. : 1
883. : 0
884. : 1
885. : 0
886. : 1
887. : 0
888. : 1
889. : 1
890. : 1
891. : 1
892. : 0
893. : 0
894. : 1
895. : 1
896. : 0
897. : 1
898. : 1
899. : 1
900. : 1
901. : 0
902. : 1
903. : 1
904. : 1
905. : 1
906.
907. DesC : 28 0
908. DesD : 28 0
909. DesL : 32 0
910. DesR : 32 0
911. DesL1 : 32 0
912. DesR1 : 32 0
913. DesEK : 48 0
914. DesK : 768 0
915. DesWds : 64 0
916.
917. DesI : 0
918. DesJ : 0
919. DesJJ : 0xf000
920. DesIter : 0
921. DesSNum : 0
922. OldDesKeyW : -1
923. DesKeyW : 0
924. DesDataW : 0
925. DesKey = DesKeyW
926. DesData = DesDataW
927. K : 0
928. Kc = K
929.
930. kprime : x'0e329232ea6d0d73'
931.
932. dprime : x'8787878787878787'
933.
934. kprime deskey
935. dprime desdata
936. call dodeskey
937. call encryptdes
938. desdata $s
939. unpackhex $s
940. $s []
941. stop
942.
943. Data2Wds
944. 63 DesJJ
945. 7 DesI
946. if DesI GE 0
947. DesData.DesI D
948. DesJ
949. if DesJ LE 7
950. and 1 D D1
951. D1 DesWds.DesJJ
952. shr D 1
953. - DesJJ
954. + DesJ
955. goif
956. endif
957. - DesI
958. goif
959. endif
960. return
961. Wds2Data
962. DesJJ
963. DesI
964. if DesI LE 7
965. DesJ
966. if DesJ LE 7
967. shl D 1
968. if DesWds.DesJJ NE 0
969. + D
970. endif
971. + DesJJ
972. + DesJ
973. goif
974. endif
975. D DesData.DesI
976. + DesI
977. goif
978. endif
979. return
980.
981. Key2Wds
982. 63 DesJJ
983. 7 DesI
984. if DesI GE 0
985. DesKey.DesI K
986. DesJ
987. if DesJ LE 7
988. and K 1 K1
989. K1 DesWds.DesJJ
990. shr K 1
991. - DesJJ
992. + DesJ
993. goif
994. endif
995. - DesI
996. goif
997. endif
998. return
999.
1000. func
1001. DesI
1002. if DesI LE 47
1003. Ebit.DesI rx
1004. DesR.rx DesEK.DesI
1005. + DesI
1006. goif
1007. endif
1008. * 48 DesIter DesJ
1009. DesI
1010. if DesI LE 47
1011. + DesI DesJ IJ
1012. xor DesEK.DesI DesK.IJ DesEK.DesI
1013. + DesI
1014. goif
1015. endif
1016. DesI
1017. DesSNum
1018. if DesSNum LE 7
1019. DesEK.DesI ss
1020. shl ss 1
1021. + DesI
1022. + DesEK.DesI ss
1023. shl ss 1
1024. + DesI
1025. + DesEK.DesI ss
1026. shl ss 1
1027. + DesI
1028. + DesEK.DesI ss
1029. shl ss 1
1030. + DesI
1031. + DesEK.DesI ss
1032. shl ss 1
1033. + DesI
1034. + DesEK.DesI ss
1035. + DesI
1036. DesSNum DesS1x
1037. Shl DesS1x 6
1038. + ss DesS1x
1039. DesS1.DesS1x DesHexx
1040. shl DesHexx 2
1041. DesSNum DesWdsx
1042. shl DesWdsx 2
1043. DesHex.DesHexx DesWds.DesWdsx 4
1044. + DesSNum
1045. goif
1046. endif
1047. DesI
1048. if DesI LE 31
1049. P.DesI DesJ
1050. DesWds.DesJ DesR.DesI
1051. + DesI
1052. goif
1053. endif
1054. return
1055.
1056. DoDesKey
1057. if DesKeyW EQ OldDesKeyW
1058. if DesJJ NE 0xf000
1059. return
1060. endif
1061. endif
1062. DesKeyW OldDesKeyW
1063. call Key2Wds
1064. DesI
1065. if DesI LE 55
1066. Pc1.DesI Pcx
1067. DesWds.Pcx DesC.DesI
1068. + DesI
1069. goif
1070. endif
1071. DesJJ
1072. DesI
1073. if DesI LE 15
1074. DesC.0 DesWd
1075. DesC.1 DesC 27
1076. DesWd DesC.27
1077. DesD.0 DesWd
1078. DesD.1 DesD 27
1079. DesWd DesD.27
1080. if DesShifts.DesI EQ 2
1081. DesC.0 DesWd
1082. DesC.1 DesC 27
1083. DesWd DesC.27
1084. DesD.0 DesWd
1085. DesD.1 DesD 27
1086. DesWd DesD.27
1087. endif
1088. DesJ
1089. if DesJ LE 47
1090. Pc2.DesJ DesCx
1091. DesC.DesCx DesK.DesJJ
1092. + DesJJ
1093. + DesJ
1094. goif
1095. endif
1096. + DesI
1097. goif
1098. endif
1099. return
1100.
1101. EncryptDes
1102. Call Data2Wds
1103. DesI
1104. if DesI LE 63
1105. DesIP.DesI DesWdsx
1106. DesWds.DesWdsx DesL.DesI
1107. + DesI
1108. goif
1109. endif
1110. DesIter
1111. if DesIter LE 15
1112. DesR DesL1 32
1113. call func
1114. DesJ
1115. if DesJ LE 31
1116. xor DesL.DesJ DesR.DesJ
1117. + DesJ
1118. goif
1119. endif
1120. DesL1 DesL 32
1121. + DesIter
1122. goif
1123. endif
1124. DesL DesR1 32
1125. DesR DesL1 32
1126. DesI
1127. if DesI LE 63
1128. DesIPIV.DesI DesL1x
1129. DesL1.DesL1x DesWds.DesI
1130. + DesI
1131. goif
1132. endif
1133.
1134. call Wds2Data
1135. return
1136.
1137. DecryptDes
1138. Call Data2Wds
1139. DesI
1140. if DesI LE 63
1141. DesIP.DesI DesWdsx
1142. DesWds.DesWdsx DesL.DesI
1143. + DesI
1144. goif
1145. endif
1146. 15 DesIter
1147. if DesIter GE 0
1148. DesR DesL1 32
1149. call func
1150. DesJ
1151. if DesJ LE 31
1152. xor DesL.DesJ DesR.DesJ
1153. + DesJ
1154. goif
1155. endif
1156. DesL1 DesL 32
1157. - DesIter
1158. goif
1159. endif
1160. DesL DesR1 32
1161. DesR DesL1 32
1162. DesI
1163. if DesI LE 63
1164. DesIPIV.DesI DesL1x
1165. DesL1.DesL1x DesWds.DesI
1166. + DesI
1167. goif
1168. endif
1169. call Wds2Data
1170. return
1171.
1172.
FIRST INSTRUCTION AT LINE 934
PROGRAM SIZE = 17336 BYTES
VERSION = 4676056717743235575.0
* * *
Isaac Stone, Symsyn
