[分享]：Autocad lisp加密C源程序

onej

#include<stdio.h>
main()
{
   FILE *fi,*fo;
   register char zf1,zf2;
   char fin[30],fou[30];
   printf("Enter source file name:");
   scanf("%s",&fin);
   printf("Enter new source file name:");
   scanf("%s",&fou);
   fi=fopen(fin,"rb");
   if(fi==NULL)
   {  printf("can not open file %s\n",fin);
      exit(1);
   }
   fo=fopen(fou,"wb");
   fputs("AutoCAD PROTECTED LISP file\n",fo);
   fputc(26,fo);
   fputc('a',fo);
   fputc('I',fo);
   zf2=fgetc(fi);
   zf1=73;
   while(!feof(fi))
   {   zf2=fgetc(fi);
       if(zf1>127) zf1=zf1-256;
       if(zf2==0x0d) zf2=fgetc(fi);
       if(zf2>127) zf2=zf2-256;
       zf1=zf1<0 ? (0x01 | (zf1<<1)):zf1<<1;
       zf1=zf1^zf2;
       if((zf1==0x1a) || (zf1==0x0d)) zf1=zf2;
       if(zf1!=0x1a) fputc(zf1,fo);
   }
   fputc(26,fo);
   close(fi);
   fclose(fo);
}

yzys

不错

mkhsj927

加密了之后不用解密能用吗？否则加密就没什么意思了!