perlsecret - Perl secret operators and constants

MMMIX

Perl secret operators:

Operator	Nickname	Function
0+	Venus	numification
@{[ ]}	Babycart	list interpolation
!!	Bang bang	boolean conversion
}{	Eskimo greeting	END block for one-liners
~~	Inchworm	scalar
~-	Inchworm on a stick	high-precedence decrement
-~	Inchworm on a stick	high-precedence increment
-+-	Space station	high-precedence numification
=( )=	Goatse	scalar / list context
=< >=~	Flaming X-Wing	match input, assign captures
~~<>	Kite	a single line of input
<<m=~m>> m ;	Ornate double-bladed sword	multiline comment
-=!   -=!!	Flathead	conditional decrement
+=!   +=!!	Phillips	conditional increment
x=!   x=!!	Pozidriv	conditional reset to ''
*=!   *=!!	Torx	conditional reset to 0
,=>	Winking fat comma	non-stringifying fat comma
()x!!	Enterprise	boolean list squash
0+!!	Key to the truth	numeric boolean conversion
~~!!	Serpent of truth	numeric boolean conversion
||()	Abbott and Costello	remove false scalar from list
//()	Leaning Abbott and Costello	remove undef from list

Perl secret constants:

Constant	Nickname	Value
<=><=><=>	Space fleet	0
<~>	Amphisbaena	$ENV{HOME}

http://search.cpan.org/dist/perlsecret/lib/perlsecret.pod

zhlong8

这文档有毒 =>

MMMIX

回复 2# zhlong8


    挺涨见识吧？

不过作者也说了，这些东西自己娱乐没问题，但是正式代码要用的话还是要谨慎。

shijiang1130

回复 3# MMMIX
让我想起了昨晚看的

1. #!/usr/local/bin/perl
   
2. #
   
3. # This is a partial implentation of the MD4 checksum code.
   
4. #
   
5. # NOTE
   
6. #
   
7. # The function &add() in this module is required as we need to be
   
8. # able to add 32bit integers ignoring overflow.  The C code this is
   
9. # based on does this because it uses the underlying hardware to
   
10. # perform the required addition however we need to be more careful
    
11. # as Perl will overflow an int and produce a result of 0xffffffff
    
12. # which is not very useful.  The &add() function splits its arguments
    
13. # into two shorts and adds these carrying overflow from the low short
    
14. # to the high short and ignoring carry from the high short.  Not
    
15. # exactly efficient, but it works and is fast enough for the purposes
    
16. # of this implementation
    
17. #
    
18. 
    
19. package Authen::NTLM::MD4;
    
20. 
    
21. use vars qw($VERSION @ISA @EXPORT);
    
22. require Exporter;
    
23. 
    
24. $VERSION = "1.02";
    
25. @ISA = qw(Exporter);
    
26. @EXPORT = qw(mdfour);
    
27. 
    
28. my ($A, $B, $C, $D);
    
29. my (@X, $M);
    
30. 
    
31. sub mdfour
    
32. {
    
33.   my ($in) = @_;
    
34. 
    
35.   my ($i, $pos);
    
36.   my $len = length($in);
    
37.   my $b = $len * 8;
    
38.   $in .= "\0"x128;
    
39.   $A = 0x67452301;
    
40.   $B = 0xefcdab89;
    
41.   $C = 0x98badcfe;
    
42.   $D = 0x10325476;
    
43.   $pos = 0;
    
44.   while ($len > 64)
    
45.   {
    
46.     &copy64(substr($in, $pos, 64));
    
47.     &mdfour64;
    
48.     $pos += 64;
    
49.     $len -= 64;
    
50.   }
    
51.   my $buf = substr($in, $pos, $len);
    
52.   $buf .= sprintf "%c", 0x80;
    
53.   if ($len <= 55)
    
54.   {
    
55.     $buf .= "\0"x(55-$len);
    
56.     $buf .= pack("V", $b);
    
57.     $buf .= "\0"x4;
    
58.     &copy64($buf);
    
59.     &mdfour64;
    
60.   }
    
61.   else
    
62.   {
    
63.     $buf .= "\0"x(120-$len);
    
64.     $buf .= pack("V", $b);
    
65.     $buf .= "\0"x4;
    
66.     &copy64(substr($buf, 0, 64));
    
67.     &mdfour64;
    
68.     &copy64(substr($buf, 64, 64));
    
69.     &mdfour64;
    
70.   }
    
71.   my $out = pack("VVVV", $A, $B, $C, $D);
    
72.   return $out;
    
73. }
    
74. 
    
75. sub F
    
76. {
    
77.   my ($X, $Y, $Z) = @_;
    
78.   my $res = ($X&$Y) | ((~$X)&$Z);
    
79.   return $res;
    
80. }
    
81. 
    
82. sub G
    
83. {
    
84.   my ($X, $Y, $Z) = @_;
    
85. 
    
86.   return ($X&$Y) | ($X&$Z) | ($Y&$Z);
    
87. }
    
88. 
    
89. sub H
    
90. {
    
91.   my ($X, $Y, $Z) = @_;
    
92. 
    
93.   return $X^$Y^$Z;
    
94. }
    
95. 
    
96. sub lshift
    
97. {
    
98.   my ($x, $s) = @_;
    
99. 
    
100.   $x &= 0xffffffff;
     
101.   return (($x<<$s)&0xffffffff) | ($x>>(32-$s));
     
102. }
     
103. 
     
104. sub ROUND1
     
105. {
     
106.   my ($a, $b, $c, $d, $k, $s) = @_;
     
107.   my $e = &add($a, &F($b, $c, $d), $X[$k]);
     
108.   return &lshift($e, $s);
     
109. }
     
110. 
     
111. sub ROUND2
     
112. {
     
113.   my ($a, $b, $c, $d, $k, $s) = @_;
     
114. 
     
115.   my $e = &add($a, &G($b, $c, $d), $X[$k], 0x5a827999);
     
116.   return &lshift($e, $s);
     
117. }
     
118. 
     
119. sub ROUND3
     
120. {
     
121.   my ($a, $b, $c, $d, $k, $s) = @_;
     
122. 
     
123.   my $e = &add($a, &H($b, $c, $d), $X[$k], 0x6ed9eba1);
     
124.   return &lshift($e, $s);
     
125. }
     
126. 
     
127. sub mdfour64
     
128. {
     
129.   my ($i, $AA, $BB, $CC, $DD);
     
130.   @X = unpack("N16", $M);
     
131.   $AA = $A;
     
132.   $BB = $B;
     
133.   $CC = $C;
     
134.   $DD = $D;
     
135. 
     
136.   $A = &ROUND1($A,$B,$C,$D, 0, 3); $D = &ROUND1($D,$A,$B,$C, 1, 7);
     
137.   $C = &ROUND1($C,$D,$A,$B, 2,11); $B = &ROUND1($B,$C,$D,$A, 3,19);
     
138.   $A = &ROUND1($A,$B,$C,$D, 4, 3); $D = &ROUND1($D,$A,$B,$C, 5, 7);
     
139.   $C = &ROUND1($C,$D,$A,$B, 6,11); $B = &ROUND1($B,$C,$D,$A, 7,19);
     
140.   $A = &ROUND1($A,$B,$C,$D, 8, 3); $D = &ROUND1($D,$A,$B,$C, 9, 7);
     
141.   $C = &ROUND1($C,$D,$A,$B,10,11); $B = &ROUND1($B,$C,$D,$A,11,19);
     
142.   $A = &ROUND1($A,$B,$C,$D,12, 3); $D = &ROUND1($D,$A,$B,$C,13, 7);
     
143.   $C = &ROUND1($C,$D,$A,$B,14,11); $B = &ROUND1($B,$C,$D,$A,15,19);
     
144. 
     
145.   $A = &ROUND2($A,$B,$C,$D, 0, 3); $D = &ROUND2($D,$A,$B,$C, 4, 5);
     
146.   $C = &ROUND2($C,$D,$A,$B, 8, 9); $B = &ROUND2($B,$C,$D,$A,12,13);
     
147.   $A = &ROUND2($A,$B,$C,$D, 1, 3); $D = &ROUND2($D,$A,$B,$C, 5, 5);
     
148.   $C = &ROUND2($C,$D,$A,$B, 9, 9); $B = &ROUND2($B,$C,$D,$A,13,13);
     
149.   $A = &ROUND2($A,$B,$C,$D, 2, 3); $D = &ROUND2($D,$A,$B,$C, 6, 5);
     
150.   $C = &ROUND2($C,$D,$A,$B,10, 9); $B = &ROUND2($B,$C,$D,$A,14,13);
     
151.   $A = &ROUND2($A,$B,$C,$D, 3, 3); $D = &ROUND2($D,$A,$B,$C, 7, 5);
     
152.   $C = &ROUND2($C,$D,$A,$B,11, 9); $B = &ROUND2($B,$C,$D,$A,15,13);
     
153. 
     
154.   $A = &ROUND3($A,$B,$C,$D, 0, 3); $D = &ROUND3($D,$A,$B,$C, 8, 9);
     
155.   $C = &ROUND3($C,$D,$A,$B, 4,11); $B = &ROUND3($B,$C,$D,$A,12,15);
     
156.   $A = &ROUND3($A,$B,$C,$D, 2, 3); $D = &ROUND3($D,$A,$B,$C,10, 9);
     
157.   $C = &ROUND3($C,$D,$A,$B, 6,11); $B = &ROUND3($B,$C,$D,$A,14,15);
     
158.   $A = &ROUND3($A,$B,$C,$D, 1, 3); $D = &ROUND3($D,$A,$B,$C, 9, 9);
     
159.   $C = &ROUND3($C,$D,$A,$B, 5,11); $B = &ROUND3($B,$C,$D,$A,13,15);
     
160.   $A = &ROUND3($A,$B,$C,$D, 3, 3); $D = &ROUND3($D,$A,$B,$C,11, 9);
     
161.   $C = &ROUND3($C,$D,$A,$B, 7,11); $B = &ROUND3($B,$C,$D,$A,15,15);
     
162. 
     
163.   $A = &add($A, $AA); $B = &add($B, $BB);
     
164.   $C = &add($C, $CC); $D = &add($D, $DD);
     
165.   $A &= 0xffffffff; $B &= 0xffffffff;
     
166.   $C &= 0xffffffff; $D &= 0xffffffff;
     
167.   map {$_ = 0} @X;
     
168. }
     
169. 
     
170. sub copy64
     
171. {
     
172.   my ($in) = @_;
     
173. 
     
174.   $M = pack("V16", unpack("N16", $in));
     
175. }
     
176. 
     
177. # see note at top of this file about this function
     
178. sub add
     
179. {
     
180.   my (@nums) = @_;
     
181.   my ($r_low, $r_high, $n_low, $l_high);
     
182.   my $num;
     
183.   $r_low = $r_high = 0;
     
184.   foreach $num (@nums)
     
185.   {
     
186.     $n_low = $num & 0xffff;
     
187.     $n_high = ($num&0xffff0000)>>16;
     
188.     $r_low += $n_low;
     
189.     ($r_low&0xf0000) && $r_high++;
     
190.     $r_low &= 0xffff;
     
191.     $r_high += $n_high;
     
192.     $r_high &= 0xffff;
     
193.   }
     
194.   return ($r_high<<16)|$r_low;
     
195. }
     
196. 
     
197. 1;
     

复制代码

MMMIX

回复 4# shijiang1130


    那再看看这个：https://metacpan.org/source/Digest::Perl::MD4

ttcn_cu

除了venus 和goatse以外似乎很少用到

Okelani

涨 见 识 了 .