Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-01-2022
Avatar de FideRosado
FideRosado FideRosado is offline
Miembro
 
Registrado: jun 2010
Ubicación: Pinar del Rio Cuba
Posts: 146
Poder: 15
FideRosado Va por buen camino
Encriptar y decriptar Base58

Hola amigos, estoy buscando la forma de acceder a un componente de encriptación a base58 es que tengo un trabajo que hacer y no encuentro información útil en este caso uso Delphi 7 , he visto ciertos textos pero ninguno me funcionan, me pueden ayudar..
__________________
"Aquellos que dicen que algo no puede hacerse, suelen ser interrumpidos por otros que lo están haciendo"
Responder Con Cita
  #2  
Antiguo 18-01-2022
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Puedes probar estas funciones.
https://github.com/Tinkerforge/gener...phi/Base58.pas

Aunque si buscas es posible que encuentres más.

NOTA: No había oido hablar de esta codificación.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 19-01-2022
Avatar de FideRosado
FideRosado FideRosado is offline
Miembro
 
Registrado: jun 2010
Ubicación: Pinar del Rio Cuba
Posts: 146
Poder: 15
FideRosado Va por buen camino
Base58.pas

es que no se como empesar a usarla, ya la agregue al proyecto pero me da error en el tipo

Código Delphi [-]
function Base58Encode(const value: uint64): string;
function Base58Decode(const encoded: string; out decoded: uint64): boolean;

explicame como debo continuar, si puedes adelantame algo..
__________________
"Aquellos que dicen que algo no puede hacerse, suelen ser interrumpidos por otros que lo están haciendo"
Responder Con Cita
  #4  
Antiguo 19-01-2022
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por FideRosado Ver Mensaje
explicame como debo continuar, si puedes adelantame algo..

¿Puedes poner un ejemplo de cómo la estás utilizando y los valores de entreda y salida que debería dar?
Hay que saber cómo lo estás haciendo para saber porqué te da el error.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #5  
Antiguo 19-01-2022
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
He hecho una prueba:

Código simple "chapuzero" :
Código Delphi [-]
unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm19 = class(TForm)
    ed1: TEdit;
    bt1: TButton;
    ed2: TEdit;
    ed3: TEdit;
    bt2: TButton;
    procedure bt1Click(Sender: TObject);
    procedure bt2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form19: TForm19;

implementation

uses
  uBase58;

{$R *.dfm}

procedure TForm19.bt1Click(Sender: TObject);
var
  cValor : UInt64;
begin
  cValor := StrToInt64(ed1.Text);
  ed2.Text := uBase58.Base58Encode( cValor );
end;

procedure TForm19.bt2Click(Sender: TObject);
var
  cValor : UInt64;
  i64 : Int64;
begin
  uBase58.Base58Decode(ed2.Text,cValor);
  i64 := cValor;   
  ed3.Text := IntToStr(i64);
end;

end.
Responder Con Cita
  #6  
Antiguo 19-01-2022
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Código simple "chapuzero" :

Funcionar, funciona...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Encriptar LUCHO Varios 5 06-08-2013 22:54:16
encriptar con md5 ebanibaldo PHP 6 30-01-2013 20:17:42
Encriptar y Decriptar egarc Conexión con bases de datos 4 14-09-2007 18:58:34
encriptar ¿? baby Varios 8 10-06-2007 18:34:48
encriptar xelip Varios 1 27-08-2006 22:47:10


La franja horaria es GMT +2. Ahora son las 01:26:48.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi