Var OkResult:string; CipherData:string; Begin CipherData = '5792CF289F9A1BBE7083C40F816533D902'; OkResult:=string(OD_Dec(pchar(session_id),pchar(CipherData))); end;
{ char* OkResult; char PlainData[32]; char* CipherData="5792CF289F9A1BBE7083C40F816533D902"; OkResult = OD_Enc(session_id,CipherData); PlainData[0]=NULL; strcat(CipherData,OkResult); }
Dim OkResult As String Dim CipherData As String = "5792CF289F9A1BBE7083C40F816533D902" OkResult = OD_Dec(session_id,CipherData)