[ djordjevic_i @ 26.03.2010. 16:35 ] @
| Pozdrav ljudi, imam kod koji implementira Bajesovu metodu u otkrivanju spam-a(bar bi trebalo), ali je problem sto je pisan u VisualBasic-u, a ja sa njim nisam imamo dodira. Ako bi neko mogao da mi malo pojasni ovaj kod, bio bih neizmerno zahvalan, pa cu pokusati da ga odradim u C-u. Hvala. POzZ Code (vbnet): Imports System.IO Imports MailBee.Mime Imports MailBee.AntiSpam Module Sample Sub Main(ByVal args() As String) Dim filter As BayesFilter = New BayesFilter() Dim msg As MailMessage = New MailMessage() filter.LoadDatabase("C:\AntiSpam\spam.dat", "C:\AntiSpam\nonspam.dat") ' Train Bayesian filter for spam messages. Dim files() As String = Directory.GetFiles("C:\AntiSpam\Spam", "*.eml") For Each file As String In files msg.LoadMessage(file) filter.TrainFilter(msg, True) ' Mark as spam. Next ' Train Bayesian filter for non-spam messages. files = Directory.GetFiles("C:\AntiSpam\NonSpam", "*.eml") For Each file As String In files msg.LoadMessage(file) filter.TrainFilter(msg, False) ' Mark as non-spam. Next ' Save Bayesian database to disk. filter.SaveDatabase("C:\AntiSpam\spam.dat", "C:\AntiSpam\nonspam.dat") End Sub End Module [Ovu poruku je menjao Shadowed dana 26.03.2010. u 19:46 GMT+1] |