Şimdi Ara

Bat dosyası yardım (batch)

Bu Konudaki Kullanıcılar:
2 Misafir - 2 Masaüstü
5 sn
3
Cevap
0
Favori
383
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Ben bir bat dosyası buldum. Bir metini şifreleyebiliyor ve çözebiliyor. Asıl amacı parolaları şifrelemek ama sıkıntı şu ki sadece 20 karakter şifreleyebiliyor ve ben bunun sayısını arttırmak istiyorum. Bat dosyaları hakkında bilgili olan arkadaşlar bana yardımcı olursa sevinirim.  





    @echo off

    :begin

    cls

    echo ________________________________________________________________________________

    echo Crypt - Metin Sifreleyici / Sifre cozucu, Sean Dobson

    echo ________________________________________________________________________________

    set /p command=Sifrele ve ya coz? (s/c):

    if %command%==s goto ENC

    if %command%==c goto DEC

    goto MenuError

    :MenuError

    cls

    echo HATA: %command% gecersiz bir secenektir

    pause

    goto begin

    :ENC

    cls

    echo ________________________________________________________________________________

    echo Crypt - Metin Sifreleyici / Sifre cozucu, Sean Dobson

    echo ________________________________________________________________________________

    set /p filename=Metni kaydetmek istediginiz Dosya adini (orn. Metin) altina girin:

    cls

    :ENCpwd

    echo ________________________________________________________________________________

    echo Crypt - Metin Sifreleyici / Sifre cozucu, Sean Dobson

    echo ________________________________________________________________________________

    set /p text=Metni girin (20 karakter siniri, Karakterler [a-z] [A-Z] [0-9] icerebilir):

    cls

    echo ________________________________________________________________________________

    echo Crypt - Metin Sifreleyici / Sifre cozucu, Sean Dobson

    echo ________________________________________________________________________________

    Echo Sifreleniyor ...

    :ENC2

    set num2=0

    set c=

    set /a num1=%num1%+1

    set /a num3=%num3%+1

    if %num3%==1 set c=%text:~0,1%

    if %num3%==2 set c=%text:~1,1%

    if %num3%==3 set c=%text:~2,1%

    if %num3%==4 set c=%text:~3,1%

    if %num3%==5 set c=%text:~4,1%

    if %num3%==6 set c=%text:~5,1%

    if %num3%==7 set c=%text:~6,1%

    if %num3%==8 set c=%text:~7,1%

    if %num3%==9 set c=%text:~8,1%

    if %num3%==10 set c=%text:~9,1%

    if %num3%==11 set c=%text:~10,1%

    if %num3%==12 set c=%text:~11,1%

    if %num3%==13 set c=%text:~12,1%

    if %num3%==14 set c=%text:~13,1%

    if %num3%==15 set c=%text:~14,1%

    if %num3%==16 set c=%text:~15,1%

    if %num3%==17 set c=%text:~16,1%

    if %num3%==18 set c=%text:~17,1%

    if %num3%==19 set c=%text:~18,1%

    if %num3%==20 set c=%text:~19,1%

    if %num3%==21 goto ENC4

    :ENC3

    if %num2%==0 set L=

    if %num2%==1 set L=a

    if %num2%==2 set L=b

    if %num2%==3 set L=c

    if %num2%==4 set L=d

    if %num2%==5 set L=e

    if %num2%==6 set L=f

    if %num2%==7 set L=g

    if %num2%==8 set L=h

    if %num2%==9 set L=i

    if %num2%==10 set L=j

    if %num2%==11 set L=k

    if %num2%==12 set L=l

    if %num2%==13 set L=m

    if %num2%==14 set L=n

    if %num2%==15 set L=o

    if %num2%==16 set L=p

    if %num2%==17 set L=q

    if %num2%==18 set L=r

    if %num2%==19 set L=s

    if %num2%==20 set L=t

    if %num2%==21 set L=u

    if %num2%==22 set L=v

    if %num2%==23 set L=w

    if %num2%==24 set L=x

    if %num2%==25 set L=y

    if %num2%==26 set L=z

    if %num2%==27 set L=A

    if %num2%==28 set L=B

    if %num2%==29 set L=C

    if %num2%==30 set L=D

    if %num2%==31 set L=E

    if %num2%==32 set L=F

    if %num2%==33 set L=G

    if %num2%==34 set L=H

    if %num2%==35 set L=I

    if %num2%==36 set L=J

    if %num2%==37 set L=K

    if %num2%==38 set L=L

    if %num2%==39 set L=M

    if %num2%==40 set L=N

    if %num2%==41 set L=O

    if %num2%==42 set L=P

    if %num2%==43 set L=Q

    if %num2%==44 set L=R

    if %num2%==45 set L=S

    if %num2%==46 set L=T

    if %num2%==47 set L=U

    if %num2%==48 set L=V

    if %num2%==49 set L=W

    if %num2%==50 set L=X

    if %num2%==51 set L=Y

    if %num2%==52 set L=Z

    if %num2%==53 set L=1

    if %num2%==54 set L=2

    if %num2%==55 set L=3

    if %num2%==56 set L=4

    if %num2%==57 set L=5

    if %num2%==58 set L=6

    if %num2%==59 set L=7

    if %num2%==60 set L=8

    if %num2%==61 set L=9

    if %num2%==62 set L=0

    set e%num1%=

    if "%c%"=="%L%" set e%num1%=%num2%

    if "%c%"==" " set e%num1%=0

    set /a num2=%num2%+1

    if defined e%num1% goto ENC2

    goto ENC3

    :ENC4.1

    set /a Rnum=%Rnum%-1

    :ENC4

    set /a Rnum=%Rnum%+1

    set rcheck=

    set rcheck2=

    set rcheck=%random:~0,4%

    set /a rcheck2=%rcheck%+63

    if %rcheck% LSS 1063 goto ENC4.1

    if %rcheck2% GTR 9999 goto ENC4.1

    set r%Rnum%=%rcheck%

    if defined r20 goto ENC5

    goto ENC4

    :ENC5

    set /a e1=%e1%+%r1%

    set /a e2=%e2%+%r2%

    set /a e3=%e3%+%r3%

    set /a e4=%e4%+%r4%

    set /a e5=%e5%+%r5%

    set /a e6=%e6%+%r6%

    set /a e7=%e7%+%r7%

    set /a e8=%e8%+%r8%

    set /a e9=%e9%+%r9%

    set /a e10=%e10%+%r10%

    set /a e11=%e11%+%r11%

    set /a e12=%e12%+%r12%

    set /a e13=%e13%+%r13%

    set /a e14=%e14%+%r14%

    set /a e15=%e15%+%r15%

    set /a e16=%e16%+%r16%

    set /a e17=%e17%+%r17%

    set /a e18=%e18%+%r18%

    set /a e19=%e19%+%r19%

    set /a e20=%e20%+%r20%

    echo %e1%%e2%%e3%%e4%%e5%%e6%%e7%%e8%%e9%%e10%%e11%%e12%%e13%%e14%%e15%%e16%%e17%%e18%%e19%%e20%>"%filename%.pwd"

    echo %r1%%r2%%r3%%r4%%r5%%r6%%r7%%r8%%r9%%r10%%r11%%r12%%r13%%r14%%r15%%r16%%r17%%r18%%r19%%r20%>"%filename%.key"

    :ENC6

    cls

    echo ________________________________________________________________________________

    echo Crypt - Metin Sifreleyici / Sifre cozucu, Sean Dobson

    echo ________________________________________________________________________________

    echo Sifreleme tamam!

    pause

    exit

    :DEC

    cls

    echo ________________________________________________________________________________

    echo Crypt - Metin Sifreleyici / Sifre cozucu, Sean Dobson

    echo ________________________________________________________________________________

    echo NOT:(*.pwd) ve (*.key) ayni isimde olmalidir. (or. sifre.pwd ve sifre.key)

    echo VE bu dosyayla ayni yerde.

    echo.

    set /p filename=Sifreli Metnin kaydedildigi Dosya adini girin (orn. Metin):

    cls

    echo ________________________________________________________________________________

    echo Crypt - Metin Sifreleyici / Sifre cozucu, Sean Dobson

    echo ________________________________________________________________________________

    if not exist "%filename%.pwd" goto ERRpwd

    if not exist "%filename%.key" goto ERRkey

    goto DEC2

    :ERRpwd

    echo HATA: %filename%.pwd bulunamadi

    pause

    goto DEC

    :ERRkey

    echo HATA: %filename%.key bulunamadi

    pause

    goto DEC

    :DEC2

    cls

    echo ________________________________________________________________________________

    echo Crypt - Metin Sifreleyici / Sifre cozucu, Sean Dobson

    echo ________________________________________________________________________________

    Echo Sifre cozuluyor ...

    set /p key= <"%filename%.key"

    set /p pwd= <"%filename%.pwd"

    set k1=%key:~0,4%

    set k2=%key:~4,4%

    set k3=%key:~8,4%

    set k4=%key:~12,4%

    set k5=%key:~16,4%

    set k6=%key:~20,4%

    set k7=%key:~24,4%

    set k8=%key:~28,4%

    set k9=%key:~32,4%

    set k10=%key:~36,4%

    set k11=%key:~40,4%

    set k12=%key:~44,4%

    set k13=%key:~48,4%

    set k14=%key:~52,4%

    set k15=%key:~56,4%

    set k16=%key:~60,4%

    set k17=%key:~64,4%

    set k18=%key:~68,4%

    set k19=%key:~72,4%

    set k20=%key:~76,4%

    set e1=%pwd:~0,4%

    set e2=%pwd:~4,4%

    set e3=%pwd:~8,4%

    set e4=%pwd:~12,4%

    set e5=%pwd:~16,4%

    set e6=%pwd:~20,4%

    set e7=%pwd:~24,4%

    set e8=%pwd:~28,4%

    set e9=%pwd:~32,4%

    set e10=%pwd:~36,4%

    set e11=%pwd:~40,4%

    set e12=%pwd:~44,4%

    set e13=%pwd:~48,4%

    set e14=%pwd:~52,4%

    set e15=%pwd:~56,4%

    set e16=%pwd:~60,4%

    set e17=%pwd:~64,4%

    set e18=%pwd:~68,4%

    set e19=%pwd:~72,4%

    set e20=%pwd:~76,4%

    :DEC3

    set num2=0

    set t=

    set /a num=%num%+1

    if %num%==1 set /a t=%e1%-%k1%

    if %num%==2 set /a t=%e2%-%k2%

    if %num%==3 set /a t=%e3%-%k3%

    if %num%==4 set /a t=%e4%-%k4%

    if %num%==5 set /a t=%e5%-%k5%

    if %num%==6 set /a t=%e6%-%k6%

    if %num%==7 set /a t=%e7%-%k7%

    if %num%==8 set /a t=%e8%-%k8%

    if %num%==9 set /a t=%e9%-%k9%

    if %num%==10 set /a t=%e10%-%k10%

    if %num%==11 set /a t=%e11%-%k11%

    if %num%==12 set /a t=%e12%-%k12%

    if %num%==13 set /a t=%e13%-%k13%

    if %num%==14 set /a t=%e14%-%k14%

    if %num%==15 set /a t=%e15%-%k15%

    if %num%==16 set /a t=%e16%-%k16%

    if %num%==17 set /a t=%e17%-%k17%

    if %num%==18 set /a t=%e18%-%k18%

    if %num%==19 set /a t=%e19%-%k19%

    if %num%==20 set /a t=%e20%-%k20%

    if %num%==21 goto DEC5

    :DEC4

    if %num2%==0 set L=blank

    if %num2%==1 set L=a

    if %num2%==2 set L=b

    if %num2%==3 set L=c

    if %num2%==4 set L=d

    if %num2%==5 set L=e

    if %num2%==6 set L=f

    if %num2%==7 set L=g

    if %num2%==8 set L=h

    if %num2%==9 set L=i

    if %num2%==10 set L=j

    if %num2%==11 set L=k

    if %num2%==12 set L=l

    if %num2%==13 set L=m

    if %num2%==14 set L=n

    if %num2%==15 set L=o

    if %num2%==16 set L=p

    if %num2%==17 set L=q

    if %num2%==18 set L=r

    if %num2%==19 set L=s

    if %num2%==20 set L=t

    if %num2%==21 set L=u

    if %num2%==22 set L=v

    if %num2%==23 set L=w

    if %num2%==24 set L=x

    if %num2%==25 set L=y

    if %num2%==26 set L=z

    if %num2%==27 set L=A

    if %num2%==28 set L=B

    if %num2%==29 set L=C

    if %num2%==30 set L=D

    if %num2%==31 set L=E

    if %num2%==32 set L=F

    if %num2%==33 set L=G

    if %num2%==34 set L=H

    if %num2%==35 set L=I

    if %num2%==36 set L=J

    if %num2%==37 set L=K

    if %num2%==38 set L=L

    if %num2%==39 set L=M

    if %num2%==40 set L=N

    if %num2%==41 set L=O

    if %num2%==42 set L=P

    if %num2%==43 set L=Q

    if %num2%==44 set L=R

    if %num2%==45 set L=S

    if %num2%==46 set L=T

    if %num2%==47 set L=U

    if %num2%==48 set L=V

    if %num2%==49 set L=W

    if %num2%==50 set L=X

    if %num2%==51 set L=Y

    if %num2%==52 set L=Z

    if %num2%==53 set L=1

    if %num2%==54 set L=2

    if %num2%==55 set L=3

    if %num2%==56 set L=4

    if %num2%==57 set L=5

    if %num2%==58 set L=6

    if %num2%==59 set L=7

    if %num2%==60 set L=8

    if %num2%==61 set L=9

    if %num2%==62 set L=0

    set t%num%=

    if %t%==%num2% set t%num%=%L%

    if defined t%num% goto DEC3

    set /a num2=%num2%+1

    goto DEC4

    :DEC5

    if %t1%==blank set "t1= "

    if %t2%==blank set "t2= "

    if %t3%==blank set "t3= "

    if %t4%==blank set "t4= "

    if %t5%==blank set "t5= "

    if %t6%==blank set "t6= "

    if %t7%==blank set "t7= "

    if %t8%==blank set "t8= "

    if %t9%==blank set "t9= "

    if %t10%==blank set "t10= "

    if %t11%==blank set "t11= "

    if %t12%==blank set "t12= "

    if %t13%==blank set "t13= "

    if %t14%==blank set "t14= "

    if %t15%==blank set "t15= "

    if %t16%==blank set "t16= "

    if %t17%==blank set "t17= "

    if %t18%==blank set "t18= "

    if %t19%==blank set "t19= "

    if %t20%==blank set "t20= "

    cls

    echo ________________________________________________________________________________

    echo Crypt - Metin Sifreleyici / Sifre cozucu, Sean Dobson

    echo ________________________________________________________________________________

    echo Sifre cozme tamamlandi!

    echo Your text is:%t1%%t2%%t3%%t4%%t5%%t6%%t7%%t8%%t9%%t10%%t11%%t12%%t13%%t14%%t15%%t16%%t17%%t18%%t19%%t20%

    pause

    exit




    < Bu mesaj bu kişi tarafından değiştirildi Exe Power -- 27 Mayıs 2021; 10:59:0 >







  • yardım ederseniz sevinirim.




    < Bu mesaj bu kişi tarafından değiştirildi Exe Power -- 27 Mayıs 2021; 11:0:33 >
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.