Index
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Rejestracja
Forum Naukowe Koło Chemików Uniwersytetu Gdańskiego Strona Główna
->
Drogi Gościu!!
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
TAK
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz HTML w tym poście
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
Ogólne
----------------
Ogłoszenia
Drogi Gościu!!
Imprezy
----------------
Imprezy naukowe
Inne
----------------
Hyde Park
Propozycje
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>tods5eshoes</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/bluetabs/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 21:59, 27 Lut 2011<span class="gen"> </span> Temat postu: mens tods shoes 5553</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">[ft=,+0,]标题：用Delphi编写WindowsPE文件随机区段名器 <br />链接：http://www.unpack.cn/viewthread.php?tid=16931 <br />作者：pathletboy <br />日期：2007-8-31 23:00代码: <br />unit MainFormUnit; <br />{ <br />Written by pathletboy <br />2007.08.31 <br />} <br />interface <br />uses <br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, <br /> Dialogs, StdCtrls; <br />type <br /> TForm1 = class(TForm) <br />Label1: TLabel; <br />Button1: TButton; <br />OpenDialog1: TOpenDialog; <br />Memo1: TMemo; <br />Button2: TButton; <br />procedure Button2Click(Sender: TObject); <br />procedure Button1Click(Sender: TObject); <br /> private <br />{ Private declarations } <br /> public <br />{ Public declarations } <br /> end; <br />var <br /> Form1: TForm1; <br />implementation <br />{$R *.dfm} <br />function CheckValidPE(F: string): Byte; //检查PE文件有效性 <br />var <br /> FS: TFileStream; <br /> doshead: IMAGE_DOS_HEADER; <br /> pehead: IMAGE_NT_HEADERS; <br />begin <br /> if not (FileExists(F)) then <br /> begin //判断文件是否存在 <br />result := 0; <br />exit; <br /> end; <br /> try <br />try <br /> FS := TFileStream.Create(F,<a href="http://www.todsshop.org/" target="_blank" class="postlink">mens tods shoes</a>, fmOpenRead); <br /> if FS.Size < $1000 then <br /> begin //判断文件大小，小于0x1000的判定为非有效PE <br /> result := 0; <br /> exit; <br /> end; <br /> FS.ReadBuffer(doshead, sizeof(IMAGE_DOS_HEADER)); <br /> if doshead.e_magic <> IMAGE_DOS_SIGNATURE then <br /> begin //判断Dos头 <br /> result := 0; <br /> exit; <br /> end; <br /> FS.Seek(doshead._lfanew, SoFromBeginning); <br /> FS.ReadBuffer(pehead, sizeof(IMAGE_NT_HEADERS)); <br /> if pehead.Signature <IMAGE_NT_SIGNATURE> 0 then <br /> Button2.Enabled := True <br />else <br /> Button2.Enabled := False; <br /> end; <br />end; <br />procedure TForm1.Button2Click(Sender: TObject); <br />begin <br /> if ProcessRandomSectionNames(Label1.Caption, Memo1) then <br />Memo1.Lines.Add('处理完毕!') <br /> else <br />Memo1.Lines.Add('处理失败!'); <br />end; <br />end.函数CheckValidPE 检测PE有效性,及判断PE文件为EXE或DLL <br />函数GetRandomSectionName 生成随机区段名 <br />函数ProcessRandomSectionNames 处理随机区段名 <br />附件为代码及编译好的EXE <br />下载链接：http://www.unpack.cn/attachment.php?aid=11254 <br />------------------------------------------ <br />本文转载自：■龙■： 用Delphi编写Windows PE文件随机区段名器 <br />用QQ邮箱阅读空间订阅■龙■ <br />什么是阅读空间? <br />此日志来自QQ邮箱！方便快捷写Qzone的新方式,<a href="http://www.hugobossshop.org/" target="_blank" class="postlink">hugoboss</a>，详情请进>>Topics related articles：</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/bluetabs/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
Bluetab template design by
FF8Jake
of FFD
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2002 phpBB Group
Regulamin
