;if decrypting:

   ; length of table minus keychar-index plus textchar-index plus word-shift minus one mod length of table.

   ; add one to that.

   ;if encrypting:

   ; keychar-index plus textchar-index plus word-shift minus one mod length of table. plus one.

function vigenere($t,$k,optional $d)
dim $j,$r,$,$p,$o,$y
 for $j = 65 to 90
  $ = chr($j)+$+chr($j+32)
 next
 $p = "0123456789"+$
 for $j = 1 to len($t)
  do 
   $ = left($k,1)
   $k = substr($k,2)+$
   $y = instr($p,$)
  until $y
  $ = substr($t,$j,1)
  $o = $o+($=" ") -$o*(0  $r = instr($p,$)
  if $r
   $ = 62 - (ucase($t+$k)=$t+$k)*26
   $ = substr($p,1+($+$r+(2*($d=0)-1)*($y-$o-2)-1) mod $,1)
  endif
  $vigenere = $vigenere + $
  next
endfunction

KiXtart
KiXtart Version  = 4.22
KiXforms Version =
KiXGolf Script   = kixgolf_vigenere.kix
 
Computer
OS               = Windows 2000 Professional
CPU              = Intel Pentium III Mobile
Speed            = 933 MHz
Memory           = 256 MB
 
KiXGolf Scoring Engine
Scoring Engine   = 3.0.3
 
KiXtart Golf Score
Tournament       = KiXtart Golf: Vigenere Cipher
Valid Cipher Ops = 7 (64%)
Processing Start = 2004/08/02 16:03:15.847
Processing End   = 2004/08/02 16:03:19.973
Duration         = 0000/00/00 00:00:04.125
KiXGolf Score    = 367
 
Thank you for participating in KiXtart Golf!
press any key to close

Quote:

---

Are we three the only ones that even gave this shot?

---

Sadly I was in Marbella last week. I tried to convince the missus that the golf was more important, but she couldn't see it

Function Vigenere($a,$b, optional $c)
 Dim $t,$u,$i,$j
 $t='0123456789ZYXWVUTSRQPONMLKJIHGFEDCBA'
 $u='abcdefghijklmnopqrstuvwxyz'
 
 ;remove wrong chars in key
 For $i=1 to Len($b)
  If InStr($t+$u,SubStr($b,$i,1))
   $j=$j+SubStr($b,$i,1)
  EndIf
 Next

 $b=$j
 
 ;check for lowercase in string/key, if so expand tableau
 $j=Len($a)+Len($b)
 For $i=1 to $j
  If InStr($u,SubStr($a,$i,1)) OR InStr($u,SubStr($b,$i,1))
   $t=$t+$u
   $i=$j
  EndIf
 Next
 
 ;double the tableau
 $t=$t+$t
 
 ;make the key larger than the string
 While Len($b) < Len($a)
  $b=$b+$b
 Loop
 
 For $i=1 to Len($a)
  $j=SubStr($a,$i,1)
  $u=SubStr($b,$i,1)
  If InStr($t,$j)
   If $c
    $j=SubStr($t,InStrRev($t,$j)+Len($t)/2-InStrRev($t,$u)+1,1)
   Else
    $j=SubStr($t,InStr($t,$j)+InStr($t,$u)-1,1)
   EndIf
  EndIf
  $vigenere=$vigenere+$j
 Next
 
EndFunction

Function vigenere($t,$k,optional $d)

DIM $j,$r,$,$p,$o,$y

 For $j=65 To 90

  $=CHR($j)+$+CHR($j+32)

 Next

 $p = "0123456789"+$

 For $j = 1 To Len($t)

  Do 

   $ = Left($k,1)

   $k = SubSTR($k,2)+$

;   $y = InSTR($p,$)

;  Until $y

  Until InSTR($p,$)

  $ = SubSTR($t,$j,1)

  $o = $o+($=" ") -$o*(0<InSTR('!.?',$))  $r = InSTR($p,$)

  If $r

   $ = 62 - (UCase($t+$k)=$t+$k)*26

   $ = SubSTR($p,1+($+$r+(2*($d=0)-1)*($y-$o-2)-1) mod $,1)

  EndIf

  $vigenere = $vigenere + $

  Next

EndFunction

function vigenere($t,$k,optional $d)

dim $j,$r,$,$p,$o,$y

 for $j = 65 to 90

  $ = chr($j)+$+chr($j+32)

 next

 $p = "0123456789"+$

 for $j = 1 to len($t)

  do 

   $ = left($k,1)

   $k = right($k,-1)+$

   $y = instr($p,$)

  until $y

  $ = substr($t,$j,1)

  $o = $o+($=" ") -$o*($=!|$='?'|$='.')

  $r = instr($p,$)

  if $r

   $ = 62 - (ucase($t+$k)=$t+$k)*26

   $ = substr($p,1+($+$r+(2*($d=0)-1)*($y-$o-2)-1) mod $,1)

  endif

  $vigenere = $vigenere + $

  next

endfunction

KiXtart

KiXtart Version  = KiXtart 2001 4.22 Release Candidate 1

KiXforms Version = 

KiXGolf Script   = kixgolf_vigenere.kix



Computer

OS               = Windows 2000 Professional

CPU              = Intel Pentium II

Speed            = 398 MHz

Memory           = 384 MB



KiXGolf Scoring Engine

Scoring Engine   = 3.0.3



KiXtart Golf Score

Tournament       = KiXtart Golf: Vigenere Cipher

Valid Cipher Ops = 7 (64%)

Processing Start = 2004/08/04 15:31:23.896

Processing End   = 2004/08/04 15:31:24.246

Duration         = 0000/00/00 00:00:00.349

KiXGolf Score    = 366

 

Thank you for participating in KiXtart Golf!