Var OkResult:string; PlainData:string; Begin PlainData:='53616D706C65537472696E6744617461'; OkResult:=string(OD_EncWithMemoryKey(pchar(session_id),pchar(PlainData))); end;
{ char* OkResult; char CipherData[34]; char* PlainData="53616D706C65537472696E6744617461"; OkResult = OD_EncWithMemoryKey(session_id,PlainData); CipherData[0]=NULL; strcat(CipherData,OkResult); }
Dim OkResult As String Dim PlainData As String = "53616D706C65537472696E6744617461" OkResult = OD_EncWithMemoryKey(session_id,PlainData)