Script Defenders
Você Não Tem Uma Conta ?

Então Clique Em Registrar-Se E Faça Uma Agora Mesmo !

Vagas Abertas !

Le Delphi: Criando seu Primeiro AntiVírus, #AnonM4k3r

Ir em baixo

Le Delphi: Criando seu Primeiro AntiVírus, #AnonM4k3r

Mensagem  M4K3R em Qui Maio 10, 2012 5:50 pm

Eaeh Galera Da SD, Hoje vou ensina-los como criar seu primeiro Anti-Vírus.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1º Abra um projeto
2º vai na area do codigos.
3ª insira esse codigo logo a baixo:

Spoiler:
function IsInfected(Arquivo : TFileName;CheckSum : DWORD) : BOOLEAN;
var
hFile, hMap : THandle;
pMemory : Pointer;
header, csum, sHigh, sLow : DWORD;
NtHeader : PImageNtHeaders;
CheckSumMappedFile : function(Base***ress : Pointer;FileLength : DWORD;HeaderSum, CheckSum : PDWORD) : PImageNTHeaders;
*****
Free;
begin
pMemory := nil;
Result := False;
header := 0;
csum := 0;
hFile := CreateFile(PChar(Arquivo), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
if hFile = INVALID_HANDLE_VALUE then begin
Exit;
end;
sLow := GetFileSize(hFile, Pointer(@sHigh));
hMap := CreateFileMapping(hFile, nil, PAGE_READONLY, sHigh, sLow, nil);
if hMap = 0 then begin
goto Free;
end;
pMemory := MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, 0);
@CheckSumMappedFile := GetProc***ress(GetModuleHandle('ImageHlp.dll'), 'CheckSumMappedFile');
NtHeader := CheckSumMappedFile(pMemory, sLow, @Header, @Csum);
if NtHeader = nil then begin
goto Free;
end;
Free:
UnMapViewOfFile(pMemory);
CloseHandle(hMap);
CloseHandle(hFile);
if csum = CheckSum then begin
result := true;
end;
end;

Aeh vcs começa a edita bota um design, e tals, criar os bottuns e tals,

Créditos:
Spoiler:
AnonM4k3r Pelo o Post affraid
avatar
M4K3R
Membro de bronze
Membro de bronze

Mensagens : 52
Reputação : 3
Data de inscrição : 19/04/2012

Voltar ao Topo Ir em baixo

Pode explicar mais?

Mensagem  iBiel em Dom Jun 03, 2012 10:03 pm

Cara me explica mais tipo me explica como adicionar os botões e o que são isso "******" sera que pode me ensinar?


me ajuda a fazer o deigner!!

iBiel
Membro
Membro

Mensagens : 2
Reputação : 0
Data de inscrição : 23/05/2012

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum