ئhGA(ִ.Q g .TStringList<*gTStrings.GetValueF*cdSysUtilsZkgIntToHex*gStrToIntg ChangeFileExtwWgExtractFileName~ cdMessagesZkcdWindowsZkcdSysInitZkcdSystemZkfTObject.fString8f AnsiString8fBooleanNcgTObject.Dispatch݋RgTObject.DefaultHandler݋RgTObject.NewInstance݋RgTObject.FreeInstance݋RfInteger|ogLengthg@LStrLen?gOrdgChrg@LStrClrg @LStrFromCharnwg@LStrCatX,Tdg @LStrLAsgX,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,Tdg @LStrCat3X,TdgCopyg @LStrCopyX,TdgIncgTObject.Create݋RgParamStrgTrue1ogFalse1og TObject.Free݋RceMain ceLoginFrm gGetLoginParamsd!ceConstantValues gINIFILEDIRECTORY*%;c&.TDM,QU*TDMgi DMi< .2f(TDM.StringCode*m !Self! CodedWordb#Resultf CodedWordLength CodedWordCharNumber AsciiValue DecodedWordfc(TDM.EncodeString* !Self! ClientCode#Result CryptBuff HexBuff HexCharf ic(TDM.DecodeString* !Self !Key#Resultf Buff ic( TDM.EncryptIt*a !Self! TheString #Resultf% SIMPLE_KEY P~1m2D3b4C5o6N7s8U9l0T1i2N3g4~ i Keyf Jumblefc(TDM.DBSaccLogin*A!Self!Database! LoginParams KeyStringfc(TDM.OpenMainServerDB*A !Self NewPPIniFile IniFileNamef LoginParamsf sDSNf sUserNamef sPasswordfc(TDM.SetDatabaseSet*!Self!TestSetb NewPPIniFile IniFileNamef LoginParamsf sDSNf sUserNamef sPasswordf lTestf sDBConnectionfc( TDM.DMCreate* !Self!Sender c( FinalizationX,Td\! c(DataMod!cGF:a ,dbPPdata!, dbQuetzal1,dbQuoteA,dbMQuoteQ- DBSaccLogin-DMCreate=- EncodeString- DecodeString-SetDatabaseSet- StringCode- EncryptIt-OpenMainServerDBcD@lTL|X HdbPPdataL dbQuetzalPdbQuoteTdbMQuote DBSaccLoginDMCreate EncodeString DecodeStringSetDatabaseSetTDMTDMLDataModUSVW3ۉ]]MU3Uhd0d E؍E~*E3ۊ\8EUEGNuۋEU3ZYYdhE_^[]UjjjSVW3Uhd0d M֋E؅~DMED0EHuEMEUFKuNjU3ZYYdhE_^[]0UjjjjjSVWM3Uhd0d BEPӋMEEЍEUE;|MU3ZYYdhE_^[]$UjjjjSVWM3Uhd0d EE؋;|ދ~)ETML2UECNu܋EU3ZYYdhE_^[]~1m2D3b4C5o6N7s8U9l0T1i2N3g4~UjjSV3Uh{d0d EMUUEM3ZYYdhE^[YY]ibmsysUSERNAMEPASSWORDU3QQQQQQQSVW3Uhd0d EU3EUEM躸MEMjEPƋ8jEPƋ8UMjEP Ƌ8UMEtEtEEu UCHEPM,MDEMXEE~EPƋ8WE~"MUEPƋ8WE~"MUEP Ƌ8WE~uE~iEMlUEQ4EM캀UEQ4CHt 3ҋCHUCHUCHCH@)CH@DCHEEEjEPƋ8jEPƋ8UMjEPƋ8UMEtEtEEu UCLEPMMDEMXEE~EPƋ8WE~"MUEPƋ8WE~"MUEPƋ8WE~}E~qER@EMlUEQ4EM캀UEQ4CLt 3ҋCLUCLUCLCL@)CLEEEjEPƋ8jEPƋ8UMjEPƋ8UMEtEtEEu UCPEPMMDEMXEE~EPƋ8WE~"MUEPƋ8WE~"MUEPƋ8WE~}E~qER@EMlUEQ4EM캀UEQ4CPt 3ҋCPUCPUCPCP@)CPEEE3ҋCTEƋRL3ZYYdhEE_^[].iniC:\ProgramData\ppsystem\PPDSN DBconnectionurpd PreProcessor USER NAMEPASSWORD USER NAME= PASSWORD= QuetzalDSNurqpdq QuetzalSCQuoteDSNurspds Quote SystemUjjIuSVWU3Uh2d0d EEEU3E܍UE؍MܺHM܍EXM؀}tE| EຌjEPUË8U܍MjEPUË8U܍MjEPUË8U܍MEtEt Eu]EuUFH}t EEPMMEMEE~5EP Ë8WM܋UEPUË8WE~BM܋UEP8 Ë8WM܋UEPUË8WE~BM܋UEPD Ë8WM܋UEPUË8WjEPPUË8U܍MjEP\UË8U܍MjEPhUË8U܍MEtEt Eu]EuUFL}t EEPMMEMEE~5EPt Ë8WM܋UEPPUË8WE~BM܋UEP Ë8WM܋UEP\UË8WE~BM܋UEP Ë8WM܋UEPhUË8WjEPUË8U܍MjEPUË8U܍MjEPUË8U܍MEtEt Eu]EuUFP}t EEPMMEMEE~5EP Ë8WM܋UEPUË8WE~BM܋UEP Ë8WM܋UEPUË8WE~BM܋UEP Ë8WM܋UEPUË8WEËRL3ZYYdh9EغEE_^[].iniC:\ProgramData\ppsystem\TestCfgMainCfgid1id2id3_TESTDB PreProcessor USER NAMEPASSWORDPPDSN DBconnectionurpdid4id5id6 QuetzalDSNurqpdqid7id8id9QuoteDSNurspdsU3Uh%d0d 3ZYYdh,]Ã-m1 $H02prtv.J&L<>(@*BDF, $=&&2" 6|B ,$|@X|  86> Z|" 4.  |||@ l"   NN *R ^ \   " & &||| | TT| |" |" || , &$  " & &||| | TT| |" |" ||. , &" " & &||| | TT| |" |" ||. , &" 6&R ^ \     ,,,||||  TT| ($|" ($|" (*,,,||||  TT| ($|" ($|" (*,,,||||  TT| ($|" ($|" (" = III M M5^ J*Z@&* X ,J~^(F*$@Z `6"0b>j",FFP.&  *DD066, ,FFP.&  *DD066,,FFP.&  *DD066,DbJ j" BBBH&&  *@D@D @BBBH&&  *@D@D @BBBH&&  *@D@D@|  ^ 9iU]= "$&,.0t p^  p@@@ XX~ȩҀ(pJJ Xԡ` pF `066 `8p>`PpJ=@AA I M a