ESN from MEID HASH SHA` proplem!

[doctorsu]

need to calculate hash for meid to get esn hex Delphi code

put thare is proplem

I test the unit with abc it worked ok like this

Password := 'abc';
Digest := CalcSHA1 (Password [1], Length (Password));
Str := SHA1DigestToHex (Digest);
msg(str,clred);

the hash is
a9993e364706816aba3e25717850c26c9cd0d89d ok no proplem


but for example I put this meid = A10000009296F2

Password := 'A10000009296F2';
Digest := CalcSHA1 (Password [1], Length (Password));
Str := SHA1DigestToHex (Digest);
msg(str,clred);

the hash calculated is
4cf522d69e6334472377eed5959dbfaa422005dc it is wrong

need good calculator for Delphi please

[stanner_austin]

@doctorsu
In programming before running start walking first.
Basic thing is first to learn is what data is .. ascii or binary.
ascii A10000009296F2 = 4131303030303030393239364632
binary A10000009296F2 = A10000009296F2
sha1 of binary is 2D0E6EFEA8F8082C9703CF6636C4A2195C75B7ED

8075B7ED is your esn.

[doctorsu]

can you explain more how did you get the sha1 of binary

2D0E6EFEA8F8082C9703CF6636C4A2195C75B7ED

I have exe console for this but I wont to write in Delphi

[Nishith]

Originally Posted by doctorsu

can you explain more how did you get the sha1 of binary

2D0E6EFEA8F8082C9703CF6636C4A2195C75B7ED

I have exe console for this but I wont to write in Delphi

This might be helpful: SHA-1 Calculator

[doctorsu]

Originally Posted by Ni****h

This might be helpful: SHA-1 Calculator

solved python


import hashlib

meid = raw_input("").upper()

s = hashlib.sha1(meid.decode('hex'))
    #decode the hex MEID (convert it to binary!)

pesn = "80" + s.hexdigest()[-6:].upper()
    #put the last 6 digits of the hash after 80

print " " + pesn

[doctorsu]

Originally Posted by Ni****h

This might be helpful: SHA-1 Calculator

this good and working but what type of calculator is this

is thare similer for Delphi

[doctorsu]

done in Delphi finally

HexStr := 'A10000009296F2';
BinaryStream := TMemoryStream.Create;
try
BinaryStream.Size := Length(HexStr) div 2;
if BinaryStream.Size > 0 then
begin
HexToBin(PAnsiChar(HexStr), BinaryStream.Memory, BinaryStream.Size);
// read into the buffer
j2 := BinaryStream.Read(buffer,Sizeof(buffer));
x := TDCP_sha1.Create(nil);
x.Init;
x.Update(buffer,j2);
SetLength(HashDigest, x.GetHashSize div 8);
x.Final(HashDigest[0]);
for j := 0 to Length(HashDigest) - 1 do // convert it into a hex string
s := s + IntToHex(HashDigest[j],2);
end;
finally
x.Free;
BinaryStream.Free;
end;
trim(s);
msg(s,clyellow);


this is outut tmemo1

2D0E6EFEA8F8082C9703CF6636C4A2195C75B7ED


thanks

stanner_austin
Ni****h