Lines Matching refs:left
309 set left {}
310 append left "0x" $lefttemp
315 #puts "Left start: $left";
321 set left [expr {$left ^ $cbcleft}]
326 set cbcleft $left;
331 #puts "Left mode: $left";
340 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}];
342 set left [expr {$left ^ ($temp << 4)}];
343 set temp [expr {(($left >> 16) ^ $right) & 0x0000ffff}];
345 set left [expr {$left ^ ($temp << 16)}];
346 set temp [expr {(($right >> 2) ^ $left) & 0x33333333}];
347 set left [expr {$left ^ $temp}]
350 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}];
351 set left [expr {$left ^ $temp}];
353 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}];
355 set left [expr {$left ^ ($temp << 1)}];
357 set left [expr {((($left << 1) & 0xffffffff) | \
358 (($left >> 31) & 0x00000001))}];
362 #puts "Left IP: [format %x $left]";
387 set temp $left;
388 set left $right;
398 # puts "Left iter: [format %x $left]";
402 set temp $left;
403 set left $right;
404 set right $temp; # Unreverse left and right
407 #puts "Left Iterated: [format %x $left]";
411 set left [expr {((($left >> 1) & 0x7fffffff) \
412 | (($left << 31) & 0xffffffff))}];
416 #puts "Left shifted: [format %x $left]";
420 set temp [expr {((($left >> 1) & 0x7fffffff) ^ $right) & 0x55555555}];
422 set left [expr {$left ^ ($temp << 1)}];
423 set temp [expr {((($right >> 8) & 0x00ffffff) ^ $left) & 0x00ff00ff}];
424 set left [expr {$left ^ $temp}];
426 set temp [expr {((($right >> 2) & 0x3fffffff) ^ $left) & 0x33333333}];
427 set left [expr {$left ^ $temp}];
429 set temp [expr {((($left >> 16) & 0x0000ffff) ^ $right) & 0x0000ffff}];
431 set left [expr {$left ^ ($temp << 16)}];
432 set temp [expr {((($left >> 4) & 0x0fffffff) ^ $right) & 0x0f0f0f0f}];
434 set left [expr {$left ^ ($temp << 4)}];
436 #puts "Left IP-1: [format %x $left]";
443 set cbcleft $left;
446 set left [expr {$left ^ $cbcleft2}];
452 [binary format H16 [format %08x%08x $left $right]]
454 #puts "Left final: [format %x $left]";
467 # Save the left and right registers to the feedback vector.
469 [format %08x $left][format %08x $right]]
558 # Only some bits from left output are needed.
575 # Only bits of left output are used.
580 # All bits from left output are needed.
611 set left "0x$leftTemp"
614 #puts "Start: |$left| |$right|"
618 # puts "Left start: $left";
623 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}];
625 set left [expr {$left ^ ($temp << 4)}];
626 set temp [expr {(($left >> 16) ^ $right) & 0x0000ffff}];
628 set left [expr {$left ^ ($temp << 16)}];
629 set temp [expr {(($right >> 2) ^ $left) & 0x33333333}];
630 set left [expr {$left ^ $temp}];
633 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}];
634 set left [expr {$left ^ $temp}];
636 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}];
638 set left [expr {$left ^ ($temp << 1)}];
640 set left [expr {((($left << 1) & 0xffffffff) | \
641 (($left >> 31) & 0x00000001))}];
645 #puts "Left IP: [format %x $left]";
670 set temp $left;
671 set left $right;
681 # puts "Left iter: [format %x $left]";
685 set temp $left;
686 set left $right;
687 set right $temp; # Unreverse left and right
690 #puts "Left Iterated: [format %x $left]";
694 set left [expr {((($left >> 1) & 0x7fffffff) | \
695 (($left << 31) & 0xffffffff))}];
699 #puts "Left shifted: [format %x $left]";
703 set temp [expr {((($left >> 1) & 0x7fffffff) ^ $right) & 0x55555555}];
705 set left [expr {$left ^ ($temp << 1)}];
706 set temp [expr {((($right >> 8) & 0x00ffffff) ^ $left) & 0x00ff00ff}];
707 set left [expr {$left ^ $temp}];
709 set temp [expr {((($right >> 2) & 0x3fffffff) ^ $left) & 0x33333333}];
710 set left [expr {$left ^ $temp}];
712 set temp [expr {((($left >> 16) & 0x0000ffff) ^ $right) & 0x0000ffff}];
714 set left [expr {$left ^ ($temp << 16)}];
715 set temp [expr {((($left >> 4) & 0x0fffffff) ^ $right) & 0x0f0f0f0f}];
717 set left [expr {$left ^ ($temp << 4)}];
719 #puts "Left IP-1: [format %x $left]";
724 # Only some bits from left output are needed.
725 set kData [expr {($left >> $kOutShift) & $kOutMask}]
771 set left [expr {(($left << $kbits) & 0xffffffff) | (($right >> $kOutShift) & $kOutMask)}]
775 set left [expr {(($left << $kbits) & 0xffffffff) | (($right >> $kOutShift) & $kOutMask)}]
780 # Only bits of left output are used.
781 set kData $left
793 set left $right
801 set kDataLeft [expr {($left >> $kOutShiftRight) & $kOutMaskRight}]
802 set temp [expr {($left << $kOutShiftLeft) & 0xffffffff}]
861 set left [expr {$temp | $mixDataLeft}]
866 set left [expr {$temp | $msgDataLeft}]
872 set kDataLeft $left
890 set left $mixDataLeft
893 set left $msgDataLeft
899 #puts "Left final: [format %x $left]";
908 #puts "End: |[format 0x%08x $left]| |[format 0x%08x $right]|"
909 # Save the left and right registers to the feedback vector.
910 set ivec [binary format H* [format %08x $left][format %08x $right]]
936 # Now define the left shifts which need to be done
976 set left {}
977 append left "0x" $lefttemp
982 #puts "Left key: $left"
987 set maskedLeft [expr {$left & 0xfefefefe}]
1004 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}]
1006 set left [expr {$left ^ ($temp << 4)}]
1007 set temp [expr {(($right >> 16) ^ $left) & 0x0000ffff}]
1008 set left [expr {$left ^ $temp}]
1010 set temp [expr {(($left >> 2) ^ $right) & 0x33333333}]
1012 set left [expr {$left ^ ($temp << 2)}]
1013 set temp [expr {(($right >> 16) ^ $left) & 0x0000ffff}]
1014 set left [expr {$left ^ $temp}]
1016 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}]
1018 set left [expr {$left ^ ($temp << 1)}]
1019 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}]
1020 set left [expr {$left ^ $temp}]
1022 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}]
1024 set left [expr {$left ^ ($temp << 1)}]
1026 #puts "Left key PC1: [format %x $left]"
1030 # the last four bits of the left side
1031 set temp [expr {($left << 8) | (($right >> 20) & 0x000000f0)}];
1033 set left [expr {($right << 24) | (($right << 8) & 0x00ff0000) | \
1038 #puts "Left key juggle: [format %x $left]"
1042 # shifts on the left and right keys.
1044 # Shift the keys either one or two bits to the left.
1046 set left [expr {($left << 2) \
1047 | (($left >> 26) & 0x0000003f)}];
1051 set left [expr {($left << 1) \
1052 | (($left >> 27) & 0x0000001f)}];
1056 set left [expr {$left & 0xfffffff0}];
1065 set lefttemp [expr {[lindex $pc2bytes0 [expr {($left >> 28) & 0x0000000f}]] | \
1066 [lindex $pc2bytes1 [expr {($left >> 24) & 0x0000000f}]] | \
1067 [lindex $pc2bytes2 [expr {($left >> 20) & 0x0000000f}]] | \
1068 [lindex $pc2bytes3 [expr {($left >> 16) & 0x0000000f}]] | \
1069 [lindex $pc2bytes4 [expr {($left >> 12) & 0x0000000f}]] | \
1070 [lindex $pc2bytes5 [expr {($left >> 8) & 0x0000000f}]] | \
1071 [lindex $pc2bytes6 [expr {($left >> 4) & 0x0000000f}]]}];