a4247c64b1a2f9238a5a84a72ceeda3fafb8b414
bernd input-filtering

bernd authored 17 years ago

1) <?php
Bernd Wurst Added license tags for CC0,...

Bernd Wurst authored 12 years ago

2) /*
3) This file belongs to the Webinterface of schokokeks.org Hosting
4) 
Bernd Wurst Lizenzinfos in eigenes Modu...

Bernd Wurst authored 10 years ago

5) Written 2008-2014 by schokokeks.org Hosting, namely
Bernd Wurst Added license tags for CC0,...

Bernd Wurst authored 12 years ago

6)   Bernd Wurst <bernd@schokokeks.org>
7)   Hanno Böck <hanno@schokokeks.org>
8) 
9) To the extent possible under law, the author(s) have dedicated all copyright and related and neighboring rights to this software to the public domain worldwide. This software is distributed without any warranty.
10) 
11) You should have received a copy of the CC0 Public Domain Dedication along with this software. If not, see 
12) http://creativecommons.org/publicdomain/zero/1.0/
13) 
14) Nevertheless, in case you use a significant part of this code, we ask (but not require, see the license) that you keep the authors' names in place and return your changes to the public. We would be especially happy if you tell us what you're going to do with this code.
15) */
bernd input-filtering

bernd authored 17 years ago

16) 
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

17) require_once('inc/error.php');
Hanno Böck replace cracklib with zxcvbn

Hanno Böck authored 8 years ago

18) require_once('vendor/autoload.php');
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

19) 
bernd input-filtering

bernd authored 17 years ago

20) 
Hanno Böck replace cracklib with zxcvbn

Hanno Böck authored 8 years ago

21) function strong_password($password, $user = array())
bernd * Passwörter mit cracklib p...

bernd authored 17 years ago

22) {
Hanno Böck replace cracklib with zxcvbn

Hanno Böck authored 8 years ago

23)   $passwordchecker = new ZxcvbnPhp\Zxcvbn();
24)   $strength = $passwordchecker->passwordStrength($password, $user);
Bernd Wurst Subusers-Modul in einer ers...

Bernd Wurst authored 13 years ago

25) 
Hanno Böck replace cracklib with zxcvbn

Hanno Böck authored 8 years ago

26)   if ($strength['score'] < 2) {
27)     return "Das Passwort ist zu einfach!";
bernd * Passwörter mit cracklib p...

bernd authored 17 years ago

28)   }
29) 
Hanno Böck replace cracklib with zxcvbn

Hanno Böck authored 8 years ago

30)   return true;
bernd * Passwörter mit cracklib p...

bernd authored 17 years ago

31) }
32) 
33) 
bernd input-filtering

bernd authored 17 years ago

34) function filter_input_general( $input )
35) {
Bernd Wurst Weitere Prepared-Statements

Bernd Wurst authored 10 years ago

36)   if ($input === NULL) {
37)     return NULL;
38)   }
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

39)   return htmlspecialchars(iconv('UTF-8', 'UTF-8', $input), ENT_QUOTES, 'UTF-8');
40) }
41) 
42) 
43) function verify_input_general( $input )
44) {
bernd Loggen, wenn ungültige Zeic...

bernd authored 17 years ago

45)   if (filter_input_general($input) != $input) {
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

46)     system_failure("Ihre Daten enthielten ungültige Zeichen!");
bernd Logger mit Logleveln

bernd authored 15 years ago

47)     logger(LOG_WARNING, 'inc/security', 'verify_input_general', 'Ungültige Daten: '.$input);
bernd Loggen, wenn ungültige Zeic...

bernd authored 17 years ago

48)   }
bernd input-filtering

bernd authored 17 years ago

49) }
50) 
51) 
52) function filter_input_username( $input )
53) {
Hanno Böck Fehler bei leeren Benutzern...

Hanno Böck authored 7 years ago

54)   $username=preg_replace("/[^[:alnum:]\_\.\+\-]/", "", $input);
55)   if ($username === "") {
56)     system_failure("Leerer Benutzername!");
57)   }
58)   return $username;
hanno Hatte die Kompatibilität ge...

hanno authored 17 years ago

59) }
60) 
61) function verify_input_username( $input )
62) {
bernd Loggen, wenn ungültige Zeic...

bernd authored 17 years ago

63)   if (filter_input_username( $input ) != $input) {
bernd Logger mit Logleveln

bernd authored 15 years ago

64)     logger(LOG_WARNING, 'inc/security', 'verify_input_username', 'Ungültige Daten: '.$input);
bernd Add IP-address patterns

bernd authored 16 years ago

65)     system_failure("Ihre Daten enthielten ungültige Zeichen!");
bernd Loggen, wenn ungültige Zeic...

bernd authored 17 years ago

66)   }
bernd input-filtering

bernd authored 17 years ago

67) }
68) 
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

69) 
70) 
bernd Erlaube * im Hostname

bernd authored 15 years ago

71) function filter_input_hostname( $input, $wildcard=false )
bernd check auf hostname

bernd authored 17 years ago

72) {
bernd Erlaube * im Hostname

bernd authored 15 years ago

73)   // FIXME: Eine "filter"-Funktion sollte keinen system_failure verursachen sondern einfach einen bereinigten String liefern.
74)   
Bernd Wurst Wildcard-CSRs können jetzt...

Bernd Wurst authored 11 years ago

75)   DEBUG('filter_input_hostname("'.$input.'", $wildcard='.$wildcard.')');
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

76)   $input = str_replace(array('Ä', 'Ö', 'Ü'), array('ä', 'ö', 'ü'), strtolower($input));
bernd Hostnames sollten nicht mit...

bernd authored 17 years ago

77)   $input = rtrim($input, "\t\n\r\x00 .");
78)   $input = ltrim($input, "\t\n\r\x00 .");
Bernd Wurst Hostnames dürfen keine Unte...

Bernd Wurst authored 7 years ago

79)   if (preg_replace("/[^.]_/", "", $input) != $input) {
80)     system_failure("Der Unterstrich ist nur als erstes Zeichen eines Hostnames erlaubt.");
81)   }
Bernd Wurst Erlaube underscore in hostn...

Bernd Wurst authored 10 years ago

82)   if (preg_replace("/[^[:alnum:]äöü_*\.\-]/", "", $input ) != $input)
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

83)     system_failure("Ihre Daten enthielten ungültige Zeichen!");
bernd Erlaube wildcards bei vhosts

bernd authored 14 years ago

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

bernd authored 15 years ago

87)     system_failure("Ihre Daten enthielten ungültige Zeichen (Keine Wildcards erlaubt)!");
bernd Hostname darf kein »..« ent...

bernd authored 17 years ago

88)   if (strstr($input, '..'))
89)     system_failure("Ungültiger Hostname");
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

90)   return $input;
bernd check auf hostname

bernd authored 17 years ago

91) }
92) 
bernd Erlaube * im Hostname

bernd authored 15 years ago

93) function verify_input_hostname( $input, $wildcard=false )
bernd Add IP-address patterns

bernd authored 16 years ago

94) {
bernd Erlaube * im Hostname

bernd authored 15 years ago

95)   if (filter_input_hostname( $input, $wildcard ) != $input) {
bernd Logger mit Logleveln

bernd authored 15 years ago

96)     logger(LOG_WARNING, 'inc/security', 'verify_input_hostname', 'Ungültige Daten: '.$input);
bernd Add IP-address patterns

bernd authored 16 years ago

97)     system_failure("Ihre Daten enthielten ungültige Zeichen!");
98)   }
99) }
100) 
101) 
102) function verify_input_ipv4( $input )
103) {
104)   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))
105)     system_failure('Keine IP-Adresse');
106) }
107) 
108) 
109) function verify_input_ipv6( $input )
110) {
111)   // ripped from Perl module Net-IPv6Addr v0.2
112)   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))
113)     system_failure("Ungültige IPv6-Adresse");
114) }
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

115) 
Hanno Böck Prüfe DNS-Records auf probl...

Hanno Böck authored 7 years ago

116) function verify_input_recorddata( $input )
117) {
118)   if (strstr($input, "\\") || strstr($input, '"'))
119)     system_failure("Ungültige Zeichen");
120) }
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

121) 
bernd Im Passwort dürfen auch kei...

bernd authored 17 years ago

122) function filter_quotes( $input )
123) {
bernd deprecation of ereg* functi...

bernd authored 15 years ago

124)   return preg_replace('/["\'`]/', '', $input );
bernd Im Passwort dürfen auch kei...

bernd authored 17 years ago

125) }
126) 
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

127) 
128) 
bernd Diverse shell-kritische zei...

bernd authored 17 years ago

129) function filter_shell( $input )
130) {
bernd deprecation of ereg* functi...

bernd authored 15 years ago

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

bernd authored 17 years ago

132) }
133) 
134) function verify_shell( $input )
135) {
136)   if (filter_shell($input) != $input)
137)     system_failure("Ihre Daten enthielten ungültige Zeichen!");
bernd Diverse shell-kritische zei...

bernd authored 17 years ago

138) }
bernd input-filtering

bernd authored 17 years ago

139) 
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

140) 
Hanno Böck validiere SSH-Keys korrekt

Hanno Böck authored 7 years ago

141) function filter_ssh_key($key)
142) {
143)   $keyparts = explode(" ", trim($key));
144) 
145)   if ((count($keyparts) > 3) || (count($keyparts) < 2)) {
146)     system_failure("Ungültiger SSH-Key!");
147)   }
148) 
149)   if (preg_match("/^[a-z0-9]+-[a-z0-9-]+$/", $keyparts[0]) === 0) {
150)     system_failure("Ungültiger SSH-Key!");
151)   }
152) 
153)   if (base64_decode($keyparts[1], 1) == false) {
154)     system_failure("Ungültiger SSH-Key!");
155)   }
156) 
Hanno Böck bessere fehlermeldung bei s...

Hanno Böck authored 7 years ago

157)   if ((count($keyparts) === 3) && (preg_match("/^[a-zA-Z0-9@.-_]+$/", $keyparts[2]) === 0)) {
158)     system_failure("Ungültige Zeichen im Kommentar des SSH-Keys!");
Hanno Böck validiere SSH-Keys korrekt

Hanno Böck authored 7 years ago

159)   }
160) 
161)   if (count($keyparts) === 2) {
162)     return $keyparts[0]." ".$keyparts[1];
163)   } else {
164)     return $keyparts[0]." ".$keyparts[1]." ".$keyparts[2];
165)   }
166) }
167) 
bernd Umfangreiche Code-Aufräumar...

bernd authored 17 years ago

168) 
bernd XSS/CSRF-Bugs behoben

bernd authored 17 years ago

169) function check_path( $input )
170) {
bernd Auch @ darf im Mailbox-Pfad...

bernd authored 17 years ago

171)   DEBUG("checking {$input} for valid path name");
bernd XSS/CSRF-Bugs behoben

bernd authored 17 years ago

172)   if ($input != filter_input_general($input))
bernd Auch @ darf im Mailbox-Pfad...

bernd authored 17 years ago

173)   {
bernd Logger mit Logleveln

bernd authored 15 years ago

174)     logger(LOG_WARNING, 'inc/security', 'check_path', 'HTML-Krams im Pfad: '.$input);
bernd Auch @ darf im Mailbox-Pfad...

bernd authored 17 years ago

175)     DEBUG("HTML-Krams im Pfad");
bernd XSS/CSRF-Bugs behoben

bernd authored 17 years ago

176)     return False;
bernd Auch @ darf im Mailbox-Pfad...

bernd authored 17 years ago

177)   }
bernd XSS/CSRF-Bugs behoben

bernd authored 17 years ago

178)   $components = explode("/", $input);
179)   foreach ($components AS $item)
180)   {
181)     if ($item == '..')
182)     {
bernd Logger mit Logleveln

bernd authored 15 years ago

183)       logger(LOG_WARNING, 'inc/security', 'check_path', '»..« im Pfad: '.$input);
bernd check auf hostname

bernd authored 17 years ago

184)       DEBUG("»..« im Pfad");
bernd XSS/CSRF-Bugs behoben

bernd authored 17 years ago

185)       return False;
186)     }
187)   }
bernd Erlaube Leerzeichen im Pfad

bernd authored 14 years ago

188)   return (preg_match('/^[ A-Za-z0-9.@\/_-]*$/',$input) == 1);
bernd XSS/CSRF-Bugs behoben

bernd authored 17 years ago

189) }
190) 
191) 
bernd * alle internen Links sinnv...

bernd authored 15 years ago

192) function in_homedir($path)
193) {
194)   DEBUG("Prüfe »{$path}«");
195)   if (! check_path($path))
196)   {
197)     DEBUG('Kein Pfad');
198)     return False;
199)   }
200)   if (! isset($_SESSION['userinfo']['homedir']))
201)   {
202)     DEBUG("Kann homedir nicht ermitteln");
203)     return False;
204)   }
205)   return strncmp($_SESSION['userinfo']['homedir'], $path, count($_SESSION['userinfo']['homedir'])) == 0;
206) }
207) 
Bernd Wurst Erste Version des SEPA-Mand...

Bernd Wurst authored 11 years ago

208) function check_date( $input )
209) {
Bernd Wurst Erlaube beim SEPA-Mandat au...

Bernd Wurst authored 10 years ago

210)   return (bool) preg_match("/[0-9]{4}-(0?[1-9]|10|11|12)-([012]?[0-9]|30|31)/", $input);
Bernd Wurst Erste Version des SEPA-Mand...

Bernd Wurst authored 11 years ago

211) }
212) 
bernd * alle internen Links sinnv...

bernd authored 15 years ago

213) 
bernd Neues Modul für "Kunde werden"

bernd authored 17 years ago

214) function check_emailaddr( $input )
215) {
bernd Syntax-fehler

bernd authored 16 years ago

216)   return (bool) filter_var($input, FILTER_VALIDATE_EMAIL) == $input;
bernd don't be too complicated. /...

bernd authored 16 years ago

217) }
218) 
219) function check_domain( $input )
220) {
221)   return (bool) preg_match("/[a-z0-9\.\-]+\.[a-z]{2,4}$/i", $input );