Odheslovat starý program ve WIN10

[bimbousek]

Ahoj, mám starý program vymyšlený asi ještě v MS-DOS (je tvořený jaky v Excelu). Mám ho už asi 15 let. Nainstaloval jsem ho do Win 10. Normálně fungoval, ale teď jsem ho dlouho nepoužíval a bohužel si za boha nevzpoomenu na heslo... Nějaká současná utilita by takhle starému programu mohla někde v jeho adresáři vyhledat to heslo, ne? Tuším, že se jmenuje AVP31kupson.
Díky za pomoc

[Nick213]

Docela by pomohl název toho "programu", aby se vůbec dalo zjistit, jestli nějaká utlilita existuje.

[bimbousek]

Je to na konci příspěvku - ten Kupson AVp

[Nick213]

To jsem zkoušel.. našlo mi to jen nějaké benzínové pumpy
O co přesně se jedná? K čemu má program sloužit?

[bimbousek]

Jo, je to na tankování močoviny (ADblue), dlouho se to nepoužívalo a teď na to čumím

[Abox]

A proc myslis, ze to heslo je nekde ulozene v nejakem adresari..?
A odkud jsi ho instaloval, nejaky manual treba k nemu neni..? Co tajny vyrobce (z Opavy)..?

[bimbousek]

15 let....

[Abox]

Ja vim, ale do tech W10 jsi to neinstaloval pred 15ti lety.

[Chipoun]

Co kontaktovat výrobce?
http://www.kupson.cz/cs/contact/

To že je jaky v excelu znamená, že je to excelový soubor s heslem?

[Oldest]

Mam v PC několik let uložené nějaké Makro (uložené jako textový soubor), které má umět prolomit hesla v EXCEL. Mám jednu vlastní Excel aplikaci, chráněnou heslem, ale u mne to nefunguje. Makro proběhne, ale heslo není prolomeno. Své heslo, které jsem zkoušel cvičně prolomit, samozřejmě znám.
Tento "Lamac" pochazi ze stranek bastleni.eu - z clanku od Michaela Ruprechta (mike007)
Sireni tohoto kodu je povoleno.
Kód WBA se má zkopírovat, vložit do Makra a makro spustit. Třeba to zafunguje. Zde je ten kód:

Public Sub zlomit_heslo()
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Const DBLSPACE As String = vbNewLine & vbNewLine
' === potvzení ===
If MsgBox("Spustit makro?", vbYesNo, "Potvrzení") <> vbYes Then Exit Sub
' === informační okno ===
MsgBox "Odemknutí listů bude chvíli trvat. " & DBLSPACE & _
"Záleží na počtu vložených hesel a jak výkonný je Váš počítač ... " & DBLSPACE & _
"Stiskem tlačítka OK zahájíte činnost makra"
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
Exit Sub
End If
If Not WinTag Then
Else
On Error Resume Next
Do
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Do
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
Application.ScreenUpdating = True
' === informační okno - úspěšně dokončení ===
MsgBox "Všechna hesla byla v tomto dokumentu zlomena!"
End Sub