webinterface.git

1) <?php
2) 

3) require_once('inc/error.php');
4) 

5) 

6) function strong_password($password)
7) {

8)   if ($password == '' || strlen($password) < 4) {
9)     DEBUG("Passwort zu kurz!");
10)     return "Passwort ist zu kurz!";
11)   }
12) 

13)   if (! function_exists("crack_opendict"))
14)   {
15)     DEBUG("cracklib not available!");
16)     return true;
17)   }

18)   if (config('use_cracklib') === NULL or config('use_cracklib') === false) {

19)     DEBUG('Cracklib deaktiviert');
20)     return true;
21)   }

22)   DEBUG("Öffne Wörterbuch: ".config('cracklib_dict'));

23)   if (! ($dict = crack_opendict(config('cracklib_dict'))))

24)   {

25)     logger(LOG_ERR, "inc/security", "cracklib", "could not open cracklib-dictionary »".config('cracklib_dict')."«");

26)     system_failure("Kann Crack-Lib-Wörterbuch nicht öffnen: ".config('cracklib_dict'));

27)   }
28)   // Führe eine Überprüfung des Passworts durch
29)   $check = crack_check($dict, $password);
30) 
31)   $message = crack_getlastmessage();
32)   crack_closedict($dict);
33) 
34)   if ($check === True)
35)   {
36)     DEBUG("Passwort ok");
37)     return true;
38)   }
39)   else
40)   {
41)     DEBUG("Passwort nicht ok: {$message}");
42)     return $message;
43)   }
44) }
45) 
46) 

47) function filter_input_general( $input )
48) {

49)   return htmlspecialchars(iconv('UTF-8', 'UTF-8', $input), ENT_QUOTES, 'UTF-8');
50) }
51) 
52) 
53) function verify_input_general( $input )
54) {

55)   if (filter_input_general($input) != $input) {

56)     system_failure("Ihre Daten enthielten ungültige Zeichen!");

57)     logger(LOG_WARNING, 'inc/security', 'verify_input_general', 'Ungültige Daten: '.$input);

58)   }

59) }
60) 
61) 
62) function filter_input_username( $input )
63) {

64)   return preg_replace("/[^[:alnum:]\_\.\+\-]/", "", $input );

65) }
66) 
67) function verify_input_username( $input )
68) {

69)   if (filter_input_username( $input ) != $input) {

70)     logger(LOG_WARNING, 'inc/security', 'verify_input_username', 'Ungültige Daten: '.$input);

71)     system_failure("Ihre Daten enthielten ungültige Zeichen!");

72)   }

73) }
74) 

75) 
76) 

77) function filter_input_hostname( $input, $wildcard=false )

78) {

79)   // FIXME: Eine "filter"-Funktion sollte keinen system_failure verursachen sondern einfach einen bereinigten String liefern.
80)   

81)   $input = str_replace(array('Ä', 'Ö', 'Ü'), array('ä', 'ö', 'ü'), strtolower($input));

82)   $input = rtrim($input, "\t\n\r\x00 .");
83)   $input = ltrim($input, "\t\n\r\x00 .");

84)   if (preg_replace("/[^[:alnum:]äöü*\.\-]/", "", $input ) != $input)

85)     system_failure("Ihre Daten enthielten ungültige Zeichen!");

86)   if (preg_match("/^.+\*/", $input ))
87)     system_failure("Ihre Daten enthielten ungültige Zeichen (Wildcard-Stern muss ganz vorne stehen)!");
88)   if (! $wildcard && preg_replace("/^\*/", "", $input ) != $input)

89)     system_failure("Ihre Daten enthielten ungültige Zeichen (Keine Wildcards erlaubt)!");

90)   if (strstr($input, '..'))
91)     system_failure("Ungültiger Hostname");

92)   return $input;

93) }
94) 

95) function verify_input_hostname( $input, $wildcard=false )

96) {

97)   if (filter_input_hostname( $input, $wildcard ) != $input) {

98)     logger(LOG_WARNING, 'inc/security', 'verify_input_hostname', 'Ungültige Daten: '.$input);

99)     system_failure("Ihre Daten enthielten ungültige Zeichen!");
100)   }
101) }
102) 
103) 
104) function verify_input_ipv4( $input )
105) {
106)   if (! preg_match("/^([1-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])(\.([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])){3}$/", $input))
107)     system_failure('Keine IP-Adresse');
108) }
109) 
110) 
111) function verify_input_ipv6( $input )
112) {
113)   // ripped from Perl module Net-IPv6Addr v0.2
114)   if (! preg_match("/^(([0-9a-f]{1,4}:){7}[0-9a-f]{1,4}|[0-9a-f]{0,4}::|:(?::[a-f0-9]{1,4}){1,6}|(?:[a-f0-9]{1,4}:){1,6}:|(?:[a-f0-9]{1,4}:)(?::[a-f0-9]{1,4}){1,6}|(?:[a-f0-9]{1,4}:){2}(?::[a-f0-9]{1,4}){1,5}|(?:[a-f0-9]{1,4}:){3}(?::[a-f0-9]{1,4}){1,4}|(?:[a-f0-9]{1,4}:){4}(?::[a-f0-9]{1,4}){1,3}|(?:[a-f0-9]{1,4}:){5}(?::[a-f0-9]{1,4}){1,2}|(?:[a-f0-9]{1,4}:){6}(?::[a-f0-9]{1,4}))$/i", $input))
115)     system_failure("Ungültige IPv6-Adresse");
116) }

117) 
118) 

119) function filter_quotes( $input )
120) {

121)   return preg_replace('/["\'`]/', '', $input );

122) }
123) 

124) 
125) 

126) function filter_shell( $input )
127) {

128)   return preg_replace('/[^-[:alnum:]\_\.\+ßäöüÄÖÜ/%§=]/', '', $input );

129) }
130) 
131) function verify_shell( $input )
132) {
133)   if (filter_shell($input) != $input)
134)     system_failure("Ihre Daten enthielten ungültige Zeichen!");

135) }

136) 

137) 
138) 

139) function check_path( $input )
140) {

141)   DEBUG("checking {$input} for valid path name");

142)   if ($input != filter_input_general($input))

143)   {

144)     logger(LOG_WARNING, 'inc/security', 'check_path', 'HTML-Krams im Pfad: '.$input);

145)     DEBUG("HTML-Krams im Pfad");

146)     return False;

147)   }

148)   $components = explode("/", $input);
149)   foreach ($components AS $item)
150)   {
151)     if ($item == '..')
152)     {

153)       logger(LOG_WARNING, 'inc/security', 'check_path', '»..« im Pfad: '.$input);

154)       DEBUG("»..« im Pfad");

155)       return False;
156)     }
157)   }

158)   return (preg_match('/^[ A-Za-z0-9.@\/_-]*$/',$input) == 1);

159) }
160) 
161) 

162) function in_homedir($path)
163) {
164)   DEBUG("Prüfe »{$path}«");
165)   if (! check_path($path))
166)   {
167)     DEBUG('Kein Pfad');
168)     return False;
169)   }
170)   if (! isset($_SESSION['userinfo']['homedir']))
171)   {
172)     DEBUG("Kann homedir nicht ermitteln");
173)     return False;
174)   }
175)   return strncmp($_SESSION['userinfo']['homedir'], $path, count($_SESSION['userinfo']['homedir'])) == 0;
176) }
177) 
178) 

179) function check_emailaddr( $input )
180) {

181)   return (bool) filter_var($input, FILTER_VALIDATE_EMAIL) == $input;

182) }
183) 
184) function check_domain( $input )
185) {
186)   return (bool) preg_match("/[a-z0-9\.\-]+\.[a-z]{2,4}$/i", $input );