Ktoś używał DcPCryptV2 pod delphi 10.3?

Ktoś używał DcPCryptV2 pod delphi 10.3?
Bartosz Mikołajczyk
  • Rejestracja:ponad 6 lat
  • Ostatnio:prawie 3 lata
  • Postów:20
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

Kopiuj
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

edytowany 2x, ostatnio: flowCRANE
MJ
Mnie ta biblioteka nie chciała działać i używam zamiast tego FlyUtilsEncrypt
Patryk27
Moderator
  • Rejestracja:ponad 17 lat
  • Ostatnio:prawie 2 lata
  • Lokalizacja:Wrocław
  • Postów:13042
0

Co to znaczy nie działa?


Bartosz Mikołajczyk
  • Rejestracja:ponad 6 lat
  • Ostatnio:prawie 3 lata
  • Postów:20
0

Nie odkodowuje poprawnie tekstu

Patryk27
Moderator
  • Rejestracja:ponad 17 lat
  • Ostatnio:prawie 2 lata
  • Lokalizacja:Wrocław
  • Postów:13042
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.


edytowany 3x, ostatnio: Patryk27
robertz68
  • Rejestracja:ponad 18 lat
  • Ostatnio:4 dni
  • Lokalizacja:Zielona Góra
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)

WL
  • Rejestracja:ponad 21 lat
  • Ostatnio:15 dni
  • Postów:1083
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ć.

Bartosz Mikołajczyk
  • Rejestracja:ponad 6 lat
  • Ostatnio:prawie 3 lata
  • Postów:20
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

edytowany 1x, ostatnio: Bartosz Mikołajczyk
Patryk27
Co to jest skalowanie posta? :-)
Marius.Maximus
Nie ma co kasować ! Forum robi też za ścianę wstydu ;)
flowCRANE
Moderator Delphi/Pascal
  • Rejestracja:ponad 13 lat
  • Ostatnio:około 7 godzin
  • Lokalizacja:Tuchów
  • Postów:12174
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.


Pracuję nad własną, arcade'ową, docelowo komercyjną grą z gatunku action/adventure w stylu retro (pixel art), programując silnik i powłokę gry od zupełnych podstaw, przy użyciu Free Pascala i SDL3. Więcej informacji znajdziesz na moim mikroblogu.
KA
Podejrzewam, że działającym byłby kod podany na początku gdyby podczas testów operował na tym samym Edit.
flowCRANE
Pewnie tak, jednak dobry zwyczaj nakazuje podzielenie się działającym rozwiązaniem po jego znalezieniu.

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.