Ktoś używał DcPCryptV2 pod delphi 10.3?

0

Witam ktoś może z was używał tego komponentu pod delphi 10.3 ?
Znalazłem ten komponent do wersji Delphi 10.2 zainstalowałem.

Skopiowałem przykładowy kod z dokumentacji

procedure TFormMD5.Button1Click(Sender: TObject);
var key:string;
begin
 key:='123Haslo321#';
 DCP_rc41.InitStr(key,TDCP_sha1);
 Memo1.Lines.Add(DCP_rc41.EncryptString(EditMD5.Text));
end;

procedure TFormMD5.ButtonSHA256Click(Sender: TObject);
var key:string;
begin
 key:='123Haslo321#';
 DCP_rc41.InitStr(key,TDCP_sha1);
 Memo1.Lines.Add(DCP_rc41.DecryptString(EditSHA256.Text));
end;

Pod delphi 7 wszystko działa poprawnie koduje i dekoduje tekst
ktoś wie czemu to nie działa pod delphi 10.3

0

Co to znaczy nie działa?

0

Nie odkodowuje poprawnie tekstu

1

Tyle mogłem się przecież sam domyślić.

Co to znaczy nie odkodowuje poprawnie?
Skoro niepoprawnie, to jakie wyniki otrzymujesz?

No i przede wszystkim: dlaczego muszę Cię ciągnąć za język? Po prostu wrzuć przykłady, powiedz tutaj wychodzi tak i tak, a miało być tak i tak etc.

2

jak nic coś z kodowaniem znaków. W nowym Delphi string na platformie Win32 jest wewnętrznie przedstawiany jako UnicodeString. Użyj jako klucza np. zmiennej typu ShortString. Może pomoże.
http://docwiki.embarcadero.com/RADStudio/Rio/en/String_Types_(Delphi)

2
Bartosz Mikołajczyk napisał(a):

/ciach/

Pod delphi 7 wszystko działa poprawnie koduje i dekoduje tekst

Aaaa... to dużo tłumaczy ;-)

ktoś wie czemu to nie działa pod delphi 10.3

Ktoś pewnie wie.
Podmień sobie typ zmiennych ze string na AnsiString i daj znać.

0

Sorki wszystko działa w kodzie literówkę zrobiłem i za szybko posta napisałem. Dzięki za pomoc. Przepraszam was za poświęcony czas. Moderatora proszę o skasowanie posta

0
Bartosz Mikołajczyk napisał(a):

Moderatora proszę o skasowanie posta

Zamiast kasować wątek (co swoją drogą nie ma sensu, bo nikomu jego istnienie nie przeszkadza), lepiej by było gdybyś pokazał działający fragment kodu. W ten sposób pokażesz że faktycznie błąd leżał po Twojej stronie, a każdy kto w przyszłości trafi tutaj z wyszukiwarki, będzie mógł zapoznać się z działającym przykładem użycia tej biblioteki. Będzie to miało o wiele większą wartość, niż zatarcie śladów po swoim błędzie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1