China DOS Union

Take a look and have a try

The method is very good, but what about the sequel...? Looking forward to it...

I daren't use it at all!!!!!

Unexpectedly, a chance encounter allowed me to see so many wonderful things

Strong support, meeting each other late...

Nice

Really learned something new, study study ^_^

Learninging....

1. Create a new text file "a.txt", open it, hold down the alt key and then type 159, release the alt key, and the character "Ÿ" will appear. Save this text with Unicode encoding.
2. Leave a few lines blank before the batch file code to be encrypted, otherwise an error will occur.
3. CMD command: copy /a a.txt + /b b.bat = c.bat. This method works very well. Everyone can give it a try.

Learning

Good stuff

Good stuff

Very rewarding!
I also want to write an encryptor

Usage method:
Drag the file that needs to be encrypted to this program with the mouse, and the encrypted file will be automatically generated in the current folder.

Explanation:
Thanks to willsort, zh159, xjj2007 and others for providing the principle. Later, after many tests, I found that:
As long as an ASCII-encoded file is appended to the end of a UNICODE-encoded file in binary mode, the content behind will be displayed as garbled characters.
Therefore, the program I wrote does not actually perform the method mentioned by the above几位, but uses VBSCRIPT to directly create a UNICODE-encoded file header (it can be any content, for details, see the comments in the source code), and then combine it with the file we need to encrypt.

Features:
There will be no errors if there are spaces or other special characters in the file name and file path.
Some places can be modified more personalized (see the comments in the source code)

Precautions:
1. The original BAT file must be in ASCII encoding. Otherwise, it will not be successful
2. The encrypted file generated by this program is larger than the original file. Specifically, how much larger it is depends on how much is written in the tmpstr.WriteLine statement when creating the UNICODE-encoded file header. You can define it yourself.
3. The attached "BAT Encryptor VBS Version.vbs" and "BAT Encryptor Keep Copyright Version.vbs" have exactly the same functions. Those who are interested can open them with Notepad to see the differences, hehe...
4. BUG: Because the code for deleting the file uses the CMD command, it is currently found that it cannot be deleted only when the file is in the root directory of the disk, but it does not affect normal use and can be deleted manually. Since time is limited, it will not be corrected.

VBSCRIPT script source code:

'''''''''''''''''''''''''''''''''''

''  (P)2008 Jv Ching (qinchun36) ''

''     Powed by 中国DOS联盟      ''

''  http://www.cn-dos.net/forum/ ''

'''''''''''''''''''''''''''''''''''

on error resume next

if Wscript.Arguments(0)="" then

msgbox "Drag the target file to me with the mouse!!!",16,"Usage method"

else



dim origfile,tmpstr,ching,fso,orig,fname,fpath

origfile=Wscript.Arguments(0)

Set fso=CreateObject("Scripting.FileSystemObject")

set ching=wscript.createobject("wscript.shell")

set tmpstr=fso.getfile(origfile)

fpath=tmpstr.parentfolder&"\"



fname="new_"&tmpstr.name  'Define the encrypted file name as new_original file, you can change it to other.



'If new_original file already exists, delete it.

if (fso.fileexists(fpath&fname)) then

Set tmpstr=fso.getfile(fpath&fname)

tmpstr.Delete

end if



'Create a UNICODE-encoded file header. In WINDOWS, you will only see these non-garbled characters when opened with Notepad.

Set tmpstr=fso.CreateTextFile(fpath&"unihead.txt",1,-1)

tmpstr.WriteLine "Grass, what the hell are you looking at, I've been garbled by qinchun36!"    'You can write anything in the double quotes in front

tmpstr.close



'Add two blank lines and CLS clear screen statement at the beginning of the converted file

Set tmpstr=fso.CreateTextFile(fpath&"bathead.txt",1)

tmpstr.writeBlankLines 2

tmpstr.writeline("cls")  'Clear the error message at the beginning, you can also remove this line.

tmpstr.close



'For simplicity, call the CMD command to merge files and delete excessive files

tmpstr="cmd /c copy /b "&chr(34)&fpath&"unihead.txt"&chr(34)&"+"&chr(34)&fpath&"bathead.txt"&chr(34)&"+"&chr(34)&origfile&chr(34)&" "&chr(34)&fpath&fname&chr(34)&chr(38)&"del "&chr(34)&fpath&"unihead.txt"&chr(34)&chr(38)&"del "&chr(34)&fpath&"bathead.txt"&chr(34)

ching.run tmpstr,0



msgbox "The encrypted file is:"&chr(13)&chr(13)&fpath&fname,64,"Mr. Ching reminds you"



end if

[ Last edited by qinchun36 on 2008-11-1 at 21:59 ]

Good stuff! Thanks!!!