I am so confused, I want to add some anti-spam security to my upcoming register page but something is really wrong.
Note that my server is Coldfusion MX7 (i can not afford better) and because of that i can not use
cfimage(captcha).

This is what i have:

ColdFusion Syntax (Toggle Plain Text)

<cfset strLowerCaseAlpha = "abcdefghijklmnopqrstuvwxyz">
 
<cfset strUpperCaseAlpha = UCase( strLowerCaseAlpha )>
 
<cfset strNumbers = "0123456789">
 
<cfset strAllValidChars = (
    strLowerCaseAlpha &
    strUpperCaseAlpha &
    strNumbers
    )>
 
<cfset arrPassword = ArrayNew( 1 )>
 
<cfset arrPassword[ 1 ] = Mid(
    strNumbers,
    RandRange( 1, Len( strNumbers ) ),
    1
    )>
 
<cfset arrPassword[ 2 ] = Mid(
    strLowerCaseAlpha,
    RandRange( 1, Len( strLowerCaseAlpha ) ),
    1
    )>
 
<cfset arrPassword[ 3 ] = Mid(
    strUpperCaseAlpha,
    RandRange( 1, Len( strUpperCaseAlpha ) ),
    1
    )>
 
<cfloop
    index="intChar"
    from="#(ArrayLen( arrPassword ) + 1)#"
    to="8"
    step="1">
 
    <cfset arrPassword[ intChar ] = Mid(
        strAllValidChars,
        RandRange( 1, Len( strAllValidChars ) ),
        1
        )>
 
</cfloop>
 
 
<cfset strPassword = ArrayToList(
    arrPassword,
    ""
    )>
 
 
 
 
<cfif IsDefined("FORM.spamcode")>
    <cfif form.spamcode neq strPassword >
    not equal
    <cfelse>
   finally working
</cfif>
</cfif>
 
 
 
                 <cfif isdefined ("strPassword")>
                 <cfoutput>#strPassword#</cfoutput>
                 </cfif>
 
 
<form action="" method="post">
  <label>
    <input type="text" name="spamcode" id="spamcode" />
  </label>
</form>

<cfset strLowerCaseAlpha = "abcdefghijklmnopqrstuvwxyz"> <cfset strUpperCaseAlpha = UCase( strLowerCaseAlpha )> <cfset strNumbers = "0123456789"> <cfset strAllValidChars = ( strLowerCaseAlpha & strUpperCaseAlpha & strNumbers )> <cfset arrPassword = ArrayNew( 1 )> <cfset arrPassword[ 1 ] = Mid( strNumbers, RandRange( 1, Len( strNumbers ) ), 1 )> <cfset arrPassword[ 2 ] = Mid( strLowerCaseAlpha, RandRange( 1, Len( strLowerCaseAlpha ) ), 1 )> <cfset arrPassword[ 3 ] = Mid( strUpperCaseAlpha, RandRange( 1, Len( strUpperCaseAlpha ) ), 1 )> <cfloop index="intChar" from="#(ArrayLen( arrPassword ) + 1)#" to="8" step="1"> <cfset arrPassword[ intChar ] = Mid( strAllValidChars, RandRange( 1, Len( strAllValidChars ) ), 1 )> </cfloop> <cfset strPassword = ArrayToList( arrPassword, "" )> <cfif IsDefined("FORM.spamcode")> <cfif form.spamcode neq strPassword > not equal <cfelse> finally working </cfif> </cfif> <cfif isdefined ("strPassword")> <cfoutput>#strPassword#</cfoutput> </cfif> <form action="" method="post"> <label> <input type="text" name="spamcode" id="spamcode" /> </label> </form>

this is just testing code but it is somehow messed up.
every time when i click on the submit button i get not equal!
I also need to add when i set up strPassword manualy instead of ArrayToList, for example
<cfset strPassword=test413> and then insert in form test413 and compare it everything is fine. You can copy/paste this code to test it. Any ideas please?