Encontre una carpeta llenas de archivos bat, con nombres como FILE0034.bat, FILE0035.bat, y asi sucesivamente, la carpeta no recuerdo como se llamaba pero tambien era un nombre rraro.
Al grano, espero y alguien de me diga que significa, que de batch le entiendo poco, y solo le entiendo algo asi de conversacion, jajaja. pero no encuentro respuesta.
De antremano Gracias...
Código
cls @echo off setlocal enabledelayedexpansion goto Start :Process_Options ) ) ) :start set counterE=0 :Fileusername title ChatEncode set Fileusername= echo Enter your username. set /p Fileusername= :choice title ChatEncode echo. echo Enter the number of your choice. echo. echo 1. Start Conversation echo 2. Join Conversation echo 3. Options echo 4. Single Encode echo 5. Single Decode echo 6. Delete Conversations echo 7. Credits set choice= set /p choice= :choice1 Title Start a conversation echo. echo. echo. echo. echo. echo Or change the directory. set choice= set /p choice= echo. :choice1-1 :Conversationsetup set /a counter1=counter1 goto conversationsetup ) set conversationpath=!convdir!\ChatEncode!counter1!_% style="color: #448888;">date:/=-%_%timestart%.log set encodedmessage= call :startencode set encodedmessage= ) echo. echo. echo. echo. set encodedmessage= call :startencode set encodedmessage= ) :nonewmembersyet set tokenoffset=3 set usernumber=2 set decodedmessage= call :startdecode ) echo. echo. echo. start cmd /k !ProgFilePath! Secondwindow !Conversationpath! % style="color: #448888;">encryptedconvo% goto FirstWindow ) goto Unencrypted_Conversation :Choice1-2 call :setupencoding set EncryptedConvo=1 goto conversationsetup :choice1-3 call :Set_Temp_Path goto choice1 :choice2 title Join a conversation echo. echo. echo Select conversation location. echo. echo 2. Other set choice= set /p choice= echo. :choice2-1 echo. echo. echo Choose type of existing session. echo. echo 1. Public conversation echo 2. Encrypted conversation echo. set choice= set /p choice= echo. :choice2-2 call :Set_Temp_Path goto choice2-1 :choice2-1-2 call :setupencoding set EncryptedConvo=1 goto join_conversation :choice2-1-1 set encryptedconvo= :Join_Conversation setlocal enabledelayedexpansion set counterQ=0 set count=0 title Currently open conversations echo. echo There is 1 open conversation: echo. echo. ) set MemberMessage=Members: set message=Members: set encodedmessage= call :startencode set encodedmessage= ) echo. echo. echo Enter number of desired conversation or press enter to refresh. echo. set choice= set /p choice= echo. set skipthisone=1 type "!conversationpath!" | find /v /i "%Membermessage%" >!conversationpath!.temp set counterB=0 set encodedmessage= call :startencode set encodedmessage= ) set memberline= set message= >!conversationpath! type "!conversationpath!.temp2" >>!conversationpath! type "!conversationpath!.temp" set encodedmessage= call :startencode set encodedmessage= ) start cmd /c !ProgFilePath! Secondwindow !Conversationpath! % style="color: #448888;">encryptedconvo% goto FirstWindow ) goto Unencrypted_Conversation :JoinUnencryptedMembers set decodedmessage= set encodedmessage= ) set CounterL=0 set decodedmessage= call :startdecode set decodedmessage= ) echo. exit /b :makedirectory set /p yesno= echo. exit /b :Choice3 title Options echo. echo. set yesno= set /p yesno= echo. echo The DoubleWindow feature is on by default. This option makes the session echo is only be one window, but you must refresh to recieve messages echo [by pressing return] echo they will only show when you press enter. goto choice3 ) :DW_YesNo set /p yesno= echo. >Chatencode.ini echo ***ChatEncode Options*** ) attrib "Chatencode.ini" -s -h -r type Chatencode.ini | find /i /v "DoubleWindow~" >Chatencode.ini.temp type Chatencode.ini.temp >Chatencode.ini del Chatencode.ini.temp >>Chatencode.ini echo. attrib "Chatencode.ini" +s +h +r echo Options Saved. :Dw_No call :Set_Temp_Path echo. call :Set_Save_Path goto choice :Set_Temp_Path echo. echo. echo. set choice= set /p choice= echo. set workpath=Convdir set numbertwo= echo Directory Assigned. :STP_YesNo set /p yesno= echo. >Chatencode.ini echo ***ChatEncode Options*** ) attrib "Chatencode.ini" -s -h -r type Chatencode.ini | find /i /v "conversationDirectory~" >Chatencode.ini.temp type Chatencode.ini.temp >Chatencode.ini del Chatencode.ini.temp >>Chatencode.ini echo. attrib "Chatencode.ini" +s +h +r echo Options Saved. exit /b :Set_Save_Path echo. set choice= set /p choice= echo. set workpath=Savepath set numbertwo=-2 echo Directory Assigned. :SSP_YesNo set /p yesno= echo. >Chatencode.ini echo ***ChatEncode Options*** ) attrib "Chatencode.ini" -s -h -r type Chatencode.ini | find /i /v "SavePath~" >Chatencode.ini.temp type Chatencode.ini.temp >Chatencode.ini del Chatencode.ini.temp >>Chatencode.ini echo. attrib "Chatencode.ini" +s +h +r echo Options Saved. exit /b :choice5 title Decode Message call :setupencoding set countera=-1 set counterc=-1 :choice5-Decode echo Enter Message To Decode: set encodedmessage= set /p encodedmessage= echo. echo Decoded message: echo. set decodedmessage= call :Startdecode echo. echo. echo. echo. echo. echo. :DM_YesNo set yesno= set /p yesno= echo. call :clearup_encoding ) goto Choice5-Decode :choice4 Title Encode Message set countera=-1 set counterc=-1 call :setupencoding echo Encoding Ready! :choice4-Encode echo. echo. echo Enter Message To Encode: set message= set /p message= echo. echo. echo. set encodedmessage= call :startencode echo Your message encoded is: echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo Your decoded message will look like this: echo. set decodedmessage= call :Startdecode echo. echo. echo. echo. echo. echo. :EM_YesNo set /p yesno= echo. call :clearup_encoding ) goto Choice4-Encode :Choice6 Title Delete conversations echo. Delete all conversations where? echo. echo 2. Other echo. echo 3. Return to menu set choice= set /p choice= echo. :choice6-1 goto choice :choice6-2 echo. echo Enter the directory of the conversations you wish to delete or type /Back to cancel set /p choice= echo. ) set CounterV=0 goto choice :choice7 echo Written, developed, tested, debugged and ScrewTheLotOfYou. echo Any comments, questions or suggestions would be appreciated echo Contact me at youtube.com/ScrewTheLotOfYou goto Choice :Unencrypted_Conversation set lineoffset=2 echo Enter your message or press enter to refresh. echo Press enter to join this conversation. set skipthisone= ) :Unencrypted_StartSpeaking set gotnewmsg= set newmessagecount=0 set testmessagecount=0 set usermessage= set /p usermessage= call :foundmessages ) if messagefailed==1 ( set messagefailed= goto unencrypted_NoNewMessages ) goto Unencrypted_MoreNewMessages :foundmessages exit /b :decryptfoundmessages set encodedmessage= set decodedmessage= call :startdecode exit /b :Unencrypted_MoreNewMessages goto Unencrypted_MoreNewMessages ) echo. :Unencrypted_NoNewMessages set encodedmessage= call :startencode set encodedmessage= ) set /a lineoffset= lineoffset + 2 goto Unencrypted_Startspeaking :Unencrypted_exit Echo Choose Option: echo 3. Resume set choice= set /p choice= :Clearup_encoding set seconddecode= set encodedmessage= set decodedmessage= set counterI= set countery= set counterz= set counterx= set second_encode= cls goto choice :setupencoding echo. set choice= set /p choice= echo. echo. echo. echo More layers of encryption means data is much more secure and much echo harder to crack. However, each new layer doubles the size of the echo encoded message and makes encoding and decoding slower. echo A single character with 1 layer of encryption would be encrypted echo to two characters, With two layers it would come out as four, with echo three layers as eight etc. echo More layers means much more secure data, but larger files and echo slower encoding and decoding. echo character. echo. echo. goto setupencoding ) :askforpass set password= set /p password="" echo. cls set choice= echo Setting up encoding... echo. echo. echo. set countery=0 :PEnumerator goto Penumerator :Usernumerator set /a counterz= counterz goto Usernumerator :enumdone set L19=; set L219=Quote set L257=Space set J0=qw set J1=we set J2=er set J3=rt set J4=ty set J5=yu set J6=io set J7=op set J8=as set J9=sd set J10=df set J11=fg set J12=gh set J13=hj set J14=jk set J15=kl set J16=zx set J17=xc set J18=cv set J19=vb set J20=bn set J21=nm set J22=qa set J23=ws set J24=ed set J25=rf set J26=tg set J27=yh set J28=uj set J29=ik set J30=ol set J31=az set J32=sx set J33=dc set J34=fv set J35=gb set J36=hn set J37=jm set J38=wa set J39=es set J41=tf set J42=yg set J43=uh set J44=ij set J45=ok set J46=pl set J47=sz set J48=dx set J49=fc set J50=gv set J51=hb set J52=jn set J53=km set J54=po set J55=oi set J56=iu set J57=uy set J58=yt set J59=tr set J60=re set J61=ew set J62=wq set J63=lk set J64=kj set J65=jh set J66=hg set J67=gf set J68=fd set J69=ds set J70=sa set J71=mn set J72=nb set J73=bv set J74=vc set J75=cx set J76=xz set J77=aq set J78=sw set J79=de set J80=fr set J81=gt set J82=hy set J83=ju set J84=ki set J85=lo set J86=za set J87=xs set J89=vf set J90=bg set J91=nh set J92=mj set J93=aw set J94=se set J95=dr set J96=ft set J97=gy set J98=hu set J99=ji set J100=ko set J101=lp set J102=zs set J103=xd set J104=cf set J105=vg set J106=bh set J107=nj set J108=mk set J109=qz set J110=wx set J111=ec set J112=rv set J113=tb set J114=yn set J115=um set J116=om set J118=ub set J119=yv set J120=tc set J121=rx set J122=ez set J123=zq set J124=xw set J125=ce set J126=vr set J127=bt set J128=ny set J129=mu set J130=mo set J131=ni set J132=bu set J133=vy set J134=ct set J135=xr set J136=ze set J137=qe set J138=wr set J139=et set J140=ry set J141=tu set J142=yi set J143=uo set J144=ip set J145=ad set J146=sf set J147=dg set J148=fh set J149=gj set J150=hk set J151=jl set J152=zc set J153=xv set J154=cb set J155=vn set J156=bm set J157=eq set J158=rw set J159=te set J160=yr set J161=ut set J162=iy set J163=ou set J164=pi set J165=da set J166=fs set J167=gd set J168=hf set J169=jg set J170=kh set J171=lj set J172=cz set J173=vx set J174=bc set J175=nv set J176=mb set J177=rq set J178=tw set J179=ye set J180=ur set J181=it set J182=oy set J183=pu set J184=fa set J185=gs set J186=hd set J187=jf set J188=kg set J189=lh set J190=vz set J191=bx set J192=nc set J193=mv set J194=qr set J195=wt set J196=ey set J197=ru set J198=ti set J199=yo set J200=up set J201=af set J202=sg set J203=dh set J204=fj set J205=gk set J206=hl set J207=zv set J208=xb set J209=cn set J210=vm set J211=qt set J212=wy set J213=eu set J214=ri set J215=to set J216=yp set J217=ag set J218=sh set J219=dj set J220=fk set J221=gl set J222=zb set J223=xn set J224=cm set J225=tq set J226=yw set J227=ue set J228=ir set J229=ot set J230=py set J231=ga set J232=hs set J233=jd set J234=kf set J235=lg set J236=bz set J237=nx set J238=mc set J239=qy set J240=wu set J241=ei set J242=ro set J243=tp set J244=ah set J245=sj set J246=dk set J247=fl set J248=zn set J249=xm set J250=mx set J251=nz set J252=lf set J253=kd set J254=js set J255=ha set J256=pt set j257=zp set countera=-1 set counterb=-1 set counterc=-1 :pcharloop goto pcharloop :allcharloop ) goto allcharloop :backupset goto allcharloop :startencode set layersdone=1 set counterx=0 set counterI=0 :MEnumerator goto Menumerator :encodemessage goto encodemessage :FirstEncodeDone set layersdone= exit /b ) set counterx=0 set counterI=0 set second_encode=1 set encodedmessage= goto MEnumerator :startdecode set layersdone=1 set counterx=0 set countery=0 set counterI=0 :DEnumerator goto Denumerator :Decodemessage goto Decodemessage :Dmessagefinished set counterI=0 set countery=0 set counterx=0 set decodedmessage= goto DEnumerator ) ::for /f %%I in ("&") do set and=%%I ::for /f %%I in ("%decodedmessage:&=!and!%") set decodedmessage=%%I ::echo !decodedmessage!&pause set layersdone= exit /b ::########################################################################################## ::########################################################################################## ::########################################################################################## :SecondWindow set lineoffset=2 :DoubleWindow_StartSpeaking set gotnewmsg= set newmessagecount=0 set testmessagecount=0 call :foundmessages ) if messagefailed==1 ( set messagefailed= goto DoubleWindow_NoNewMessages ) goto DoubleWindow_MoreNewMessages :DoubleWindow_MoreNewMessages goto DoubleWindow_MoreNewMessages ) echo. :DoubleWindow_NoNewMessages :FirstWindow echo Enter your message. :DoubleWindow_EnterMessage set usermessage= set /p usermessage= echo. set encodedmessage= call :startencode set encodedmessage= ) goto DoubleWindow_Entermessage :Doublewindow_exit Echo Choose Option: echo 3. Resume set choice= set /p choice= m e d d e t n a m n e t f i n n s r e d a n . A v b r y t i n s t a l l a t i o n e n o c h f ö r s ö k i n s t a l l e r a p å e n a n n a n p l a t s . I D S _ E R R O R _ 2 4 = S ä t t i n d i s k e t t e n : [ 2 ] I D S _ E R R O R _ 2 5 = I n s t a l l e r h a r i n t e b e h ö r i g h e t a t t k o m m a å t d e n h ä r k a t a l o g e n : [ 2 ] . I n s t a l l a t i o n e n k a n i n t e f o r t s ä t t a . L o g g a i n s o m a d m i n i s t r a t ö r e l l e r k o n t a k t a s y s t e m a d m i n i s t r a t ö r e n . I D S _ E R R O R _ 2 6 = D e t g i c k i n t e a t t s k r i v a t i l l f i l e n : [ 2 ] . B e k r ä f t a a t t d u k a n k o m m a å t d e n k a t a l o g e n . I D S _ E R R O R _ 2 7 = D e t u p p s t o d e t t f e l v i d l ä s n i n g f r å n f i l e n [ 2 ] . { { S y s t e m f e l [ 3 ] . } } B e k r ä f t a a t t f i l e n f i n n s o c h a t t d u k a n k o m m a å t d e n . I D S _ E R R O R _ 2 8 = E t t a n n a t p r o g r a m h a r e x k l u s i v å t k o m s t t i l l f i l e n [ 2 ] . S t ä n g a l l a a n d r a p r o g r a m o c h k l i c k a s e d a n p å F ö r s ö k i g e n . I D S _ E R R O R _ 2 9 = D e t f i n n s i n t e t i l l r ä c k l i g t m e d d i s k u t r y m m e f ö r a t t i n s t a l l e r a f i l e n : [ 2 ] . F r i g ö r u t r y m m e o c h k l i c k a p å F ö r s ö k i g e n e l l e r k l i c k a p å A v b r y t o m d u v i l l a v b r y t a i n s t a l l a t i o n e n . I D S _ E R R O R _ 3 = I n f o r m a t i o n [ 1 ] . I D S _ E R R O R _ 3 0 = D e t g i c k i n t e a t t h i t t a k ä l l f i l e n : [ 2 ] . B e k r ä f t a a t t f i l e n f i n n s o c h a t t d u k a n k o m m a å t d e n . I D S _ E R R O R _ 3 1 = D e t u p p s t o d
NOTA DEL MOD: Usa las etiqueta GeSHi.