¥H¤U¬O Crystal Reports ¦r¦ê³B²z¥\¯à§ó¸Ô²Óªº½d¨Ò¡CCaesar Cipher ¬O¤@Ó²³æªº½s½Xì«h¡A¶Ç²Î¤W»{¬°¬O Julius Caesar ©Òµo©úªº¡C¦b³oÓ½s½X¤¤¡A³æ¦r¤¤ªº¨CÓ¦r¥À³£·|¥H¦r¥Àªí¤¤¨ä«áªº²Ä¤Ó¦r¤¸¨Ó¨ú¥N¡C¨Ò¦p¡AJaws ·|Åܦ¨ Ofbx¡C½Ðª`·N w ¬O¥H b ¨Ó¨ú¥N¡A¦]¬°¦r¥Àªí¤¤ w ¤§«á¨S¦³¤Ó¦r¥À¡A©Ò¥H´N±qÀYºâ°_¡C
³o¸Ìªº¤½¦¡´N¬O±N Caesar Cipher À³¥Î¨ì Xtreme ¸ê®Æ®wªº {«È¤á.¤½¥q¦WºÙ} Äæ¦ì¤¤¡G
Rem Caesar Cipher Dim inString 'n¥[±Kªº¿é¤J¦r¦ê inString = {«È¤á.¤½¥q¦WºÙ} Dim shift shift = 5 formula = "" Dim i For i = 1 To Len(inString) Dim inC, outC inC = Mid (inString, i, 1) Dim isChar, isUCaseChar isChar = LCase(inC) In "a" To "z" isUCaseChar = isChar And (UCase (inC) = inC) inC = LCase(inC) If isChar Then Dim offset offset = (Asc(inC) + shift - Asc("a")) Mod _ (Asc("z") - Asc("a") + 1) outC = Chr(offset + Asc("a")) If isUCaseChar Then outC = UCase(outC) Else outC = inC End If formula = formula & outC Next i
¤W¨Ò¤¤¦³¤@Ó¦h¦æªº If ³¯z¦¡®MÅ|©ó For/Next °j°éªº³¯z¦¡°Ï¶ô¤¤¡C³oÓ If ³¯z¦¡t³d§ó´«³æ¤@¦r¤¸ªº²Ó¸`¡C¨Ò¦p¡A±N¦r¥Àµø¬°»P¼ÐÂI²Å¸¹©MªÅ¥Õ¤£¦P¡C¯S§O¬O¡A¼ÐÂI²Å¸¹©MªÅ¥Õ¨Ã¤£·|¶i¦æ½s½X¡C±±¨îµ²ºc¥i®MÅ|©ó¨ä¥Lªº±±¨îµ²ºc¤¤¡A¦Ó±±¨îµ²ºcªº³¯z¦¡°Ï¶ô¤]¥i¯Ç¤J¦hÓ³¯z¦¡¡C