equal
deleted
inserted
replaced
66 var ctx: TSHA1Context; |
66 var ctx: TSHA1Context; |
67 dig: TSHA1Digest; |
67 dig: TSHA1Digest; |
68 s: shortstring; |
68 s: shortstring; |
69 begin |
69 begin |
70 SHA1Init(ctx); |
70 SHA1Init(ctx); |
71 SHA1UpdateLongwords(ctx, @Land, sizeof(Land) div 4); |
71 SHA1UpdateLongwords(ctx, @Land, sizeof(Land)); |
72 dig:= SHA1Final(ctx); |
72 dig:= SHA1Final(ctx); |
73 s:='M{'+inttostr(dig[0])+':' |
73 s:='M{'+inttostr(dig[0])+':' |
74 +inttostr(dig[1])+':' |
74 +inttostr(dig[1])+':' |
75 +inttostr(dig[2])+':' |
75 +inttostr(dig[2])+':' |
76 +inttostr(dig[3])+':' |
76 +inttostr(dig[3])+':' |