Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- echo off
- title UnLocker PRO
- cls
- :Login
- echo Wpisz login
- set/p "login=>"
- cls
- if exist Urzytkownicy\%login% goto Password
- echo Nie ma takiego urzytkownika
- echo.
- if not exist Urzytkownicy\%login% goto Login
- :Password
- echo Wpisz haslo
- set/p "haslo=>"
- cls
- if exist Urzytkownicy\%login%\%haslo% goto MENU
- echo Zle haslo
- echo.
- if not exist Urzytkownicy\%login%\%haslo% goto Password
- :MENU
- echo Aby wybrac dana opcje wcisnij cyfre
- echo jej odpowiadajaca
- echo.
- echo 1) Rejestracja nowego urzytkownika
- echo 2) Nadaj prawa administratora
- set/p "menu=>"
- cls
- if %menu%==1 goto Rejestracja
- if %menu%==2 goto Prawa
- if %menu%==3 goto logaut
- if %menu%==x goto leave
- if %menu%==X goto leave
- echo Wybierz jedna z opcji
- echo.
- goto MENU
- :Rejestracja
- if not exist Urzytkownicy\%login%\Admin.txt goto RejestracjaPrawaLose
- echo Podaj login do nowego konta
- set/p "RejestracjaLogin=>"
- cls
- if exist Urzytkownicy\%RejestracjaLogin% goto RejestracjaLoginLose
- echo Podaj haslo do nowego konta
- set/p "RejestracjaHaslo=>"
- cls
- echo Tworzenie nowego konta.
- echo.
- echo [ ]
- timeout 2 /nobreak >nu
- md Urzytkownicy\%RejestracjaLogin%
- cls
- echo Tworzenie nowego konta..
- echo.
- echo [* ]
- timeout 2 /nobreak >nul
- cls
- echo Tworzenie nowego konta...
- echo.
- echo [** ]
- timeout 2 /nobreak >nul
- cls
- echo Nowe konto zostalo utworzone
- echo.
- echo [***]
- timeout 5 /nobreak >nul
- md Urzytkownicy\%RejestracjaLogin%\%RejestracjaHaslo%
- cls
- goto MENU
- :RejestracjaPrawaLose
- cls
- echo Nie masz praw administratora
- echo.
- goto MENU
- :RejestracjaLoginLos
- echo Istnieje juz konto o takim loginie
- echo.
- goto Rejestracja
- :Prawa
- if not exist Urzytkownicy\%login%\Admin.txt goto PrawaLose1
- goto Prawa1
- :Prawa1
- echo Podaj nazwe urzytkownika któremu chcesz
- echo nadac prawa administratora
- set/p "Prawa=>"
- if not exist Urzytkownicy\%Prawa% goto PrawaLose2
- if exist Urzytkownicy\%Prawa%\Admin.txt goto PrawaLose3
- echo Admin> Urzytkownicy\%Prawa%\Admin.txt
- cls
- echo Nadano prawo administratora dla
- echo urzytkownika %Prawa%
- echo.
- goto MENU
- :PrawaLose1
- cls
- echo Nie masz praw administratora
- echo.
- goto MENU
- :PrawaLose2
- cls
- echo Nie ma takiego urzytkownika
- echo.
- goto Prawa1
- :PrawaLose3
- cls
- echo ten urzytkownik ma juz administratora
- echo.
- goto MENU
- :leave
- cls
- echo Zapraszamy ponownie!
- timeout 5 /nobreak >nul
- :logaut
- cls
- goto Login
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement