Mir2 Actor.pas
if (IsFace) and (FaceIndex > -1) then
begin
d := aFrmMain.WFaceimg.Images[FaceIndex * 10 + (FaceFram) mod 8]
/// if HorseSurface<>nil then
// dSurface.Draw (dx+shiftx, dy + hpy + ShiftY-60, d.ClientRect, d, TRUE)
// else
if d <> nil then
begin
if HorseSurface <> nil then
...
一个简单的端口扫描程序：
addstr = "发现端口" & Str(port) & "打开" & Space(5) Select Case port Case 7 plus = "ECHO服务" Case 21 plus = "FTP服务★★★★★" Case 25 plus = "SMTP服务★★" Case 43 plus = "Whois服务" Case 53 plus = "DNS服务☆" Case 80 plus = "HTTP服务★★★★★" Case 81 plus = "HOSTS2名称 ...
DESProcess
FILE *mfp,*cfp
int ttch=0,xorRes,ttbitdiff=0
char mch,cch
float bdiff=0
if((mfp=fopen(mfile,"r"))==NULL)
{cout<<"Cannot open the file to compare"<<endl }
if((cfp=fopen(cfile,"r"))==NULL)
{cout<<"Cannot open the file to compare"<<endl }
else
{
while(!feof(mfp)&!feof(cfp))
...
