Code:

KiXtart Golf Score
Tournament = KiXtart Golf: Vigenere Cipher
Valid Cipher Ops = 7 (78%)
Processing Start = 2004/07/26 15:48:50.759
Processing End = 2004/07/26 15:48:50.806
Duration = 0000/00/00 00:00:00.046
KiXGolf Score = 606




bug found and fixed... well not the IIF bug.
I am not sure why i am only getting 7 out of 10... but my own testing code is working....

Code:

$iRC=SETOPTION('Explicit','on')
$iRC=SETOPTION('NoVarsInStrings','on')
$iRC=SETOPTION('WrapAtEOL','on')
;$iRC=SETOPTION('CaseSensitivity','on')
dim $test,$,$Pass,$text,$as,$thing,$iTotal,$ivalid
dim $asVigenere[9]
call "kixgolf_vigenere.udf"

$asVigenere[0]='KIXGOLF','','KIXGOLF'
$asVigenere[1]='KIXGOLF TOURNAMENT','','KIXGOLF'
$asVigenere[2]='KIXGOLF TOURNAMENT','','KIXGOLF TOURNAMENT'
$asVigenere[3]='KiXgolf','','KiXgolf'
$asVigenere[4]='KiXgolf Tournament','','KiXgolf v422'
$asVigenere[5]='Blaise de Vigenere was born in 1523 and received the normal education of a noble of his period, even though he was not a noble.','','Vigenere Cipher'
$asVigenere[6]='The Vigenere cipher basic construction is a combination of a Caesar shift combined with a keyword','','CrYptoGraPhy'
$asVigenere[7]='1234567890','','abcdefghijk'
$asVigenere[8]='abcdefghij','','1234567890'
$asVigenere[9]='Finished!','','Did you win'
$iTotal=ubound($asVigenere)
$iValid=0


for each $thing in $asVigenere
$text = $thing[0]
$pass = $thing[2]
if vigenere(vigenere($text,$pass),$pass,1) <> $text
? $text
? vigenere($text,$pass)
? vigenere(vigenere($text,$pass),$pass,1)
? $pass
else
? "PASS"
endif
next



I don't know if i will be able to get below 600....