ئhGkNXg .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݋RceLoginFrmXgGetLoginParamsd!ceConstantValuesSysXgINIFILEDIRECTORYf<c&.TDMJ*TDMs DM#8 .2f(TDM.StringCodeam !Self! CodedWordb#Resultf CodedWordLength CodedWordCharNumber AsciiValue DecodedWordfc(TDM.EncodeStringa !Self! ClientCode#Result CryptBuff HexBuff HexCharf ic(TDM.DecodeStringa !Self !Key#Resultf Buff ic( TDM.EncryptItaa !Self! TheString #Resultf% SIMPLE_KEY P~1m2D3b4C5o6N7s8U9l0T1i2N3g4~ i Keyf Jumblefc(TDM.DBSaccLoginaA!Self!Database! LoginParams KeyStringfc(TDM.OpenMainServerDBa1!Self NewPPIniFile IniFileNamef LoginParamsf sDSNf sUserNamef sPasswordfc(TDM.SetDatabaseSetaQ!Self!TestSetb NewPPIniFile IniFileNamef LoginParamsf sDSNf sUserNamef sPasswordf lTestf sDBConnectionfc( TDM.DMCreatea !Self!Sender c( FinalizationX,Td\! c(DataMod!cGF:1 ,dbPPdata!- DBSaccLogin-DMCreate9- EncodeString- DecodeString-SetDatabaseSet - StringCode- EncryptIt-OpenMainServerDBcD@l1L|LHdbPPdata 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@DCHEƋRL3ZYYdhEE_^[].ini'C:\Docume~1\alluse~1\applic~1\ppsystem\PPDSN DBconnectionurpd PreProcessor USER NAMEPASSWORD USER NAME= PASSWORD=UjjIuSVWU3Uhd0d EEEU3E܍UE؍MܺM܍EM؀}tE EjEP(UË8U܍MjEP4UË8U܍MjEP@UË8U܍MEtEt Eu]EuUFH}t ELEPM\MtEM躈EE~5EPË8WM܋UEP(UË8WE~BM܋UEPË8WM܋UEP4UË8WE~BM܋UEPË8WM܋UEP@UË8WEËRL3ZYYdhEغEE_^[].ini'C:\Docume~1\alluse~1\applic~1\ppsystem\TestCfgMainCfgid1id2id3_TESTDB PreProcessor USER NAMEPASSWORDPPDSN DBconnectionurpdU3Uh%d0d 3ZYYdh,]Ã-m $H02prtv.J&L<>(@*BDF, .$9&& 2" 6|B ,$|@X|  86> Z|" 4.  |||@ l"   NN *R ^ \   " & &||| | TT| |" |" || , &$   6 &R ^  \         , , ,||||     T T|   ( $|"   ( $|"   ( "  9 EEE I IVYJ*Z@&* X ,J~^(F*$@Z`6"0b>j",FFP.&  *DD066, bJ j" BBBH&&  *@D@D@|u ^ )YQI9 v"  $" "*(J(,**.,,8cJJLNPRT1vxz|~;+c   K!%)-15=AEt p^ p@@@ XX~ƩЀ(pJJ Xҡ` pF `066 `8p>i i `PpJ  9@== E I a