------------------------------------------------------------------------------------------------ Script für Captcha ohne Javascript-Unterstützung, geschrieben in Visual-Basic-Script für ASP ------------------------------------------------------------------------------------------------ <% Dim captcha_reihe(4) Dim captcha_get(5) Dim captcha_set(4) Dim captcha_code(5) captcha_width = "10" captcha_height = "5" captcha_gesamt = captcha() for i = 1 to 4 captcha_reihe(i) = Mid(captcha_gesamt, i, 1) next captcha_code_alt = SetCaptcha(captcha_gesamt) captcha_neu = Request.Form("captcha_neu") captcha_alt = Request.Form("captcha_alt") captcha_alt = GetCaptcha(captcha_alt) eintragen = Request.Form("eintragen") email_absender = Request.Form("email_absender") email_text = Request.Form("email_text") if eintragen <> "" AND (captcha_neu = captcha_alt) then ' gewünschte Aktion ausführen (Datenbankeintrag, eMail-Versand) text_eintragen = "Die Zahl wurde überprüft und Ihr Eintrag verarbeitet" elseif eintragen <> "" AND (captcha_neu <> captcha_alt) then text_eintragen = "Die Zahl wurde falsch eingetragen" end if %> Captcha Script
 
Unser Gästebuch [nur zum Testen, keine Speicherung oder Versand]
<%=text_eintragen%>
Geben Sie hier Ihre eMail-Adresse ein
Geben Sie hier Ihre Nachricht ein
<%ReturnCaptcha%>
Geben Sie den angezeigten Wert in das Feld darunter ein
<% sub ReturnCaptcha %> <% for j = 1 to 4 %> <% next %>
<% Select Case captcha_reihe(j) Case "0" ReturnCaptcha_0 Case "1" ReturnCaptcha_1 Case "2" ReturnCaptcha_2 Case "3" ReturnCaptcha_3 Case "4" ReturnCaptcha_4 Case "5" ReturnCaptcha_5 Case "6" ReturnCaptcha_6 Case "7" ReturnCaptcha_7 Case "8" ReturnCaptcha_8 Case "9" ReturnCaptcha_9 end select %>
<% end sub sub ReturnCaptcha_0 %>
<% end sub sub ReturnCaptcha_1 %>
<% end sub sub ReturnCaptcha_2 %>
<% end sub sub ReturnCaptcha_3 %>
<% end sub sub ReturnCaptcha_4 %>
<% end sub sub ReturnCaptcha_5 %>
<% end sub sub ReturnCaptcha_6 %>
<% end sub sub ReturnCaptcha_7 %>
<% end sub sub ReturnCaptcha_8 %>
<% end sub sub ReturnCaptcha_9 %>
<% end sub function captcha() ' Zufallszahl zwischen 1001 und 9999 randomize captcha = Fix(rnd*(9999 - 1001 + 1)) + 1001 end function ' einfache Ver- und Entschlüsselungsroutine function SetCaptcha(wert) for i = 1 to 4 captcha_set(i) = Mid(wert, i, 1) captcha_code(i) = 17 + CByte(captcha_set(1)) + Asc(captcha_set(i)) next SetCaptcha = captcha_set(1) for j = 1 to 4 SetCaptcha = SetCaptcha & Chr(captcha_code(j)) next end function function GetCaptcha(wert) if wert <> "" then for i = 1 to 5 captcha_get(i) = Mid(wert, i, 1) captcha_code(i) = - 17 - CByte(captcha_get(1)) + Asc(captcha_get(i)) next for j = 2 to 5 GetCaptcha = GetCaptcha & Chr(captcha_code(j)) next end if end function %> ------------------------------------------------------------------------------------------------------ Script für Captcha mit teilweiser Javascript-Unterstützung, geschrieben in Visual-Basic-Script für ASP ------------------------------------------------------------------------------------------------------ <% Dim captcha_reihe(4) Dim captcha_get(5) Dim captcha_set(4) Dim captcha_code(5) captcha_width = "10" captcha_height = "5" captcha_gesamt = captcha() for i = 1 to 4 captcha_reihe(i) = Mid(captcha_gesamt, i, 1) next captcha_code_alt = SetCaptcha(captcha_gesamt) captcha_neu = Request.Form("captcha_neu") captcha_alt = Request.Form("captcha_alt") captcha_alt = GetCaptcha(captcha_alt) eintragen = Request.Form("eintragen") email_absender = Request.Form("email_absender") email_text = Request.Form("email_text") if eintragen <> "" AND (captcha_neu = captcha_alt) then ' gewünschte Aktion ausführen (Datenbankeintrag, eMail-Versand) text_eintragen = "Die Zahl wurde überprüft und Ihr Eintrag verarbeitet" elseif eintragen <> "" AND (captcha_neu <> captcha_alt) then text_eintragen = "Die Zahl wurde falsch eingetragen" end if %> Captcha Script
 
Unser Gästebuch [nur zum Testen, keine Speicherung oder Versand]
<%=text_eintragen%>
Geben Sie hier Ihre eMail-Adresse ein
Geben Sie hier Ihre Nachricht ein
<%ReturnCaptcha%>
Geben Sie den angezeigten Wert in das Feld darunter ein
<% sub ReturnCaptcha %> <% for j = 1 to 4 %> <% next %>
<% Select Case captcha_reihe(j) Case "0" ReturnCaptcha_0 Case "1" ReturnCaptcha_1 Case "2" ReturnCaptcha_2 Case "3" ReturnCaptcha_3 Case "4" ReturnCaptcha_4 Case "5" ReturnCaptcha_5 Case "6" ReturnCaptcha_6 Case "7" ReturnCaptcha_7 Case "8" ReturnCaptcha_8 Case "9" ReturnCaptcha_9 end select %>
<% end sub sub ReturnCaptcha_0 %>
<% end sub sub ReturnCaptcha_1 %>
<% end sub sub ReturnCaptcha_2 %>
<% end sub sub ReturnCaptcha_3 %>
<% end sub sub ReturnCaptcha_4 %>
<% end sub sub ReturnCaptcha_5 %>
<% end sub sub ReturnCaptcha_6 %>
<% end sub sub ReturnCaptcha_7 %>
<% end sub sub ReturnCaptcha_8 %>
<% end sub sub ReturnCaptcha_9 %>
<% end sub function captcha() ' Zufallszahl zwischen 1001 und 9999 randomize captcha = Fix(rnd*(9999 - 1001 + 1)) + 1001 end function ' einfache Ver- und Entschlüsselungsroutine function SetCaptcha(wert) for i = 1 to 4 captcha_set(i) = Mid(wert, i, 1) captcha_code(i) = 17 + CByte(captcha_set(1)) + Asc(captcha_set(i)) next SetCaptcha = captcha_set(1) for j = 1 to 4 SetCaptcha = SetCaptcha & Chr(captcha_code(j)) next end function function GetCaptcha(wert) if wert <> "" then for i = 1 to 5 captcha_get(i) = Mid(wert, i, 1) captcha_code(i) = - 17 - CByte(captcha_get(1)) + Asc(captcha_get(i)) next for j = 2 to 5 GetCaptcha = GetCaptcha & Chr(captcha_code(j)) next end if end function %> ------------------------------------------------------------------------------------------------ Script für Captcha mit Javascript-Unterstützung, geschrieben in Visual-Basic-Script für ASP ------------------------------------------------------------------------------------------------ <% Dim captcha_reihe(4) Dim captcha_get(5) Dim captcha_set(4) Dim captcha_code(5) captcha_width = "10" captcha_height = "10" captcha_gesamt = captcha() for i = 1 to 4 captcha_reihe(i) = Mid(captcha_gesamt, i, 1) next captcha_code_alt = SetCaptcha(captcha_gesamt) captcha_neu = Request.Form("captcha_neu") captcha_alt = Request.Form("captcha_alt") captcha_alt = GetCaptcha(captcha_alt) eintragen = Request.Form("eintragen") email_absender = Request.Form("email_absender") email_text = Request.Form("email_text") if eintragen <> "" AND (captcha_neu = captcha_alt) then ' gewünschte Aktion ausführen (Datenbankeintrag, eMail-Versand) text_eintragen = "Die Zahl wurde überprüft und Ihr Eintrag verarbeitet" elseif eintragen <> "" AND (captcha_neu <> captcha_alt) then text_eintragen = "Die Zahl wurde falsch eingetragen" end if %> Captcha Script
 
Unser Gästebuch [nur zum Testen, keine Speicherung oder Versand]
<%=text_eintragen%>
Geben Sie hier Ihre eMail-Adresse ein
Geben Sie hier Ihre Nachricht ein
<%ReturnCaptcha%>
Geben Sie den angezeigten Wert in das Feld darunter ein
<% sub ReturnCaptcha %> <% for j = 1 to 4 %> <% next %>
<% Select Case captcha_reihe(j) Case "0" ReturnCaptcha_0 Case "1" ReturnCaptcha_1 Case "2" ReturnCaptcha_2 Case "3" ReturnCaptcha_3 Case "4" ReturnCaptcha_4 Case "5" ReturnCaptcha_5 Case "6" ReturnCaptcha_6 Case "7" ReturnCaptcha_7 Case "8" ReturnCaptcha_8 Case "9" ReturnCaptcha_9 end select %>
<% end sub sub ReturnCaptcha_0 %>
<% end sub sub ReturnCaptcha_1 %>
<% end sub sub ReturnCaptcha_2 %>
<% end sub sub ReturnCaptcha_3 %>
<% end sub sub ReturnCaptcha_4 %>
<% end sub sub ReturnCaptcha_5 %>
<% end sub sub ReturnCaptcha_6 %>
<% end sub sub ReturnCaptcha_7 %>
<% end sub sub ReturnCaptcha_8 %>
<% end sub sub ReturnCaptcha_9 %>
<% end sub function captcha() ' Zufallszahl zwischen 1001 und 9999 randomize captcha = Fix(rnd*(9999 - 1001 + 1)) + 1001 end function ' einfache Ver- und Entschlüsselungsroutine function SetCaptcha(wert) for i = 1 to 4 captcha_set(i) = Mid(wert, i, 1) captcha_code(i) = 17 + CByte(captcha_set(1)) + Asc(captcha_set(i)) next SetCaptcha = captcha_set(1) for j = 1 to 4 SetCaptcha = SetCaptcha & Chr(captcha_code(j)) next end function function GetCaptcha(wert) if wert <> "" then for i = 1 to 5 captcha_get(i) = Mid(wert, i, 1) captcha_code(i) = - 17 - CByte(captcha_get(1)) + Asc(captcha_get(i)) next for j = 2 to 5 GetCaptcha = GetCaptcha & Chr(captcha_code(j)) next end if end function %> ------------------------------------------------------------------------------------------------