我用delphi做个客户程序,通过web 服务上传文件,360木马防火墙总是当病毒查杀,怎么办?(50)

  • 主题发起人 主题发起人 lufang
  • 开始时间 开始时间
L

lufang

Unregistered / Unconfirmed
GUEST, unregistred user!
大致如下代码,基本上也是网上找的。以前用直接存在数据库的大字段中,360没事,现在改为通过WEB服务上传,老是当病毒查,需要怎么改一下?..........uses service1;...........begin msByte := tmemorystream.create; msByte.LoadFromFile(sf); setlength(vByte, msByte.size); msByte.position := 0; msByte.read(vByte[0], msByte.size); HTTPRIO1 := THTTPRIO.create(nil); HTTPRIO1.URL := 'http://IP/webservice1/service1.asmx'; HTTPRIO1.HTTPWebNode.Agent := 'Borland SOAP 1.2'; HTTPRIO1.HTTPWebNode.UseUTF8InHeader := true; try Iservice := HTTPRIO1 as Service1Soap; Iservice.ufb(vByte, df); Iservice := nil; HTTPRIO1.free; msByte.free;finall Iservice := nil; HTTPRIO1.free; msByte.free; end;////////unit service1;interfaceuses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;type Service1Soap = interface(IInvokable) ['{CFE467D4-A39E-2BD2-5836-7685A9E27F8D}'] function ufb(const Bytes: TByteDynArray; const FileName: WideString): WideString; stdcall; function ufcb(const Bytes: TByteDynArray; const Position: Integer; const FileName: WideString): WideString; stdcall; end;function GetService1Soap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): Service1Soap;implementationfunction GetService1Soap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): Service1Soap;const defWSDL = 'http://10.8.18.40/webservice1/service1.asmx?wsdl'; defURL = 'http://10.8.18.40/webservice1/service1.asmx'; defSvc = 'Service1'; defPrt = 'Service1Soap';var RIO: THTTPRIO;begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; try Result := (RIO as Service1Soap); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end;end;initialization InvRegistry.RegisterInterface(TypeInfo(Service1Soap), 'http://tempuri.org/', 'utf-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(Service1Soap), 'http://tempuri.org/%operationName%'); InvRegistry.RegisterInvokeOptions(TypeInfo(Service1Soap), ioDocument);end.
 
干掉360!妈的我的程式在升级过程中,改了文件后缀就报病毒,神经病
 
我写的dll文件,采用aspack压缩后,也一直提示病毒。
 
所有加了壳的文件,都认为是病毒!直接把我的dll给干掉,真是很白
 
360查杀木马是以MD5来查杀的,重新编译一下或稍改一下代码试试!
 
360专门有人员负责接待你这类型的程序员,如果你只是一个小角色,360基本上看不上眼的,那么你只要给一笔钱,BUG就解决了,如果你直接就是做木马的,那么就要定期交钱,你就不是木马了,如果你还是360看上眼的,那么对不起,很可能360会给你的项目做“天使投资”,当然,价值是由360决定的,基本上按照实际价值的1/10计算,问题也解决了。
 
小雨哥, 我服你了,这个时间我这么多贴了,肯定心情不错,估计是搞定一个难题了
 
小雨哥,真的假的?我一直不明白360完全免费,他的盈利模式是什么?莫非真是这样。单位内部用的一个报送报表的小程序,着实用不着麻烦360
 
360的这种黑钱模式,早已经是公开的秘密了.所谓的云查杀,最大功能就是黑名单列表,你不交钱就把你放入黑名单.
 
金山毒霸全面免费了!值得信赖!
 
没办法,最后用IDFTP传了事。
 
放行,并让它记住就行了呀
 

Similar threads

后退
顶部