 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
iDnl
Aprendiz
Registrado: Domingo, 9 de Junho de 2013
Mensagens: 173
|
 Enviada: Dom Jun 09, 2013 7:37 pm Assunto: [Ajuda] Converter Arquivo para Hex [Resolvido] |
 |
|
Olá este émeu 1º tópico e comecei mal, pedindo ajuda, preciso urgentemente crair um programa que Converta um Arquivo para Hex,
assim fica mais facil eu mover os arquivos apenas com o código em hex eu salvo os arquivos com a extenção, exemplo:
44656C7068692037
se eu pegar a hex acima e salva-la com a extenção .txt ela vai ser um arquivo de texto cujo conteúdo é Delphi 7, mas eu pretendo fazer isso com arquivos mais pesados porque eu não tenho muitos pen-drives, e constantemenente formato o computador.
Então eu gostaria da ajuda de vocês. Eu Nem sei por onde começar.
Meu Projeto seria: Converte Arquivos para Hex e de Hex para arquivos.
________________
/Daniel Mendes \
|Delphi 7 |
|Desde 2010 |
|14 Anos |
\________________/
Editado pela última vez por iDnl em Seg Jun 10, 2013 12:29 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
cyberdisk
Colaborador
Registrado: Domingo, 4 de Julho de 2010
Mensagens: 2391
Localização: São José dos Campos - SP
|
| Enviada: Dom Jun 09, 2013 11:13 pm Assunto: |
|
|
exemplo
| Código: | function StringToHex(S: String): String;
var I: Integer;
begin
Result:= '';
for I := 1 to length (S) do
Result:= Result+IntToHex(ord(S[i]),2);
end;
|
| Código: | function HexToString(H: String): String;
var I: Integer;
begin
Result:= '';
for I := 1 to length (H) div 2 do
Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));
end;
|
abraço
_________________
O conhecimento abre muitas portas |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
