Miten Freepascalin md5-funktiolla voidaan merkkijono muuttaa hashiksi? Olen yrittänyt kaikilla tavoin, mutta vain pukkaa erroria ja mikä toi TMD5Digest oikein on?
FreePascal: MD5
4
754
Vastaukset
- Guillermo Pascal
vaikka toi paketti.
http://www.freepascal.org/packages/md5.html - Guillermo Pascal
..lukien sulla on puurot ja vellit sekaisin, hash tarkoitaa sekoittaa ei ole siis erillistä hash tilaa vaan vaan esim tässä tapauksessa md5 on se hash tila.
- Delphiguru
imuta netistä tämä:
http://synapse.ararat.cz/files/synapse.zip
Unit synacode:
function MD5(const Value: AnsiString): AnsiString;
Returns a binary string with a RSA-MD5 hashing of "Value" string.
Tuo Synapse on kokoelma TCP/IP -toiminnallisuutta toteuttavia luokkia (siis EI komponentteja), mukana myös UDP, HTTP, FTP jne.
Kyseinen MD5 toteutus ei sitten ole nopein mahdollinen, mutta jos ohjelmasi ei laske MD5 -summia gigatavujen kokoisista tietomääristä (esim. CD ja DVD -imaget) niin tuo ei välttämättä haittaa. - S85-58S
TMD5Digest on tyyppi jossa säilytetään tuo MD5-tiiviste.
Funktio MD5String muuntaa merkkijonon TMD5Digest-tyyppiseksi.
Jos haluat sen merkkijonoksi niin funktio MD5Print taas muuntaa TMD5Digest-tyypin merkkijonoksi.
(Kertaus: TMD5Digest on eräs tyyppi ja se on optimoitu MD5 käyttöön.
Vertaa esim. tyyppiä Byte joka esittää kokonaislukuja väliltä 0..225
tai TColor jossa on värejä esim. clRed )
FreePascal:ssa ja Lazaruksessa MD5-tiivisteen käsittelyfunktiot ovat MD5 unit:ssa.
Eli jos tätä haluaa käyttää niin niitä käyttävässä unit:n alussa olevassa uses-lauseessa oltava mainuttu myös md5.
Voinet kokeilla vaikkapa tälläistä funktiota:
function MjonoToHash( merkkijono: string ):string;
var
md5tavut:TMD5Digest;
begin
md5tavut := MD5String( merkkijono );
result := MD5Print( md5tavut );
end;
Tuon saat toimimaan kokeilua varten Lazaruksessa (Delphi vatinee MD5 unit:n) .
Luot Form:n jonne laitat Button, Edit ja Label-komponentit.
Generoit Button:lle tapahtuman-käsittelijän jota täydennät
seuraavasti:
procedure TForm1.Button1Click( Sender: TObject );
var
s1, s2 : string;
begin
s1 := Edit1.text;
s2 := MjonoToHash( s1 );
Label1.Caption := s2;
end;
Muista vielä lisätä toi funktio ja uses-lauseeseen MD5.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Vihreiden, SDP:n ja Vasemmistoliiton kannattajista selvästi alle puolet on miehiä
ja silti joku punafeministi valitti kokoomuksen naiskannattajien puutteesta, vaikka siellä on enemmän naisia kuin punavi922773On tiedossa, että venäjämieliset diggaavat diktatuurista venäjää
jossa ei esim. ole sanan- ja lehdistönvapautta. Mutta keitä nämä venäjän palvojat sitten ovat, ei heitä toki paljon ole612656Ensin Henry Novak ja nyt sitten se Irlannin tapaus
jossa mustaihoinen afrikkalainen mieshenkilö puukottaa valkoihoista maassa makaavaa miestä useita kertoa pään alueelle.712601Belfastissa käynnissä kunnon persuilu
Joku random mamu tekee rikoksen, niin sikäläiset naamiopersut kostavat tuhoamalla kantaävestön omaisuutta. Liekö siellä952561Julkista rahaa ei tule antaa senttiäkään yksityisille yrityksille
Julkinen raha on meidän yhteistä rahaa, ja se raha on tarkoitettu yhteiseen käyttöön, kuten esimerkiksi tuottamaan palve412306Tytti Tuppurainen: Suomen pakolaiskiintiö pitäisi nostaa 10 000 vuodessa
asia on faktaa, noin Tytti sanoi aiemmin. Kun taas Orpon hallitusohjelman mukaisesti Suomen pakolaiskiintiö on pudotettu1012126Islamovasemmistolaisuus - tälläista termiä käytetään
Termi tarkoittaa alunperin äärivasemmiston ja muslimifundamentalistien liittoa, jonka ytimessä oli antisemitismi. Isl502022Persujen kannatusromahdus tekee kesästä 2026 nautinnollisen
Satoi tai paistoi, niin Suomen kansalaisella on kuluvana kesänä syytä hymyyn. Niin upealta tuntuu persujen kannatusroma1411876Joskus tulee niin
Yksinäinen olo. Ei ole tarpeeksi ihmisiä elämässä, jotka tuntuisivat välitttävän aidosti. Jos mä ny saisin sairaskohtauk611715Mitä tapahtui?
Mitä tapahtui keskiviikkoiltana kun oli paljon hälytysajoneuvoja ja mediheli?171578