Lines Matching refs:right
311 set right {}
312 append right "0x" $righttemp
316 #puts "Right start: $right";
322 set right [expr {$right ^ $cbcright}]
327 set cbcright $right;
332 #puts "Right mode: $right";
340 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}];
341 set right [expr {$right ^ $temp}];
343 set temp [expr {(($left >> 16) ^ $right) & 0x0000ffff}];
344 set right [expr {$right ^ $temp}];
346 set temp [expr {(($right >> 2) ^ $left) & 0x33333333}];
348 set right [expr {$right ^ ($temp << 2)}];
350 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}];
352 set right [expr {$right ^ ($temp << 8)}];
353 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}];
354 set right [expr {$right ^ $temp}];
359 set right [expr {((($right << 1) & 0xffffffff) | \
360 (($right >> 31) & 0x00000001))}];
363 #puts "Right IP: [format %x $right]";
377 set right1 [expr {$right ^ [lindex $keys $i]}];
378 set right2 [expr {((($right >> 4) & 0x0fffffff) | \
379 (($right << 28) & 0xffffffff)) ^ \
388 set left $right;
389 set right [expr {$temp ^ ([lindex $spfunction2 [expr {($right1 >> 24) & 0x3f}]] | \
399 # puts "Right iter: [format %x $right]";
403 set left $right;
404 set right $temp; # Unreverse left and right
408 #puts "Right Iterated: [format %x $right]";
410 # Move then each one bit to the right
413 set right [expr {((($right >> 1) & 0x7fffffff) \
414 | (($right << 31) & 0xffffffff))}];
417 #puts "Right shifted: [format %x $right]";
420 set temp [expr {((($left >> 1) & 0x7fffffff) ^ $right) & 0x55555555}];
421 set right [expr {$right ^ $temp}];
423 set temp [expr {((($right >> 8) & 0x00ffffff) ^ $left) & 0x00ff00ff}];
425 set right [expr {$right ^ ($temp << 8)}];
426 set temp [expr {((($right >> 2) & 0x3fffffff) ^ $left) & 0x33333333}];
428 set right [expr {$right ^ ($temp << 2)}];
429 set temp [expr {((($left >> 16) & 0x0000ffff) ^ $right) & 0x0000ffff}];
430 set right [expr {$right ^ $temp}];
432 set temp [expr {((($left >> 4) & 0x0fffffff) ^ $right) & 0x0f0f0f0f}];
433 set right [expr {$right ^ $temp}];
437 #puts "Right IP-1: [format %x $right]";
444 set cbcright $right;
447 set right [expr {$right ^ $cbcright2}];
452 [binary format H16 [format %08x%08x $left $right]]
455 #puts "Right final: [format %x $right]";
467 # Save the left and right registers to the feedback vector.
469 [format %08x $left][format %08x $right]]
582 # Some bits from right output are needed.
612 set right "0x$rightTemp"
614 #puts "Start: |$left| |$right|"
619 # puts "Right start: $right";
623 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}];
624 set right [expr {$right ^ $temp}];
626 set temp [expr {(($left >> 16) ^ $right) & 0x0000ffff}];
627 set right [expr {$right ^ $temp}];
629 set temp [expr {(($right >> 2) ^ $left) & 0x33333333}];
631 set right [expr {$right ^ ($temp << 2)}];
633 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}];
635 set right [expr {$right ^ ($temp << 8)}];
636 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}];
637 set right [expr {$right ^ $temp}];
642 set right [expr {((($right << 1) & 0xffffffff) | \
643 (($right >> 31) & 0x00000001))}];
646 #puts "Right IP: [format %x $right]";
660 set right1 [expr {$right ^ [lindex $keys $i]}];
661 set right2 [expr {((($right >> 4) & 0x0fffffff) | \
662 (($right << 28) & 0xffffffff)) ^ \
671 set left $right;
672 set right [expr {$temp ^ ([lindex $spfunction2 [expr {($right1 >> 24) & 0x3f}]] | \
682 # puts "Right iter: [format %x $right]";
686 set left $right;
687 set right $temp; # Unreverse left and right
691 #puts "Right Iterated: [format %x $right]";
693 # Move then each one bit to the right
696 set right [expr {((($right >> 1) & 0x7fffffff) | \
697 (($right << 31) & 0xffffffff))}];
700 #puts "Right shifted: [format %x $right]";
703 set temp [expr {((($left >> 1) & 0x7fffffff) ^ $right) & 0x55555555}];
704 set right [expr {$right ^ $temp}];
706 set temp [expr {((($right >> 8) & 0x00ffffff) ^ $left) & 0x00ff00ff}];
708 set right [expr {$right ^ ($temp << 8)}];
709 set temp [expr {((($right >> 2) & 0x3fffffff) ^ $left) & 0x33333333}];
711 set right [expr {$right ^ ($temp << 2)}];
712 set temp [expr {((($left >> 16) & 0x0000ffff) ^ $right) & 0x0000ffff}];
713 set right [expr {$right ^ $temp}];
715 set temp [expr {((($left >> 4) & 0x0fffffff) ^ $right) & 0x0f0f0f0f}];
716 set right [expr {$right ^ $temp}];
720 #puts "Right IP-1: [format %x $right]";
770 set temp [expr {($right << $kbits) & 0xffffffff}]
771 set left [expr {(($left << $kbits) & 0xffffffff) | (($right >> $kOutShift) & $kOutMask)}]
772 set right [expr {$temp | $mixData}]
774 set temp [expr {($right << $kbits) & 0xffffffff}]
775 set left [expr {(($left << $kbits) & 0xffffffff) | (($right >> $kOutShift) & $kOutMask)}]
776 set right [expr {$temp | $msgData}]
793 set left $right
795 set right $mixData
797 set right $msgData
803 set kDataRight [expr {(($right >> $kOutShiftRight) & $kOutMaskRight) | $temp}]
860 [expr {($right << $kOutShiftRight) & 0xffffffff}]
862 set right $mixDataRight
865 [expr {($right << $kOutShiftRight) & 0xffffffff}]
867 set right $msgDataRight
873 set kDataRight $right
891 set right $mixDataRight
894 set right $msgDataRight
900 #puts "Right final: [format %x $right]";
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]]
978 set right {}
979 append right "0x" $righttemp
983 #puts "Right key: $right"
988 set maskedRight [expr {$right & 0xfefefefe}]
1004 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}]
1005 set right [expr {$right ^ $temp}]
1007 set temp [expr {(($right >> 16) ^ $left) & 0x0000ffff}]
1009 set right [expr {$right ^ ($temp << 16)}]
1010 set temp [expr {(($left >> 2) ^ $right) & 0x33333333}]
1011 set right [expr {$right ^ $temp}]
1013 set temp [expr {(($right >> 16) ^ $left) & 0x0000ffff}]
1015 set right [expr {$right ^ ($temp << 16)}]
1016 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}]
1017 set right [expr {$right ^ $temp}]
1019 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}]
1021 set right [expr {$right ^ ($temp << 8)}]
1022 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}]
1023 set right [expr {$right ^ $temp}]
1027 #puts "Right key PC1: [format %x $right]"
1029 # The right side needs to be shifted and to get
1031 set temp [expr {($left << 8) | (($right >> 20) & 0x000000f0)}];
1033 set left [expr {($right << 24) | (($right << 8) & 0x00ff0000) | \
1034 (($right >> 8) & 0x0000ff00) \
1035 | (($right >> 24) & 0x000000f0)}];
1036 set right $temp;
1039 #puts "Right key juggle: [format %x $right]"
1042 # shifts on the left and right keys.
1048 set right [expr {($right << 2) \
1049 | (($right >> 26) & 0x0000003f)}];
1053 set right [expr {($right << 1) \
1054 | (($right >> 27) & 0x0000001f)}];
1057 set right [expr {$right & 0xfffffff0}];
1072 set righttemp [expr {[lindex $pc2bytes7 [expr {($right >> 28) & 0x0000000f}]] | \
1073 [lindex $pc2bytes8 [expr {($right >> 24) & 0x0000000f}]] | \
1074 [lindex $pc2bytes9 [expr {($right >> 20) & 0x0000000f}]] | \
1075 [lindex $pc2bytes10 [expr {($right >> 16) & 0x0000000f}]] | \
1076 [lindex $pc2bytes11 [expr {($right >> 12) & 0x0000000f}]] | \
1077 [lindex $pc2bytes12 [expr {($right >> 8) & 0x0000000f}]] | \
1078 [lindex $pc2bytes13 [expr {($right >> 4) & 0x0000000f}]]}];