Lines Matching refs:left
295 set left {}
296 append left "0x" $lefttemp
301 #puts "Left start: $left";
307 set left [expr {$left ^ $cbcleft}]
312 set cbcleft $left;
317 #puts "Left mode: $left";
326 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}];
328 set left [expr {$left ^ ($temp << 4)}];
329 set temp [expr {(($left >> 16) ^ $right) & 0x0000ffff}];
331 set left [expr {$left ^ ($temp << 16)}];
332 set temp [expr {(($right >> 2) ^ $left) & 0x33333333}];
333 set left [expr {$left ^ $temp}]
336 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}];
337 set left [expr {$left ^ $temp}];
339 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}];
341 set left [expr {$left ^ ($temp << 1)}];
343 set left [expr {((($left << 1) & 0xffffffff) | \
344 (($left >> 31) & 0x00000001))}];
348 #puts "Left IP: [format %x $left]";
372 set temp $left;
373 set left $right;
383 # puts "Left iter: [format %x $left]";
387 set temp $left;
388 set left $right;
389 set right $temp; # Unreverse left and right.
391 #puts "Left Iterated: [format %x $left]";
395 set left [expr {((($left >> 1) & 0x7fffffff) \
396 | (($left << 31) & 0xffffffff))}];
400 #puts "Left shifted: [format %x $left]";
404 set temp [expr {((($left >> 1) & 0x7fffffff) ^ $right) & 0x55555555}];
406 set left [expr {$left ^ ($temp << 1)}];
407 set temp [expr {((($right >> 8) & 0x00ffffff) ^ $left) & 0x00ff00ff}];
408 set left [expr {$left ^ $temp}];
410 set temp [expr {((($right >> 2) & 0x3fffffff) ^ $left) & 0x33333333}];
411 set left [expr {$left ^ $temp}];
413 set temp [expr {((($left >> 16) & 0x0000ffff) ^ $right) & 0x0000ffff}];
415 set left [expr {$left ^ ($temp << 16)}];
416 set temp [expr {((($left >> 4) & 0x0fffffff) ^ $right) & 0x0f0f0f0f}];
418 set left [expr {$left ^ ($temp << 4)}];
420 #puts "Left IP-1: [format %x $left]";
427 set cbcleft $left;
430 set left [expr {$left ^ $cbcleft2}];
436 [binary format H16 [format %08x%08x $left $right]]
438 #puts "Left final: [format %x $left]";
451 # Save the left and right registers to the feedback vector.
453 [format %08x $left][format %08x $right]]
536 # Only some bits from left output are needed.
553 # Only bits of left output are used.
558 # All bits from left output are needed.
589 set left "0x$leftTemp"
592 #puts "Start: |$left| |$right|"
596 # puts "Left start: $left";
601 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}];
603 set left [expr {$left ^ ($temp << 4)}];
604 set temp [expr {(($left >> 16) ^ $right) & 0x0000ffff}];
606 set left [expr {$left ^ ($temp << 16)}];
607 set temp [expr {(($right >> 2) ^ $left) & 0x33333333}];
608 set left [expr {$left ^ $temp}];
611 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}];
612 set left [expr {$left ^ $temp}];
614 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}];
616 set left [expr {$left ^ ($temp << 1)}];
618 set left [expr {((($left << 1) & 0xffffffff) | \
619 (($left >> 31) & 0x00000001))}];
623 #puts "Left IP: [format %x $left]";
647 set temp $left;
648 set left $right;
658 # puts "Left iter: [format %x $left]";
661 set temp $left;
662 set left $right;
663 set right $temp; # Unreverse left and right
665 #puts "Left Iterated: [format %x $left]";
669 set left [expr {((($left >> 1) & 0x7fffffff) | \
670 (($left << 31) & 0xffffffff))}];
674 #puts "Left shifted: [format %x $left]";
678 set temp [expr {((($left >> 1) & 0x7fffffff) ^ $right) & 0x55555555}];
680 set left [expr {$left ^ ($temp << 1)}];
681 set temp [expr {((($right >> 8) & 0x00ffffff) ^ $left) & 0x00ff00ff}];
682 set left [expr {$left ^ $temp}];
684 set temp [expr {((($right >> 2) & 0x3fffffff) ^ $left) & 0x33333333}];
685 set left [expr {$left ^ $temp}];
687 set temp [expr {((($left >> 16) & 0x0000ffff) ^ $right) & 0x0000ffff}];
689 set left [expr {$left ^ ($temp << 16)}];
690 set temp [expr {((($left >> 4) & 0x0fffffff) ^ $right) & 0x0f0f0f0f}];
692 set left [expr {$left ^ ($temp << 4)}];
694 #puts "Left IP-1: [format %x $left]";
699 # Only some bits from left output are needed.
700 set kData [expr {($left >> $kOutShift) & $kOutMask}]
746 set left [expr {(($left << $kbits) & 0xffffffff) | (($right >> $kOutShift) & $kOutMask)}]
750 set left [expr {(($left << $kbits) & 0xffffffff) | (($right >> $kOutShift) & $kOutMask)}]
755 # Only bits of left output are used.
756 set kData $left
768 set left $right
776 set kDataLeft [expr {($left >> $kOutShiftRight) & $kOutMaskRight}]
777 set temp [expr {($left << $kOutShiftLeft) & 0xffffffff}]
836 set left [expr {$temp | $mixDataLeft}]
841 set left [expr {$temp | $msgDataLeft}]
847 set kDataLeft $left
865 set left $mixDataLeft
868 set left $msgDataLeft
874 #puts "Left final: [format %08x $left]";
883 #puts "End: |[format 0x%08x $left]| |[format 0x%08x $right]|"
884 # Save the left and right registers to the feedback vector.
885 set ivec [binary format H* [format %08x $left][format %08x $right]]
911 # Now define the left shifts which need to be done
945 set left {}
946 append left "0x" $lefttemp
950 #puts "Left key: $left"
955 set maskedLeft [expr {$left & 0xfefefefe}]
972 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}]
974 set left [expr {$left ^ ($temp << 4)}]
975 set temp [expr {(($right >> 16) ^ $left) & 0x0000ffff}]
976 set left [expr {$left ^ $temp}]
978 set temp [expr {(($left >> 2) ^ $right) & 0x33333333}]
980 set left [expr {$left ^ ($temp << 2)}]
981 set temp [expr {(($right >> 16) ^ $left) & 0x0000ffff}]
982 set left [expr {$left ^ $temp}]
984 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}]
986 set left [expr {$left ^ ($temp << 1)}]
987 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}]
988 set left [expr {$left ^ $temp}]
990 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}]
992 set left [expr {$left ^ ($temp << 1)}]
994 # puts "Left key PC1: [format %x $left]"
998 # the last four bits of the left side
999 set temp [expr {($left << 8) | (($right >> 20) & 0x000000f0)}];
1001 set left [expr {($right << 24) | (($right << 8) & 0x00ff0000) | \
1006 #puts "Left key juggle: [format %x $left]"
1010 # shifts on the left and right keys.
1012 # Shift the keys either one or two bits to the left.
1014 set left [expr {($left << 2) \
1015 | (($left >> 26) & 0x0000003f)}];
1019 set left [expr {($left << 1) \
1020 | (($left >> 27) & 0x0000001f)}];
1024 set left [expr {$left & 0xfffffff0}];
1032 set lefttemp [expr {[lindex $pc2bytes0 [expr {($left >> 28) & 0x0000000f}]] | \
1033 [lindex $pc2bytes1 [expr {($left >> 24) & 0x0000000f}]] | \
1034 [lindex $pc2bytes2 [expr {($left >> 20) & 0x0000000f}]] | \
1035 [lindex $pc2bytes3 [expr {($left >> 16) & 0x0000000f}]] | \
1036 [lindex $pc2bytes4 [expr {($left >> 12) & 0x0000000f}]] | \
1037 [lindex $pc2bytes5 [expr {($left >> 8) & 0x0000000f}]] | \
1038 [lindex $pc2bytes6 [expr {($left >> 4) & 0x0000000f}]]}];