¸½ºß¡¢°Å¹æ²½µ»Ë¡¤Î£±¤Ä¤Ç¤¢¤ë£Ä£Å£Ó¤Ë¤Ä¤¤¤Æ¤ä¤Ã¤Æ¤¤¤Þ¤¹¡£
°ì±þ¤Î¥×¥í¥°¥é¥à¤Ï½ÐÍ褿¤Î¤Ç¤¹¤¬¡¢Éü¹æ¤ò¹Ô¤Ã¤Æ¤â²èÁü¤¬É½¼¨¤µ¤ì¤Þ¤»¤ó¡£
¤Ê¤ª¡¢1,024¥Ð¥¤¥Èʬ¤Î°Å¹æ²½¤ÈÉü¹æ¤ò¹Ô¤Ã¤Æ¤¤¤ë¤Ä¤â¤ê¤Ç¤¹¡£
//----------------------------ÊÑ¿ô·²----------------------------------// read_file = "¡û¡û.jpg" ;Æɹþ¤ßÂоݥե¡¥¤¥ë enc_KEY = 13 ;¥¡¼ÃÍ HOZON = 0 ;ÈÆÍÑÊÑ¿ô¡ g_p = 0 ;ÈÆÍÑÊÑ¿ô¢ //--------------------------------------------------------------------// notesel mem_OP noteload read_file //¥Õ¥¡¥¤¥ë¤Î¥í¡¼¥É memfile mem_OP noteunsel g_p = 0 repeat 128 //°Å¹æ²½ a(1) = lpeek(mem_OP,g_p) ;¡ÚÂ裱¥Ö¥í¥Ã¥¯¡Ê32bit¡Ë¡ÛÆɽФ· a(2) = lpeek(mem_OP,g_p+4) ;¡ÚÂ裲¥Ö¥í¥Ã¥¯¡Ê32bit¡Ë¡ÛÆɽФ· repeat 16 a(1) = a(1) + enc_KEY ;¡ÚÂ裱¥Ö¥í¥Ã¥¯¡Û¤Ë¥¡¼Ãͤò²Ã»» a(2) = a(2) XOR a(1) ;¡ÚÂ裲¥Ö¥í¥Ã¥¯¡ÛXOR¡ÚÂ裱¥Ö¥í¥Ã¥¯¡Û¢ª¡ÚÂ裲¥Ö¥í¥Ã¥¯¡Û HOZON = a(1) a(1) = a(2) a(2) = HOZON loop lpoke mem_OP, g_p, a(1) lpoke mem_OP, g_p+4, a(2) g_p = g_p + 8 loop g_p = 0 repeat 128 //Éü¹æ a(1) = lpeek(mem_OP,g_p) ;¡ÚÂ裱¥Ö¥í¥Ã¥¯¡Ê32bit¡Ë¡ÛÆɽФ· a(2) = lpeek(mem_OP,g_p+4) ;¡ÚÂ裲¥Ö¥í¥Ã¥¯¡Ê32bit¡Ë¡ÛÆɽФ· repeat 16 a(1) = a(1) + enc_KEY ;¡ÚÂ裱¥Ö¥í¥Ã¥¯¡Û¤Ë¥¡¼Ãͤò²Ã»» a(2) = a(2) XOR a(1) ;¡ÚÂ裲¥Ö¥í¥Ã¥¯¡ÛXOR¡ÚÂ裱¥Ö¥í¥Ã¥¯¡Û¢ª¡ÚÂ裲¥Ö¥í¥Ã¥¯¡Û HOZON = a(1) a(1) = a(2) a(2) = HOZON loop lpoke mem_OP, g_p, a(1) lpoke mem_OP, g_p+4, a(2) g_p = g_p + 8 loop picload "MEM:mem_OP.jpg" //--------------------------------------------------------------------//
¤¢¤ë£È£Ð¤Ç¡¢
¡Ö°Å¹æ²½¤ÈƱ¤¸¼ê½ç¤ò¤¿¤É¤ì¤Ð¸µ¤Îʿʸ¤ËÌ᤹¤³¤È¤¬¤Ç¤¤ë¡×¤È½ñ¤¤¤Æ¤¢¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢
¤½¤ì¤ÇÀµ¤·¤¤¤Ç¤¹¤«¡©
¥×¥í¥°¥é¥àÃæ¤ËÌäÂ꤬¤¢¤ë¤è¤¦¤Ç¤·¤¿¤é¡¢¤â¤·¤è¤í¤·¤±¤ì¤Ð¶µ¤¨¤Æ²¼¤µ¤¤¡£