ScreenSaver Password decoderDisplay the password defined for the screensaver on Win95
File Name : sspassword.vbs Requirement : Win95 Author : Jean-Luc Antoine Submitted : 01/09/2001 Category : Other '~~Script~~., that is for educational purpose only : not all chars can be 'decrypted with this script and the source is not optimised. I've done a 'better one that will not be published. '~~Script~~. Dim a,b, c,x,s, mp, source,WshShell Set WshShell = Wscript.CreateObject("Wscript.Shell") a=WSHShell.RegRead("HKCU\Control Panel\desktop\ScreenSaveUsePassword") If a = 0 Then MsgBox "Password not activated" : WScript.Quit(1) a = WSHShell.RegRead("HKCU\Control Panel\desktop\ScreenSave_Data") c="A303941463337354332363238453035413342434430364239313544344436" c=c & "B304141433334354632353242453335393338434530354241313644374435" c=c & "C304241443335354532343241453235383339434630344242313744364434" c=c & "D304341413332353932333244453535463345433830334243313044314433" c=c & "E304441423333353832323243453435453346433930324244313144304432" c=c & "F304541383330354232313246453735443343434130314245313544334431" c=c & "G304641393331354132303245453635433344434230304246313344324430" c=c & "H303041363345353532463231453935333332433430464230314344444446" c=c & "I303141373346353432453230453835323333433530454231314444434445" c=c & "J303241343343353732443233454235313330433630444232314544464444" c=c & "K303341353344353632433232454135303331433730434233314644454443" c=c & "L303441323341353132423235454435373336433030424234313844394442" c=c & "M303541333342353032413234454335363337433130414235313944384441" c=c & "N303641303338353332393237454635353334433230394236314144424439" c=c & "O303741313339353232383236454535343335433330384237314244414438" c=c & "P313842453236344433373339463134423241444331374138303443354337" c=c & "Q313942463237344333363338463034413242444431364139303543344336" c=c & "R314142433234344633353342463334393238444531354141303643374335" c=c & "S314242443235344533343341463234383239444631344142303743364334" c=c & "T314342413232343933333344463534463245443831334143303043314333" c=c & "U314442423233343833323343463434453246443931324144303143304332" c=c & "V314542383230344233313346463734443243444131314145303243334331" c=c & "W314642393231344133303345463634433244444231304146303343324330" c=c & "X313042363245343533463331463934333232443431464130304343444346" c=c & "Y313142373246343433453330463834323233443531454131304443434345" c=c & "Z313242343243343733443333464234313230443631444132304543464344" c=c & "Æ384532384230444241314146363744444243344138313345393235333531" c=c & "Ø393033364145433542464231373943334132353439463230384334443446" c=c & "Å384432424233443841324143363444454246343938323344393135303532" c=c & "é383132374246443441454130363844324233343538453331394435433545" c=c & "²464135434334414644354442313341394338334546353441453632373235" c=c & chr(34) & "364143433534334634353442383333393538414536354441373642374235" c=c & "'364643393531334134303445383633433544414236304446373342324230" c=c & "&364543383530334234313446383733443543414136314445373242334231" c=c & " 363843453536334434373439383133423541414336374438373442354237" c=c & "0373844453436324435373539393132423441424337374338363441354137" c=c & "1373944463437324335363538393032413442424437364339363541344136" c=c & "2374144433434324635353542393332393438424537354341363641374135" c=c & "3374244443435324535343541393232383439424637344342363741364134" c=c & "4374344413432323935333544393532463445423837334343363041314133" c=c & "5374444423433323835323543393432453446423937324344363141304132" c=c & "6374544383430324235313546393732443443424137314345363241334131" c=c & "7374644393431324135303545393632433444424237304346363341324130" c=c & "8373044363445323535463531393932333432423437464330364341444146" c=c & "9373144373446323435453530393832323433423537454331364441434145" source="" x = 0 while a(x) <> 0 source = source & Chr(a(x)) x = x + 1 wend s = "" For b = 0 To (len(c)/61)-1 s = s & Mid(c,1+b*61,1) For x = 1 To 30 s = s & Chr((Asc(Mid(c,x*2+b*61,1))-48)*16+Asc(Mid(c,x*2+1+b*61,1))-48) Next Next mp="" for a = 1 to (len(source)/2) for b=0 to (len(c)/61)-1 if mid(s,b*31+a*2,2)=mid(source,a*2-1,2) then mp=mp & mid(s,b*31+1,1) next if len(mp)<>a then mp=mp & "?" next msgbox "The Screen saver's password is : " & mp |
|||||
![]()
|
|