Lines Matching refs:right
297 set right {}
298 append right "0x" $righttemp
302 #puts "Right start: $right";
308 set right [expr {$right ^ $cbcright}]
313 set cbcright $right;
318 #puts "Right mode: $right";
326 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}];
327 set right [expr {$right ^ $temp}];
329 set temp [expr {(($left >> 16) ^ $right) & 0x0000ffff}];
330 set right [expr {$right ^ $temp}];
332 set temp [expr {(($right >> 2) ^ $left) & 0x33333333}];
334 set right [expr {$right ^ ($temp << 2)}];
336 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}];
338 set right [expr {$right ^ ($temp << 8)}];
339 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}];
340 set right [expr {$right ^ $temp}];
345 set right [expr {((($right << 1) & 0xffffffff) | \
346 (($right >> 31) & 0x00000001))}];
349 #puts "Right IP: [format %x $right]";
362 set right1 [expr {$right ^ [lindex $keys $i]}];
363 set right2 [expr {((($right >> 4) & 0x0fffffff) | \
364 (($right << 28) & 0xffffffff)) ^ \
373 set left $right;
374 set right [expr {$temp ^ ([lindex $spfunction2 [expr {($right1 >> 24) & 0x3f}]] | \
384 # puts "Right iter: [format %x $right]";
388 set left $right;
389 set right $temp; # Unreverse left and right.
392 #puts "Right Iterated: [format %x $right]";
394 # Move then each one bit to the right
397 set right [expr {((($right >> 1) & 0x7fffffff) \
398 | (($right << 31) & 0xffffffff))}];
401 #puts "Right shifted: [format %x $right]";
404 set temp [expr {((($left >> 1) & 0x7fffffff) ^ $right) & 0x55555555}];
405 set right [expr {$right ^ $temp}];
407 set temp [expr {((($right >> 8) & 0x00ffffff) ^ $left) & 0x00ff00ff}];
409 set right [expr {$right ^ ($temp << 8)}];
410 set temp [expr {((($right >> 2) & 0x3fffffff) ^ $left) & 0x33333333}];
412 set right [expr {$right ^ ($temp << 2)}];
413 set temp [expr {((($left >> 16) & 0x0000ffff) ^ $right) & 0x0000ffff}];
414 set right [expr {$right ^ $temp}];
416 set temp [expr {((($left >> 4) & 0x0fffffff) ^ $right) & 0x0f0f0f0f}];
417 set right [expr {$right ^ $temp}];
421 #puts "Right IP-1: [format %x $right]";
428 set cbcright $right;
431 set right [expr {$right ^ $cbcright2}];
436 [binary format H16 [format %08x%08x $left $right]]
439 #puts "Right final: [format %x $right]";
451 # Save the left and right registers to the feedback vector.
453 [format %08x $left][format %08x $right]]
560 # Some bits from right output are needed.
590 set right "0x$rightTemp"
592 #puts "Start: |$left| |$right|"
597 # puts "Right start: $right";
601 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}];
602 set right [expr {$right ^ $temp}];
604 set temp [expr {(($left >> 16) ^ $right) & 0x0000ffff}];
605 set right [expr {$right ^ $temp}];
607 set temp [expr {(($right >> 2) ^ $left) & 0x33333333}];
609 set right [expr {$right ^ ($temp << 2)}];
611 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}];
613 set right [expr {$right ^ ($temp << 8)}];
614 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}];
615 set right [expr {$right ^ $temp}];
620 set right [expr {((($right << 1) & 0xffffffff) | \
621 (($right >> 31) & 0x00000001))}];
624 #puts "Right IP: [format %x $right]";
637 set right1 [expr {$right ^ [lindex $keys $i]}];
638 set right2 [expr {((($right >> 4) & 0x0fffffff) | \
639 (($right << 28) & 0xffffffff)) ^ \
648 set left $right;
649 set right [expr {$temp ^ ([lindex $spfunction2 [expr {($right1 >> 24) & 0x3f}]] | \
659 # puts "Right iter: [format %x $right]";
662 set left $right;
663 set right $temp; # Unreverse left and right
666 #puts "Right Iterated: [format %x $right]";
668 # Move then each one bit to the right
671 set right [expr {((($right >> 1) & 0x7fffffff) | \
672 (($right << 31) & 0xffffffff))}];
675 #puts "Right shifted: [format %x $right]";
678 set temp [expr {((($left >> 1) & 0x7fffffff) ^ $right) & 0x55555555}];
679 set right [expr {$right ^ $temp}];
681 set temp [expr {((($right >> 8) & 0x00ffffff) ^ $left) & 0x00ff00ff}];
683 set right [expr {$right ^ ($temp << 8)}];
684 set temp [expr {((($right >> 2) & 0x3fffffff) ^ $left) & 0x33333333}];
686 set right [expr {$right ^ ($temp << 2)}];
687 set temp [expr {((($left >> 16) & 0x0000ffff) ^ $right) & 0x0000ffff}];
688 set right [expr {$right ^ $temp}];
690 set temp [expr {((($left >> 4) & 0x0fffffff) ^ $right) & 0x0f0f0f0f}];
691 set right [expr {$right ^ $temp}];
695 #puts "Right IP-1: [format %x $right]";
745 set temp [expr {($right << $kbits) & 0xffffffff}]
746 set left [expr {(($left << $kbits) & 0xffffffff) | (($right >> $kOutShift) & $kOutMask)}]
747 set right [expr {$temp | $mixData}]
749 set temp [expr {($right << $kbits) & 0xffffffff}]
750 set left [expr {(($left << $kbits) & 0xffffffff) | (($right >> $kOutShift) & $kOutMask)}]
751 set right [expr {$temp | $msgData}]
768 set left $right
770 set right $mixData
772 set right $msgData
778 set kDataRight [expr {(($right >> $kOutShiftRight) & $kOutMaskRight) | $temp}]
835 [expr {($right << $kOutShiftRight) & 0xffffffff}]
837 set right $mixDataRight
840 [expr {($right << $kOutShiftRight) & 0xffffffff}]
842 set right $msgDataRight
848 set kDataRight $right
866 set right $mixDataRight
869 set right $msgDataRight
875 #puts "Right final: [format %08x $right]"
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]]
947 set right {}
948 append right "0x" $righttemp
951 #puts "Right key: $right"
956 set maskedRight [expr {$right & 0xfefefefe}]
972 set temp [expr {(($left >> 4) ^ $right) & 0x0f0f0f0f}]
973 set right [expr {$right ^ $temp}]
975 set temp [expr {(($right >> 16) ^ $left) & 0x0000ffff}]
977 set right [expr {$right ^ ($temp << 16)}]
978 set temp [expr {(($left >> 2) ^ $right) & 0x33333333}]
979 set right [expr {$right ^ $temp}]
981 set temp [expr {(($right >> 16) ^ $left) & 0x0000ffff}]
983 set right [expr {$right ^ ($temp << 16)}]
984 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}]
985 set right [expr {$right ^ $temp}]
987 set temp [expr {(($right >> 8) ^ $left) & 0x00ff00ff}]
989 set right [expr {$right ^ ($temp << 8)}]
990 set temp [expr {(($left >> 1) ^ $right) & 0x55555555}]
991 set right [expr $right ^ $temp]
995 # puts "Right key PC1: [format %x $right]"
997 # The right side needs to be shifted and to get
999 set temp [expr {($left << 8) | (($right >> 20) & 0x000000f0)}];
1001 set left [expr {($right << 24) | (($right << 8) & 0x00ff0000) | \
1002 (($right >> 8) & 0x0000ff00) \
1003 | (($right >> 24) & 0x000000f0)}];
1004 set right $temp;
1007 #puts "Right key juggle: [format %x $right]"
1010 # shifts on the left and right keys.
1016 set right [expr {($right << 2) \
1017 | (($right >> 26) & 0x0000003f)}];
1021 set right [expr {($right << 1) \
1022 | (($right >> 27) & 0x0000001f)}];
1025 set right [expr {$right & 0xfffffff0}];
1039 set righttemp [expr {[lindex $pc2bytes7 [expr {($right >> 28) & 0x0000000f}]] | \
1040 [lindex $pc2bytes8 [expr {($right >> 24) & 0x0000000f}]] | \
1041 [lindex $pc2bytes9 [expr {($right >> 20) & 0x0000000f}]] | \
1042 [lindex $pc2bytes10 [expr {($right >> 16) & 0x0000000f}]] | \
1043 [lindex $pc2bytes11 [expr {($right >> 12) & 0x0000000f}]] | \
1044 [lindex $pc2bytes12 [expr {($right >> 8) & 0x0000000f}]] | \
1045 [lindex $pc2bytes13 [expr {($right >> 4) & 0x0000000f}]]}];