Värkkäilinpä tässä sitten ajan kuluksi koodin, joka käy läpi kaikki mahdolliset 5 kirjaimen salasanat. Tästä saa helposti muokattua koodin, joka käy läpi ensin kaikki 1 kirjaimen salasanat, sitten 2 jne. jne. Text1$ on salasana, jota yritetään ratkaista.
Ja tämän olis voinut tehdä siistimminkin/lyhkäsemminkin, mutta tein tämän vain huvin vuoksi : )
Code: Select all
Dim temptext(5) As String
Dim crack(5)
sekunti=0
For a=1 To 5
crack(a)=65
Next a
password$=""
text1$="CaBEc"
mytimer#=Timer()
statetimer=Timer()
Repeat
overall+1
crack(5)=crack(5)+1
If crack(5)=122 Then
crack(4)=crack(4)+1
crack(5)=65
EndIf
If crack(4)=122 Then
crack(4)=65
crack(3)=crack(3)+1
EndIf
If crack(3)=122 Then
crack(3)=65
crack(2)=crack(2)+1
EndIf
If crack(2)=122 Then
crack(2)=65
crack(1)=crack(1)+1
EndIf
If crack(1)=255 Then End
temptext(5)=Chr(crack(5))
temptext(4)=Chr(crack(4))
temptext(3)=Chr(crack(3))
temptext(2)=Chr(crack(2))
temptext(1)=Chr(crack(1))
password=temptext(1)+temptext(2)+temptext(3)+temptext(4)+temptext(5)
If Timer()>statetimer+10000 Then
statetimer=Timer()
sekunti+10
Text 0,0,"Salasanoja käyty läpi "+overall+" kpl "+sekunti+" sekunnissa"
Text 0,20,"Eli "+overall/sekunti+" kappaletta sekunnissa"
DrawScreen
EndIf
Until text1=password
aika#=mytimer/1000
Repeat
Text 0,0,"Salasana on "+text1
Text 0,20,"Käytiin läpi "+overall+" salasanaa."
Text 0,40,"Aikaa meni "+aika+" sekuntia."
DrawScreen
Forever
viewtopic.php?p=16059#p16059
Nonniin koodia optimoitu ja lisätty ajastin. Tämähän on pieni muotoinen nopeus testi : )