Bazı senaryolarda (ör. web forumları) operatör, web sitesi kullanıcılarının tek kullanımlık e-posta adresleriyle kaydolmalarını istemez.
Şu anda İnternet kullanıcıları için bu tür geçici adresler sağlayan çok sayıda web sitesi bulunmaktadır. mogelmail.de web sitesi bir liste tutar ve bir e-posta alanının tek kullanımlık/tek kullanımlık e-posta operatörü olarak bilinip bilinmediğini kontrol etmek için kullanılabilecek basit bir REST hizmeti sunar.
Aşağıda, bu REST hizmetini bir IsWegwerfadresse() alt yordamında kapsülledim. Örnek, Visual Basic .NET’te yazılmıştır.
''' <summary>
''' Erkennt mit Hilfe von http://www.mogelmail.de, ob eine
''' E-Mail-Adresse eine Wegwerf- und Einmal-E-Mail-Adresse ist
''' </summary>
''' <param name="email">E-Mail-Adresse</param>
''' <returns>true oder false</returns>
Public Shared Function IsWegwerfadresse(email As String)
Try
Dim domain = New MailAddress(email).Host
Dim wc As New System.Net.WebClient()
Dim s = wc.DownloadString("http://www.mogelmail.de/q/" & domain)
If s = "1" Then Return True ' REST-Dienst liefert 1, wenn Wegwerf-/Einmal-E-Mail-Adresse
Return False ' sonst ist es keiner, der dort bekannt ist
Catch ex As Exception
Return False ' im Fehlerfall gehen wir davon aus, dass es keine Wegwerf-/Einmal-E-Mail-Adresse ist
End Try
End Function
()
Haberin Sonu
Şu anda İnternet kullanıcıları için bu tür geçici adresler sağlayan çok sayıda web sitesi bulunmaktadır. mogelmail.de web sitesi bir liste tutar ve bir e-posta alanının tek kullanımlık/tek kullanımlık e-posta operatörü olarak bilinip bilinmediğini kontrol etmek için kullanılabilecek basit bir REST hizmeti sunar.
Aşağıda, bu REST hizmetini bir IsWegwerfadresse() alt yordamında kapsülledim. Örnek, Visual Basic .NET’te yazılmıştır.
''' <summary>
''' Erkennt mit Hilfe von http://www.mogelmail.de, ob eine
''' E-Mail-Adresse eine Wegwerf- und Einmal-E-Mail-Adresse ist
''' </summary>
''' <param name="email">E-Mail-Adresse</param>
''' <returns>true oder false</returns>
Public Shared Function IsWegwerfadresse(email As String)
Try
Dim domain = New MailAddress(email).Host
Dim wc As New System.Net.WebClient()
Dim s = wc.DownloadString("http://www.mogelmail.de/q/" & domain)
If s = "1" Then Return True ' REST-Dienst liefert 1, wenn Wegwerf-/Einmal-E-Mail-Adresse
Return False ' sonst ist es keiner, der dort bekannt ist
Catch ex As Exception
Return False ' im Fehlerfall gehen wir davon aus, dass es keine Wegwerf-/Einmal-E-Mail-Adresse ist
End Try
End Function
()
Haberin Sonu