, een oplossing is een IP - adres, lijkt het gedrag van de regelmatig bijgewerkte gegevensbank.Deze databank moet zijn, bij voorkeur in de hoge willekeurige toegang.DNS, een oplossing biedt voor de invoering van het internet hebben, gelukkig is dat meer en meer het probleem van spam oneindig veel antwoorden.Een oplossing is een IP - adres, lijkt het gedrag van de regelmatig bijgewerkte gegevensbank.Deze databank moet zijn, bij voorkeur in de hoge willekeurige toegang.DNS, een oplossing biedt voor de vermeldingen snel kan worden aangepast.Bovendien, meestal niet nodig een kopie downloaden van (potentiële vaak grote) database.Als een e - mail server kunnen opsporen, in een fractie van een seconde, het sturen van IP - is op dit moment op de zwarte lijst, bijvoorbeeld omdat is besmet met een virus, een open - het kan voorkomen dat de ontvangen, een beroemde DNSBL spamhouse.org aanbieders.Een volledige lijst van de aanbieders van DNSBL), kijk hier, smtp server en e - mail cliënten (of e - mail schoonmakers) kan het gebruik van deze methode.E - pad is opgeslagen, dus je kan te allen tijde halen van de oorspronkelijke van intellectuele - eigendomsrechten.Dit is een belangrijk onderdeel van het smtp - overeenkomst, het gebruik van pop3, je kan naar een postbus, top (top: alleen de post) titel van de informatie - en kijken of ze naar de zwarte lijst ontvangen van somehost " (4): ", de lijn. Als gevolg van deze gegevensbank kan regelmatig actualiseren van spam, ze kunnen opsporing van een groot aantal (% GT% 50%???????)Spam, hoe het werkt, eigenlijk, alles wat je hoeft te doen is om na te gaan of een DNSBL (DNS blocklist) bron, bijvoorbeeld, www.spamhaus.org.Dit is gedaan, als je wil kijken: het IP - adres is 60.70.80.90 spammers, je bent gewoon de uitvoering van sbl.spamhaus.org (DNS, en omgekeerd) Ingevoegd zoals IP - adressen, en vraag DNS:90.80.70.60.sbl.spamhaus.org, als je naar een opname, dit is een spammers.Als je niet terug, het is niet in de lijst van IP - spam, test het je gemakkelijk kan controleren, het gebruik van "ping" commando 's, als je het zou doen, 90.80.70.60.sbl.spamhaus.org, plat, dan zijn er twee opties: de ontvangst van de informatie, * * * * * * * je onbekend.Het is goed, het is niet op de zwarte lijst van het onderzoektijdvak, krijg je 127.0.0. X, X > 1, zoals 127.0.0.2.Dat staat de code.In het algemeen is de permanente netblocks, 2 voor de (semi), 4 voor de open volmacht "(bv. Door een virale infectie, gevallen van machines), mijn cliënt in de e - mail met succes gebruik van deze eenheid.Het succes van deze eenheid Lubos in SMTP/POP3 server in de suite, je kan het gebruik van deze eenheid niet in een definitie van de synaptische TCP /IP synaptische} {% richtlijn bibliotheek, spamchck.pas, eenheid spamchck; interface /vraag van spam, de database met de spamhaus.org klasse SysUtils, {% als de definitie van synaptische synautil} {} {synsock dollar man. Ik endif};, het type, de     tspamcheck = (TObject), de bescherming van de    ,    ,         fdnsbl:.; ///////DNS blocklist,         fabrikant,       functie;   isspammer (onderzoektijdvak: string): getallen,         functie isspammer; of (mailheader:tstrings): gehele getal; of,     einde;,,, dat de tspamcheck} {tspamcheck, fabrikant,    ;,.inherited;,   FDNSBL := 'sbl-xbl.spamhaus.org';,   //alternatively use sbl.spamhaus.org (spam) or,   //xbl.spamhaus.org (open relays, proxys),   //or an alternative source DNSBL source.,   //the sbl-xbl is the combined list., end;, function TSpamCheck.IsSpammer(IP: String): Integer;, var RevIP:String;,     i:Integer;,     p:PHostEnt;, begin,   //Query the database,   //First, reverse the IP,   Result := -1;,   {$IFDEF SYNAPSE},   if IsIP (IP) then,   {$ENDIF},     begin,       //Reverse the IP,       RevIP := '';,       for i:=0 to 2 do,         begin,           RevIP := '.'+Copy (IP, 1, pos ('.', IP)-1) + RevIP;,           IP := Copy (IP, pos('.', IP)+1, 最大整数值）；最后，        ；，      revip：= IP + revip；，      /现在，查询数据库，      revip：= revip +，+ fdnsbl；，      P = gethostbyname（pchar（revip））；，      如果分配（P）然后，        开始/结果回来127.0.0。x >；1，              /127.0.0.2 =垃圾邮件，              /127.0.0.4 =开放中继等，          结果：=字节（P ^。h_addr ^。s_un_b。s_b4）；最后，        ，      其他//没有DNS条目发现，标记为安全：，        结果：= 0；，    结束；结束；，，功能tspamcheck。isspammer（mailheader：tstrings）：整数；，VAR V IP：字符串；，    我，R：整数；，开始，  /解析电子邮件标头，  /L写给“收到”的标题，  /提取IP地址，假设形式”：从（ABCD）收到的（w.x.y.z），  /验证此IP地址在Spamhaus，  我：= 0；，  结果：= 1；而我，  <；mailheader.count做，    开始，      如果POS（'received：'，小写（mailheader [我]））= 1，        开始，          V：= mailheader [我]；，          /寻找额外的标题，          而（（i + 1）<；mailheader。计数），                （mailheader [我+ 1 ] <；>；”），                （mailheader [我+ 1 ] [ 1 ] = ''）做的，            开始，              公司（我）；，              V：= V + mailheader [我]，          ；  end;,           //v now contains one line, find from ip address:,           v := lowercase (v);,           //searching for:,           //Received: from somehost.com (1.2.3.4).,           v := copy (v, pos ('from', v)+4, maxint);,           v := copy (v, pos ('(', v)+1, maxint);,           v := copy (v, 1, pos (')', v)-1);,           if pos ('[', v)>0 then,             //valid format is also:,             //Received: from somehost.com (somehost.com [1.2.3.4]),             begin,               v := copy (v, pos ('[', v)+1, maxint);,               v := copy (v, 1, pos (']', v)-1);,      Tot slot,                                  ; resultaten: = isspammer (V),  ;                   /één lijn is genoeg, als de resultaten                     > 0,                         breken,  ;                 /////// ,                 eindigt;      ,       Ltd (me); en, tot slot,        ;,, voorbij, voorbij.