Subversion Repositories delphiutils

#Ž¨¾Q<^ñ˜FileMD5Main–<rFileMD5Main.dfm`¾Q<pFileMD5Main.pasŽ¾Q<dSystemfTObject|ê®ìf
AnsiString¶+{Ÿfstring¶+{ŸgTObject.Dispatchµ
ĄgTObject.NewInstance·
ĄgTObject.FreeInstance¸
ĄfInt64(ïÁêgTObject.Free¢
Ąg@LStrAddRef”`Eg@HandleFinallyé`pÅg@LStrClr\ª«>g
LoadResString[WbgExitg@LStrCmpé`pÅg@LStrAsg‘Ԝg
@LStrArrayClrüŸfInteger       ™fÂg
ParamCount-¹{ZgParamStrrÅöf        PAnsiChar“u½RfPChar“u½Rg   @LStrCatNé`pÅg@LStrToPChar$ÉÇcdSysInitg        HInstanceW6ûKcdWindowsg     SW_NORMAL¯}ç1cdMessagescdSysUtilsg
fmOpenRead¬}ç1gfmShareDenyWrite~ç1gExtractFileNameÓ¢}GgFormat*¿gDirectoryExists'h'&g
FileExists'h'&gExtractFilePathÓ¢}GcdVariantscdClassesgTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqfTFileStream4¸îµg.TFileStreamŒÌgTFileStream.CreateZØNcdGraphicscdControlsgTWinControl.AssignTo<¾ßgTWinControl.CanAutoSize<¾ßgTWinControl.CanResize<¾ßgTWinControl.ConstrainedResize<¾ßgTWinControl.CreateHandle<¾ßg#TWinControl.CustomAlignInsertBefore<¾ßgTWinControl.CustomAlignPosition <¾ßgTWinControl.DestroyWnd$<¾ßg!TWinControl.DockReplaceDockClient'<¾ßgTWinControl.GetClientOrigin5<¾ßgTWinControl.GetControlExtents7<¾ßgTWinControl.GetDeviceContext8<¾ßgTWinControl.SetParentBackgroundW<¾ßgTWinControl.ShowControlY<¾ßg+TWinControl.UpdateControlOriginalParentSize[<¾ßgTWinControl.Invalidate<¾ßgTWinControl.Repaint•<¾ßgTWinControl.SetBounds˜<¾ßgTWinControl.Update›<¾ßgTControl.GetActionÄ×ïYgTControl.GetDragImagesÊ×ïYgTControl.GetEnabledË×ïYg!TControl.GetFloatingDockSiteClassÍ×ïYgTControl.SetAutoSizeÞ×ïYgTControl.SetDragModeß×ïYgTControl.SetEnabledà×ïYgTControl.SetNameá×ïYgTControl.SetBiDiModeå×ïYgTControl.InitiateAction(ØïYgTControl.SetTextq×ïYgTControl.GetTextE×ïYgTWinControl.GetHandleœ;¾ßcdFormsfTForm!€³5g.TFormT‘‡gTCustomForm.AlignControls~C)gTCustomForm.CreateParams~C)gTCustomForm.CreateWindowHandle~C)gTCustomForm.CreateWnd~C)gTCustomForm.DefineProperties~C)gTCustomForm.DestroyHandle~C)gTCustomForm.DestroyWindowHandle~C)gTCustomForm.DoCreate~C)gTCustomForm.DoDestroy ~C)gTCustomForm.GetClientRect%~C)gTCustomForm.GetFloating'~C)gTCustomForm.Loaded*~C)gTCustomForm.Notification+~C)gTCustomForm.PaintWindow-~C)gTCustomForm.QueryInterface/~C)gTCustomForm.ReadState0~C)gTCustomForm.RequestAlign1~C)gTCustomForm.SetParentBiDiMode3~C)gTCustomForm.SetParent5~C)gTCustomForm.UpdateActions6~C)gTCustomForm.ValidateRename8~C)gTCustomForm.WndProc:~C)gTCustomForm.Resizing;~C)gTCustomForm.Createt~C)gTCustomForm.CreateNewu~C)gTCustomForm.Destroyv~C)gTCustomForm.AfterConstructionw~C)gTCustomForm.BeforeDestructionx~C)gTCustomForm.CloseQueryz~C)gTCustomForm.DefaultHandler{~C)gTCustomForm.SetFocusˆ~C)gTCustomForm.SetFocusedControl‰~C)gTCustomForm.ShowModal‹~C)gTCustomForm.WantChildKeyŒ~C)g%TScrollingWinControl.AdjustClientRectµ<Åg&TScrollingWinControl.AutoScrollEnabled·<Åg%TScrollingWinControl.AutoScrollInView¸<ÅgApplicationç_šgTApplication.GetExeNameJÓZ2fTCustomFormI].‘gTCustomForm.Closey~C)cdDialogsgShowMessageÞgShowMessageFmtl°Ø¦cdStdCtrlsfTEditPõøœfTLabelÝ^L€g.TEdit3ÉÖîg.TLabelÀ2*ÒcdShellAPIgShellExecuteˆÙcemd5gMD5PrintM¬Ø®gMD5FileM¬Ø®ce     DropFilesgForm2' »³fTForm2:¢³g
TForm2.SetMsgBZ·Kg
TForm2.SetCapCZ·Kc5FileMD5Main€_¸ŽÏc5Systemc5SysInit4c5Windows8c5Messages<c5SysUtils>c5VariantsNc5ClassesPc5Graphics`c5Controlsbc5Forms¤c5Dialogsüc5StdCtrlsc5ShellAPIc&.TForm1€‹_ªâ*TForm1ˆ¨‹Ì Form1æ¶ñå07.2F 5MD5!c5      DropFiles-c3lng_file_not_found%
.JÿÿÿÿThe file "%s" was not found!3lng_is_a_dir%
.hÿÿÿÿ+MD5 checksum can only calculated for files.(
MyFileSizeI!fnfø Resultfà fsfØcj3lng_fatal_error@k%
.*ÿÿÿÿFatal error!(TForm1.CalcMD5€Ô«á(a˜"!Self%  ZERO_HASH
Rÿÿÿÿ d41d8cd98f00b204e9800998ecf8427e 
hføcœ
¹(TForm1.ChooseFile€Ó«á(
ˆ"!Self!
fføcœ
Éj3
lng_syntax@k%
.8ÿÿÿÿSyntax: %s filename(TForm1.FormShow€Ñ«á(á   ˆ"!Self!Sender 
ffø nffð 
i

cœ
Ý(Finalization€é`pÅ\!"cž(FileMD5Main€!"cžþGñFH}á
y
‘þÐ&,Edit1

œ
ù,Edit2
‘
œ
ý,Label1
¡
œ

,Label2
±
œ
.FormShow
î݈œ
      ,choosenfileÁ
œ

.
ChooseFileîɈœ
.CalcMD5œ
cD €ÿÿÿ @l-LP
b
š
«
t
p²
`Edit1dEdit2h
Label1l
Label2
FormShowTForm1TForm1LhFileMD5MainU‹ìƒÄì‰Eü‹Eüè3ÀUhdÿ0d‰ j ‹Mü²
¡è‰Eì3ÀUhddÿ0d‰ ‹Eì‹ÿ‰Eð‰Uô3ÀZYYd‰hk‹EìèÃéëð3ÀZYYd‰hˆEüèÃéëð‹Eð‹Uô‹å]ÃU‹ìƒÄèS3҉Uè‰Uü‹Ø3ÀUhŸdÿ0d‰ U싃pèEìUü苃pèƒúuƒøt&‹Eüº´èuUè¸è‹Eèèë‹Uü‹ƒ`è3ÀZYYd‰h¦EèèEüèÃéëè[‹å]Ãÿÿÿÿ d41d8cd98f00b204e9800998ecf8427eU‹ìƒÄøS3ɉMø‰Uü‹Ø‹Eüè3ÀUhwdÿ0d‰ ƒp‹UüèUø‹Eüè‹Uø‹ƒhè‹Uü‹ƒdè3ÀZYYd‰h~EøºèÃéëë[YY]ÃU‹ì¹jjIuùQSVW‹Ø3ÀUhVdÿ0d‰ èH‡EôPU䡋è‹EäUèè‹Eè‰EìÆEðEìPUà¸è‹Eà3ÉZè‹Uô¡‹èU܋Ãè‹UÜ¡‹è¡‹‹ÿ’ü‹Ãèéc
Uü¸
è‹Eüè„Àt!Uظè‹EØè‹Ãèé)
‹Eüè„Àu2UÔ¸è‹EÔP‹Eü‰EìÆEðUì3ÉXè‹ÃèéëèHŽÎè‹ðƒîŒ¾F¿Uø‹Çèj
hlUÈ¡‹è‹EȍUÌèÿuÌhlEкè‹EÐèPhlÿuøhlEĺè‹EÄèPhlU¼¡‹èÿu¼hlEÀºè‹EÀèPhp‹ÃèPèGN…Hÿÿÿ‹Uü‹Ãè‹Ãè3ÀZYYd‰h]E¼ºèEÜèEàºèEôºèÃéëÉ_^[‹å]Ãÿÿÿÿ
"openU‹ì3ÀUh%dÿ0d‰ ÿ3ÀZYYd‰h,Ãéëø]Ã-
Ãm%y
y
y
}
y
y
y
¨
V
Þ
à

ä


Ü
d
²
X
À
Â
È
˜
R
Ò
T
Æ
Ø
h
f
j
Š
v
¼
z
Œ
Ž
¾

Ê
’
”
–
Î
Ì
š
Ô
œ
‚
„
†
ˆ
î
ª
l
¬
®
°
n
p
´
¶
r
t
x
Ä
|
~
€
æ
ð
ò
Ö
¸
º
Ð
Ú
â
è
ê
ì


yt
Ý,

}
}
y
¦(‘
6™
6¡
¡$
\
^
¡@
¡
¡ ±
6¹*
¹()%¡$
¹
 
±
þ ž
¹pÉ*
É("Džž
É$Õ
6Ý2
Ý(&ôöD,
Õ
F19 1=
1"ú$*H
™
þúJ
‘
2
ú((6*
ÝôöL
Ý02
Ý
Ý02
Ýôö
Ý02
ݢ$ɹ
Ý$$$Bõ
õ
…
õ
…
XP¡>(4 V>2H*®N2VF¦2
*
L
,™ô5‘ú’“JV}}}}}Ý ˜}
}"É(&Š}&¹*(b}(0‘D™F¡J¥J©L­NýZ½me\bÁf±jÅnÍÑŠáB.dcå˜éœíœñžÕ¢5
ý¬5ý®øyý°õø”8¡ (r¹`0½>½¸þ½æ½þÉ@2ÍN͸þÝÀˆpáFáÅþáÙá­þáÁá¥þá¹ñA
ñ!þáeþõ  a