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