|
Welcome to the GSM-Forum forums. You are currently viewing our boards as a guest which gives you limited access to view most discussions and access our other features. Only registered members may post questions, contact other members or search our database of over 8 million posts. Registration is fast, simple and absolutely free so please - Click to REGISTER! If you have any problems with the registration process or your account login, please contact contact us . |
|
Register | FAQ | Donate | Forum Rules | Root any Device | ★iPhone Unlock★ | ★ Direct Codes ★ | Direct Unlock Source |
GSM Programming & Reverse Engineering Here you can post all Kind of GSM Programming and Reverse Engineering tools and Secrets. |
| LinkBack | Thread Tools | Display Modes |
09-09-2017, 23:35 | #1 (permalink) |
Insane Poster Join Date: Jan 2017
Posts: 95
Member: 2674769 Status: Offline Thanks Meter: 17 | ESN from MEID HASH SHA` proplem! 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 |
09-10-2017, 11:45 | #2 (permalink) |
No Life Poster Join Date: Jan 2004 Location: Unknown Age: 39
Posts: 9,227
Member: 49752 Status: Offline Sonork: QQ:1474246528 Thanks Meter: 6,085 | @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. |
09-11-2017, 18:25 | #4 (permalink) | |
No Life Poster Join Date: May 2012 Location: BHARAT
Posts: 1,571
Member: 1766148 Status: Offline Sonork: 100.1614494 Thanks Meter: 490 | Quote:
| |
The Following User Says Thank You to Nishith For This Useful Post: |
09-22-2017, 22:17 | #5 (permalink) | |
Insane Poster Join Date: Jan 2017
Posts: 95
Member: 2674769 Status: Offline Thanks Meter: 17 | hiiiiiiiiiiiiiiiii Quote:
import hashlib Code: 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 | |
10-02-2017, 22:55 | #6 (permalink) | |
Insane Poster Join Date: Jan 2017
Posts: 95
Member: 2674769 Status: Offline Thanks Meter: 17 | Quote:
this good and working but what type of calculator is this is thare similer for Delphi | |
10-03-2017, 01:20 | #7 (permalink) |
Insane Poster Join Date: Jan 2017
Posts: 95
Member: 2674769 Status: Offline Thanks Meter: 17 | 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 |
The Following User Says Thank You to doctorsu For This Useful Post: |
Bookmarks |
| |
|