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
dsurface.Draw(SayX - d.Width div 2, dy + hpy + ShiftY - 60,
d.ClientRect, d, True)
else
dsurface.Draw(SayX - d.Width div 2, dy + hpy + ShiftY - 50,
d.ClientRect, d, True)
end
end
end
一個簡單的端口掃描程序:
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名稱服務" Case 99 plus = "NCX99后門★★★★★" Case 110 plus = "POP3服務★★★★★" Case 111 plus = "Sun RPC服務★★" Case 135 plus = "本地服務" Case 137 plus = "NETBIOS 名稱服務/流影POP" Case 138 plus = "NETBIOS 數據存儲服務" Case 139 plus = "NETBIOS 會議服務★★★" Case 119 plus = "NNTP虛擬服務" Case 163 plus = "SNMP服務" Case 443 plus = "https服務" Case 512 plus = "遠程執行服務" Case 513 plus = "login, remote login" Case 514 plus = "cmd, exec with auto auth." Case 600 plus = "Sun IPC服務器" Case 1080 plus = "SOCKS代理服務★★★" Case 1433 plus = "SQL服務器★★★" Case 3128 plus = "HTTP代理服務" Case 7626 plus = "木馬冰河★★★★★" Case 8080 plus = "HTTP代理服務" Case else plus = "未知服務!"