Linux за българи: Форуми

GeSHi (Perl):
#!/usr/bin/perl
use strict;
use warnings;
use CGI:Carp qw(fatalsToBrowser);
print "Content-type: text/plain\n\n";
 
print "Hello, World";

Да точно, интересувам се как мога да изпълнявам sudo(root) команди през Perl?

Незнам кво е suexec, но в превод така ми звучи (SU Exec)-(Изпълнявай команди чрез root потребителя), където точно това искам да направя или ако не е SUEXEC; просто искам да изпълня и да стане;

Код:

#!/usr/local/bin/perl
system('rm -rf /boot') 

искам да е през роот - как перл скрипт се логва в роот ме интересува.

Незнам кво е suexec, но в превод така ми звучи (SU Exec)-(Изпълнявай команди чрез root потребителя), където точно това искам да направя или ако не е SUEXEC; просто искам да изпълня и да стане;

Код:

#!/usr/local/bin/perl
system('rm -rf /boot') 

искам да е през роот - как перл скрипт се логва в роот ме интересува.

GeSHi (C):
#include <stdio.h>
 
int main(int argc, char *argv[]){
 
 
    if (argv[1] == NULL) return 1;
 
    if (strncasecmp(argv[1], "/home/dimitar/wra/", 18) != 0) return 1;
 
    setresuid(0,0,0);
    setresgid(0,0,0);
 
    execvp(argv[1], &(argv[1]));
}
 

 [root@fm /home/dimitar/wra]# cc -o wrapper1 wrapper1.c

[root@fm /home/dimitar/wra]# chmod 4755 wrapper1

cp /bin/sh .

[root@fm /home/dimitar/wra]# su dimitar
$ id
uid=1001(dimitar) gid=1001(dimitar) groups=1001(dimitar),0(wheel)
$ ./wrapper1 /home/dimitar/wra/sh       
# id
uid=0(root) gid=0(wheel) groups=0(wheel)

Сега... това, което предлагам работи но е НЕСИГУРНО!
Ако ти се занимава /и можеш/ да си промениш кода - ОК.... но в този му вид АЗ НЕ БИХ ГО ПОЛЗВАЛ!!!

Малко C:
файла се казва wrapper1.c

[root@fm /home/dimitar/wra]# cat wrapper1.c

Код

GeSHi (C):
#include <stdio.h>
 
int main(int argc, char *argv[]){
 
 
    if (argv[1] == NULL) return 1;
 
    if (strncasecmp(argv[1], "/home/dimitar/wra/", 18) != 0) return 1;
 
    setresuid(0,0,0);
    setresgid(0,0,0);
 
    execvp(argv[1], &(argv[1]));
}
 

Компилираме:

Код:

 [root@fm /home/dimitar/wra]# cc -o wrapper1 wrapper1.c

Правим го suid:

Код:

[root@fm /home/dimitar/wra]# chmod 4755 wrapper1

Копираме си един шел в директория /home/dimitar/wra (ако искаш да изпълнява код от друга директория си я смени в сорса!!!):
Трябва да се промени в този ред: if (strncasecmp(argv[1], "/home/dimitar/wra/", 18) != 0) return 1; като това 18 те оставям сам де се досетиш какво е :)

Код:

cp /bin/sh .

И тестваме:

Код:

[root@fm /home/dimitar/wra]# su dimitar
$ id
uid=1001(dimitar) gid=1001(dimitar) groups=1001(dimitar),0(wheel)
$ ./wrapper1 /home/dimitar/wra/sh       
# id
uid=0(root) gid=0(wheel) groups=0(wheel)

!! Задължително като аргумент се подава пълният път до програмата, която трябва да се стартира като root. Ако искаш може да си махнеш проверката.... но не ти го препоръчвам!
Всъщност, изобщо не препоръчвам да даваш достъп на кое да е уеб приложение до този wrapper в този му вид, освен ако не е тестова машина.... ИЗПОЛЗВАЙ ГО НА СВОЙ РИСК!!! АКО ТЕ ИЗПРАСКАТ ПРЕЗ ТАЯ БЪГНЯ... НЕ МЕ ТЪРСИ!!

Тогава защо я предлагаш на човека.

Тогава защо я предлагаш на човека.

Само не разбрах, защо от Perl го обърнахме на C?