📄 doip
字号:
#!/usr/local/bin/perl@l=( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15, 16,17,18,19,20,21,22,23, 24,25,26,27,28,29,30,31 );@r=( 32,33,34,35,36,37,38,39, 40,41,42,43,44,45,46,47, 48,49,50,51,52,53,54,55, 56,57,58,59,60,61,62,63 );require 'shifts.pl';sub PERM_OP { local(*a,*b,*t,$n,$m)=@_; @z=&shift(*a,-$n); @z=&xor(*b,*z); @z=&and(*z,$m); @b=&xor(*b,*z); @z=&shift(*z,$n); @a=&xor(*a,*z); }@L=@l;@R=@r;&PERM_OP(*R,*L,*T,4,0x0f0f0f0f);&PERM_OP(*L,*R,*T,16,0x0000ffff);&PERM_OP(*R,*L,*T,2,0x33333333);&PERM_OP(*L,*R,*T,8,0x00ff00ff);&PERM_OP(*R,*L,*T,1,0x55555555); &printit(@L); &printit(@R);&PERM_OP(*R,*L,*T,1,0x55555555);&PERM_OP(*L,*R,*T,8,0x00ff00ff);&PERM_OP(*R,*L,*T,2,0x33333333);&PERM_OP(*L,*R,*T,16,0x0000ffff);&PERM_OP(*R,*L,*T,4,0x0f0f0f0f); &printit(@L); &printit(@R);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -