Real Software Forums

The forum for Real Studio and other Real Software products.
[ REAL Software Website | Board Index ]
It is currently Tue Jun 25, 2019 10:57 am
xojo

All times are UTC - 5 hours




Post new topic Reply to topic  [ 1 post ] 
Author Message
 Post subject: Problem with CertTools
PostPosted: Sat Feb 26, 2011 7:17 am 
Offline

Joined: Sat Feb 26, 2011 7:11 am
Posts: 2
Great post!

However I'm having a problem compiling my App now CertTools is in the project.
The build fails saying "no such method or property' in the 'IsValid' Method of CertTools:
// Returns true if the given receipt (which comes from 'ReadReceipt') is valid
// for the given GUID (which is a unique code for a particular machine)

#if TargetMacOS
declare sub SHA1 lib "/usr/lib/libcrypto.dylib" (d as Ptr, n as Int32, md as Ptr)

if receipt <> nil then
dim input as MemoryBlock
input = guid + receipt.Value(Keys.kReceiptOpaqueValue) + receipt.Value(Keys.kReceiptBundleIdentiferData)
dim hash as new MemoryBlock(20) ' SHA_DIGEST_LENGTH
SHA1 (input, input.Size, hash)
dim hashFromReceipt as String = receipt.Value(Keys.kReceiptHash)
if StrComp (hash, hashFromReceipt, 0) = 0 then
return receipt.Value(Keys.kReceiptBundleIdentifer) = bundleID
end if
end if
#endif


The problem is at:
input = guid + receipt.Value(Keys.kReceiptOpaqueValue)


Any idea what I might be doing wrong (everything builds fine without CertTools in the project)


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 1 post ] 

All times are UTC - 5 hours


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group