Pular para o conteúdo

FTP – Script para adicionar e remover usuários via WEB

Script feito em Perl para adicionar e remover usuários de FTP.

evandro matos couto vandocouto
Hits: 1.042 Categoria: Perl Subcategoria: Manipulação de arquivos
  • Download
  • Nova versão
  • Indicar
  • Denunciar

Descrição

Script feito em Perl para adicionar e remover usuários de FTP.

Download 5088.ftp.pl Enviar nova versão

Esconder código-fonte

1 – Vamos alterar algumas configurações no arquivo sudoers

# vim /etc/sudoers

Comente a linha abaixo
#Defaults    requiretty

adicione a linha abaixo
apache ALL=(root)NOPASSWD:/usr/sbin/useradd, /usr/sbin/adduser, /usr/bin/passwd

2 – crie o script ftp.pl no diretório /var/www/cgi-bin/

#!/usr/bin/perl

use Shell;
use CGI qw /:standard/;
use CGI::Carp qw (fatalsToBrowser);

print “Content-type: text/html\n\n”;

if(CGI::param(“b_add”))
{
        my $login = CGI::param(“adicionar_user”);
       `sudo /usr/sbin/useradd -g ftp $login -d /samba/ftp/$login -s /bin/false`;
        if( $? == 0 )
            {
          print qq-
                 <script language “javascript”> alert(‘Sucesso para o login: $login’);</script>
                 -;
         my $senha = CGI::param(“password”);
                `(echo $senha ; echo $senha) | sudo /usr/bin/passwd $login`;
            }    
    else
        {
                print qq?
                <script language “javascript”> alert(‘Impossivel criar o login: $login’);</script>
                ?;
        }
}
if (CGI::param(“b_del”))
{
        my $login = CGI::param(“adicionar_user”);
            if(-e “/ftp/$login”)
                        {
                    `sudo /usr/sbin/userdel -r $login`;
                                print qq%
                                <script language “javascript”> alert(‘Sucesso para o login: $login’);</script>
                                %;
            }
                else
                    {
                            print qq@
                            <script language “javascript”> alert(‘Impossivel remover o usuario: $login’);</script>
                            @;
                    }
}

print qq~
<HTML>
<BODY>

<center><H3> FTP D2D </H3></center>
<center><h4> ADMINISTRAÇÃO DE USUÁRIOS </H4></center>

        <center>
            <form METHOD=”POST”>

                <table width=225 border=0 cellpadding=3>

                        <tr><td>Usuario:</td><td><input type=”text” name=”adicionar_user”></td></tr>
                        <tr><td>Senha:</td><td><input type=”password” name=”password”></td></tr>
                        <tr><td colspan=2 align=center><input type=”submit” name=”b_add” value=”Adicionar” onClick=”Login()”>
                        <input type=”submit” name=”b_del” value=”Remover” onClick=”Login()”></td></tr>
                </table>
            </form>
    </center>

</BODY>
</HTML>
~;

## FIM

OBS: No caso desse script os usário de ftp, utilizam como home pessoal o diretório /ftp Já os usuários comuns utilizam o diretório /home.

3 – De permissão no script
# chmod +x ldap.pl

4 – Para acessar digite no seu navegador http://IP-DO-SERVIDOR/cgi-bin/ldap.pl

Manipulação de Arquivos Orientada a Objetos

Conversão de textos UTF-8 para ISO8859-1

Journaling de arquivos

Alterar senha no shadow

Script que procura uma palavra em um arquivo.

Nenhum comentário foi encontrado.

Contribuir com comentário

Entre na sua conta para comentar.