Change Info

[whit3_sh4rk]

Change Info

Simplesmente pega informações de um arquivo e atribui a outro. =P

[Delphi]

Shot:
[Only registered and activated users can see links]

pass:
nststuffs2008

[]s

[Katsuke]

Logo, pode usá-lo para fim maléf.... digo magestosos....... xD

Boa kra... eu to começando com Delphi..... Axo bem interessante...

O Source vem junto?

[whit3_sh4rk]

Esqueci de deixar claro que é o source + executável.

[]s

[Katsuke]

E a senha eh. . . .? (vc esqueceu tbm xD)

[placker]

E a senha eh. . . .? (vc esqueceu tbm xD)

Amigo tente com:

nststuffs2008

Para isso que serve uma mente hacker.

Simples procurei noutro topico do whiteshark.

Tem de pensar mais amigo, não é para ofender e sim para o incentivar a raciocinar melhor nestas ocasiões.

.................................................. .................................................. ...............................................
Para o witeshark:

Amigo esse programinha botou meu CoreImpact a funcionar de novo, alterei a data da licença do programa.

Muito útil mesmo, obrigado, vai servir para muito mais coisas.

[whit3_sh4rk]

[katsuke]
Quando se abre o arquivo ZIP, ao lado é exibido a senha.

[]s

[Katsuke]

[placker]

Obrigado... eu havia tentado a mais comum entre vcs, a chmod.. mas vi q não funcionava.. e como eh o 1° arquivo com senha dele achei melhor perguntar.. mas mesmo assim, obrigado pela dica...

[whit3_sh4rk]
Eu procurei em meu WinRar, mas não axei e pelo motivo citado acima... mas obrigado a ambos xD




=*

[placker]

[katsuke]
Quando se abre o arquivo ZIP, ao lado é exibido a senha.

[]s

Só no caso de editares um comentário com a senha no proprio arquivo zip, que não é este o caso, pelo menos com o meu winrar não está a aparecer.

[Mick_Thompson]

Testado e aprovado manow

Muito bom mesmo!

Abração T+ :D

[whit3_sh4rk]

[katsuke]/[placker]
Perdão! Realmente não coloquei para exibir a senha!

[]s

[Katsuke]

Para o witeshark:

Amigo esse programinha botou meu CoreImpact a funcionar de novo, alterei a data da licença do programa.

Muito útil mesmo, obrigado, vai servir para muito mais coisas.

Dúvida: para alterar datas de licenças assim como Placker fez vc deveria colocar na primeira opção o que? o arquivo .reg? e na segunda seria o arquivo .reg editado?

[placker]

Dúvida: para alterar datas de licenças assim como Placker fez vc deveria colocar na primeira opção o que? o arquivo .reg? e na segunda seria o arquivo .reg editado?

Não me expliquei bem o programa me deu uma ideia devido ao seu titulo, eu lembrei de mudar a data do computador para botar o programa a funcionar.

[Katsuke]

[placker]

Assim, o programa copia o conteúdo do 1° arquivo para o conteúdo do 2° arquivo?

E você o mudou com qual processo? (eu sei q num deve ter sido mto dificil, mas eu num to conseguindo entender o programa direito.. axo q o entenderia bem com esse exemplo, além de ser util xD)



=*

[placker]

Cara acho que você teimou para esse lado, eu não fiz isso com o programa, simplesmente o programa me deu a ideia de trocar a data no meu pc, mas não foi com o programa que a troquei, foi lá no relógio ao canto do windows, já entendeu agora?:eek:

Quanto ao programa do whiteshark é muito fácil entender, os arquivos têm informações como data de criação, empresa, nome do autor etc, o que o programa faz é trocar as informações de 1 programa pelas de outro.
Claro se você fizer isso em programas que não têm info não vai acontecer nada, certo?

[unn4m3D_BR]

oO ..

Eu testei aqui mais não notei diferença não .. oO
to fazendo algo errado ou não entendi o funcionamento do programa direito .. eheh

bjxx ..

[whit3_sh4rk]

As informações que são alteradas são somente as de criação e modificação.. É apenas para dar um pontapé para quem queira testar outras coisas e utilizar em alguma aplicação.

[Only registered and activated users can see links]

[]s

[Dr_H4nK]

Isso é muito bom pra protecao anti cracker , ja fiz uma assim..
ke verifica a data de criacao..se alguem unpackar.. ele da error..
muitu bom..

[Katsuke]

Agora entendi.... xD Axo que suas explicações satisfizeram a mim e ao Charles xD

E obrigado pela atenção novamente...

=*

[unn4m3D_BR]

Isso é muito bom pra protecao anti cracker , ja fiz uma assim..
ke verifica a data de criacao..se alguem unpackar.. ele da error..
muitu bom..

Nhá .. mais não precisa unpackar ele pra quebrar .. kkk
Da pra usar uma cartinha na manga chamada Back To User .. ! ;P

Mais agora vou tentar ver e tentar mecher direito .. ;)

vlw pelas explicações grande Sh4rk .. !

PS.: Muy bueno este site de funções em rapaizinhu .. eheh

bjxx ..

[Mackey]

Muito bom o tópico! Até me inspirou a fazer uma tool parecida.


[Only registered and activated users can see links]

Comecei a fazê-la ontem quando vi o tópico e terminei hoje de tarde :)
Espero que seja útil pra galera aí.

Tem muito mais programação envolvendo os componentes do Delphi do que com o Windows de fato. Eu não gosto muito mas as coisas ficam mais bonitinhas quando isso acontece.

Olha só o source das duas funções principais, importar o tempo e salvar o tempo no arquivo.


procedure TForm1.SaveTimeToFile(FilePath: String);
var
lfTime, fTime: Array [0..2] of TFileTime;
hFile: Cardinal;
timeError: Boolean;
begin
timeError := True;

SystemTimeToFileTime(sTime[0], lfTime[0]);
SystemTimeToFileTime(sTime[1], lfTime[1]);
SystemTimeToFileTime(sTime[2], lfTime[2]);

hFile := CreateFile(PChar(FilePath), GENERIC_READ or GENERIC_WRITE,
0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_BACKUP_SEMANTICS, 0);
if (hFile <> INVALID_HANDLE_VALUE) then
begin
try
LocalFileTimeToFileTime(lfTime[0], fTime[0]);
LocalFileTimeToFileTime(lfTime[1], fTime[1]);
LocalFileTimeToFileTime(lfTime[2], fTime[2]);
[Only registered and activated users can see links]
begin
timeError := False;
end;
finally
CloseHandle(hFile);
end;
end;

if (timeError) then
MessageBox(Form1.Handle, 'Não foi possível alterar a data do arquivo, ' +
'verifique se você tem permissão de escrita e/ou as datas estipulada' +
's não são fora da realidade.', 'Erro!', MB_OK or MB_ICONERROR)
else
MessageBox(Form1.Handle, 'Data alterada com sucesso!', 'Operação realizada com sucesso!',
MB_OK or MB_ICONEXCLAMATION);
end;

procedure TForm1.LoadTimeFromFile(FilePath: String);
var
lfTime, fTime: Array [0..2] of TFileTime;
hFile: Cardinal;
timeError: Boolean;
begin
timeError := True;

hFile := CreateFile(PChar(FilePath), GENERIC_READ or GENERIC_WRITE,
0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_BACKUP_SEMANTICS, 0);
if (hFile <> INVALID_HANDLE_VALUE) then
begin
try
[Only registered and activated users can see links]
begin
timeError := False;

FileTimeToLocalFileTime(fTime[0], lfTime[0]);
FileTimeToLocalFileTime(fTime[1], lfTime[1]);
FileTimeToLocalFileTime(fTime[2], lfTime[2]);
end;
finally
CloseHandle(hFile);
end;
end;

FileTimeToSystemTime(lfTime[0], sTime[0]);
FileTimeToSystemTime(lfTime[1], sTime[1]);
FileTimeToSystemTime(lfTime[2], sTime[2]);

LoadLabels(sTime[cmbTimeType.ItemIndex]);

if (timeError) then
MessageBox(Form1.Handle, 'Não foi possível ler a data do arquivo, ' +
'verifique se você tem permissão de leitura.', 'Erro!', MB_OK or MB_ICONERROR)
else
MessageBox(Form1.Handle, 'Data lida com sucesso!', 'Operação realizada com sucesso!',
MB_OK or MB_ICONEXCLAMATION);
end;

Só uma pequena observação: Se você setar datas muito antigas para os arquivos o Windows se comporta de maneira estranha e não exibe mais a data na descrição só nas propriedades. E parece que não é possível mais alterar a data após isso. Provavelmente deve ser um bug do Windows mesmo... Até porque arquivos datando 1960 é algo meio surreal auhsuhas (Bill Gates com 5 anos nem imaginava que um dia iria criar o Windows).

É isso aí :)
Como de contume, segue o link para download do source completo:
[Only registered and activated users can see links]

Abraços e beijos anais (para não perder o costume)
:p (*)

:eek::eek::eek:

Créditos (Idade do Bill):
[Only registered and activated users can see links]

[Katsuke]

Ahaaam... esse é pra trocar a data de criação e o horário..... xD

Bom trabalho! ;)

(Eh a minha 1° presenciação de seus bjos anais O.o) huahuahuauha

=*