openread 1 c:\md.txt :mainloop read 1 *string checkeof 1 if errorlevel 1 goto close gosub sendstring goto mainloop :sendstring stuffkey 0 13 stuffkey 0 95 stuffkey 0 9 stuffkey 0 95 set *i 1 strlen *len @string@ :loop if @i@ > @len@ goto endloop strmid *c @i@ 1 @string@ stuffstring "@c@" stuffkey 0 27 c:\bin\rc c:\ja3es.txt CheckKey if errorlevel 1 goto abort calc *i @i@ + 1 goto loop :endloop stuffkey 0 13 stuffkey 0 95 stuffkey 80 0 stuffkey 0 27 c:\bin\rc c:\ja3es.txt return :abort getkey *c :close close 1 end