WW Generator [hulp]

Nieuwe Liberty BASIC programmeurs kunnen hier om hulp vragen.

Moderators: anthonio, Abcott

WW Generator [hulp]

Berichtdoor ridick1 » zo feb 12, 2012 2:08 pm

ik heb een ww generator (zie download onder) voor als je een veilig wachtwoord nodig hebt/niks kan bedenken.
wat ik graag wil doen is een progamma maken om het gecodeerd op te slaan in een .txt:
stel, het wachtwoord is 126toastje839A,
dan geldt bijv. 1 is 2
2 is 1, 6 is 8, 8 is 6, 9 is A, A is 9, 3 is 4 en toastje is Bijv. ejtsaot dan krijg je:
218ejtsaot63A9
en als je het opent (met APPEND) dan krijg je gewoon 126toastje839A
wat ook kan is dat je het bijv. omgekkerd opslaat, dan heb je: A938ejtsaot621. en als je het opent is het weer hetzelfde als wat hier boven staat.

Zou zoiets mogelijk zijn?
aangezien de wachtwoorden die het genereert best moeilijk zijn te onthouden is het toch handig om ze op te slaan....

Groeten, Ridick

Password maker.rar
Het wachtwoord genereer progamma (bug vrij!)
(1.14 MiB) 167 keer gedownload


P.S. Ik heb er wat Xtra (commercieel achtige) dingen bij gedaan ;-)
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: WW Generator [hulp]

Berichtdoor bluatigro » ma feb 13, 2012 11:15 am

je zou met n key$ de wachtwoorden kunnen versleutelen
waarbij je elke letter van t wachtwoord anders versleuteld
dan heb je alleen een wachtwoord [ de key$ ] te onhouden

coderen met deze
Code: Selecteer alles
function code$( ww$ , key$ )
  a$ = "abcdefghijklmnopqrstuvwxyz0123456789"  ''dit kan langer met hoofd letters bv
  ww$ = lowwer$( ww$ )                                    ''dan moet deze regel weg
  for i = 1 to len( ww$ )
     l = instr( a$ , mid$( ww$ , i , 1 ) )
     q = instr( a$ , mid$( key$ , ( i mod ( len( key$ ) - 1 ) ) + 1 , 1 )
     uit$ = uit$ + mid$( a$ , ( ( l + q ) mod ( len( a$ ) - 1 ) ) + 1 , 1 )
  next i
  code$ = uit$
end function
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm

Re: WW Generator [hulp]

Berichtdoor ridick1 » ma feb 13, 2012 4:24 pm

Oke, bedankt.
Dit kan ik wel gebruikten :D
Ik heb nu geupdated dat hij het opslaat in generatedbackups.txt
(Hij vraagt ook als je dat wilt.)
Nu nog een 'laat wachtwoorden zien' knop en dan kan ik deze code gebruiken, het klopt dat hij hem wel gewoon leest?


Groetjes, ridick
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: WW Generator [hulp]

Berichtdoor Gordon » ma feb 13, 2012 7:13 pm

De .exe versie werkt waarschijnlijk niet zonder meer.
Ik heb het niet uitgeprobeerd maar ik zie dat de plaatjes in een
aparte bmp map moeten worden geplaatst.
Daar zal de gebruiker op moeten letten, of plaats de plaatjes
gewoon in dezelfde map als je hoofdprogramma en pas
de listing aan.

Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: WW Generator [hulp]

Berichtdoor ridick1 » di feb 14, 2012 9:13 am

Ik denk dat ik mijn code dan aan pas, bedankt voor de tip.
maar ik wil nu de opgeslagen bestanden openen maar dat wil niet lukken.
ik heb de code hier niet, ik kan hem vanmiddag geven.
maar dat komt waarschijnlijk omdat er geen mainwin is.'
ik denk dat ik het zelf nog een keer probeer met een appart progamma.
Alvast bedankt, ridick1

P.S. ik ben bezig met het leren van Visual Basic dus ik heb iets minder tijd.
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: WW Generator [hulp]

Berichtdoor ridick1 » di feb 14, 2012 4:09 pm

Ik heb het idee dat deze code prima werkt, ik heb niks aangepast maar het werkt prima, ik snap je opmerking dus niet....
Toch bedankt,

ridick
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: WW Generator [hulp]

Berichtdoor ridick1 » di feb 14, 2012 4:33 pm

Ik ben eruit met het opslaan :D
Hij maakt en .txt file die ook te openen is.
Helaas is nog niet gelukt om hem te coderen....
Dat komt nog.
De code is

Code: Selecteer alles
'Form created with the help of Freeform 3 v07-15-08
'Generated on Feb 11, 2012 at 20:03:44


notice "update" + CHR$(13) + _
       "there was an update!!! you can open the following file: generatedbackups.txt to check" + CHR$(13) + _
       "you'r password!!!!"


[setup.main.Window]

    '-----Begin code for #main

nomainwin
    WindowWidth = 505
    WindowHeight = 440
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)

    BackgroundColor$ = "cyan"

    '-----Begin GUI objects code

    bmpbutton #main.bmpbutton1, "button\buttontobe2.bmp", [generatebutton], UL, 0, 2
    TextboxColor$ = "white"
    textbox #main.textbox3,   5, 352, 440,  25
    statictext #main.statictext4, "Copy the generated pass here :",   5, 327, 184,  20

    '-----End GUI objects code

    '-----Begin menu code

    menu #main, "More",_
                "About & updates!", [about], "Open saves passwords", [openit]



    '-----End menu code

    open "Your password generator!!" for window as #main
    print #main, "font ms_sans_serif 10"
    print #main, "trapclose [quit.main]"


[main.inputLoop]   'wait here for input event
    wait



[generatebutton]   'Perform action for the bmpbutton named 'bmpbutton1'
prompt "typ a word: (something like toast)"; woordinpass$
if woordinpass$ = "" then
notice "ERROR: please typ in a word!"
goto [main.inputLoop]
end if
notice "There will appear a loadingbar if you click 'OK' now."

'begint met genereren

nomainwin
Global PBM.SETSTUP : PBM.SETSTEP = 1028
Global PBM.STEPIT : PBM.STEPIT = 1029
Global PBM.SETPOS : PBM.SETPOS = (_WM_USER)+2

BackgroundColor$ = "Black"

WindowWidth = 250
WindowHeight = 150

open "Generating your pass" for window as #1

#1, "trapclose [quitR]"
hWnd = hWnd(#1)
hProg = CreateProgressBar(hWnd, 20, 60, 200, 25)

[Repeat]
timer 0
For i = 0 to 100
    timer 100, [Next]
    wait
    [Next]
    timer 0
    call SetPos hProg, i 'Deze lijn zorgt ervoor dat de progress balk vooruitloopt

next i
    getal1 = int(rnd(1)*1000) + 1
    getal2 = int(rnd(1)*500) +1
    beginvpass1$ = woordinpass$; getal1
    beginvpass2$ = getal2; beginvpass1$
    beginvpass3$ = beginvpass2$; "A"
notice "password is generated succesfully!"
confirm "Do you want to save it? (Y/N)"; janee$
if janee$ = "yes" then
notice "hij is aan het opslaan!"
'gaat opslaan
nomainwin
open "generatedbackups.txt" for append as #maakpass
print #maakpass, "Date & Time: " ; date$(); " "; time$()
print #maakpass, " you'r password: "; beginvpass3$
print #maakpass, "Thanks for using, please use it again!"
print #maakpass, " "
notice "saved!!!"
close #maakpass
end if

'klaar met opslaan

print #main.textbox3, beginvpass3$
close #1
wait

[quitR]
close #1
wait

'Progressbar function
Function CreateProgressBar(hWnd, x, y, w, h)
extStyle = _WS_EX_CLIENTEDGE
progStyle = _WS_CHILD or _WS_VISIBLE

CallDLL #user32, "CreateWindowExA", _
extStyle as long,_
"msctls_progress32" as ptr,_
"" as ptr,_
progStyle as long,_
x as long,_
y as long,_
w as long,_
h as long,_
hWnd as long,_
0 as long,_
hInst as long,_
CreateProgressBar as long
End Function

Sub SetPos hProg, num
CallDLL #user32, "SendMessageA",_
hProg as long,_
PBM.SETPOS as long,_
num as long,_
0 as long,_
ret as long
End Sub



    wait

'einde genereren.


[about]   'Perform action for menu About, item About
notice "This pass generator is made by ridick4nothing," + CHR$(13) + _
       "Please DONT copy this progam, i made it for personal use but it can be" + CHR$(13) + _
       "used by others, its free and there isnt a survey!!!!" + CHR$(13) + _
       " "  + CHR$(13) + _
       "Update 1. : You can save it to a text file named generatedbackups.txt.txt (you can find it " + CHR$(13) + _
       "in the map whit dll's)" + CHR$(13) + _
       "It will ask to if you WANT to save." + CHR$(13) + _
       "This update is totaly safe!" + CHR$(13) + _
       " " + CHR$(13) + _
       "an second update!!! You can check now the saved passwords;" + CHR$(13) + _
       "Go to more > Open saved passwords and the .txt will popup!!!" + CHR$(13) + _
       "Succes whit it!!" + CHR$(13) + _
       " " + CHR$(13) + _
       "Thanks for reading this, and subscribe me at youtube:" + CHR$(13) + _
       "http://www.youtube.com/ridick4nothing and click subscribe :D"
    wait

    [openit]
'-------------------------------------------
'open's generatedbackups.txt for passes
'-------------------------------------------
notice "Read this!" + CHR$(13) + _
       "Please dont change something, you can lose your passwords!!!"
 RUN "NOTEPAD " + chr$(34) + "generatedbackups.txt" + chr$(34)
wait
'-------------------------------------------
'close #openit
'-------------------------------------------


[quit.main] 'End the program
    close #main
    end



Het is een te groot bestand voor bijlage dus ik geef even het noodzakelijke mee.
Je kan de code in liberty basic plakken en met het plaatje e.d. opstarten.

Noodzakelijk.zip
Het noodzakelijke
(71.4 KiB) 168 keer gedownload


Veel succes met het uitvoeren en uitproberen!!!!
Ik ga er nog wat mee klooien, als iemand tips heeft geef die dan.

Groeten, ridick1.
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm


Keer terug naar Beginner

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron