Albis

Administratorkennwort

Menü -> Stammdaten -> Benutzerverwaltung -> Benutzerverwaltung...

Um nicht immer die Hotline von Albis zu bemühen kann sehr einfach das Passwort neu gesetzt werden. Im InstallationsPfad von Albis gibt es die Albisglb.ini.
Darin zur Sektion [Verwaltung] springen und nach dem Schlüssel BV= ausschau halten. Ist dieser nicht vorhanden einfach einen neue Zeile eintragen.
Jetzt einfach BV=1 eingeben bzw. den Eintrag ersetzen. Dann ist das Administratorkennwort 2 Also immer mehr wie eingetragen.

Benutzerkennwort

Das Benutzerkennwort ist in der Datenbank Benutzer.dbf abgelegt.
Mit dBase-Editor DBU.exe im Albis DB-Ordner die Benutzer.dbf öffnen. Als Passwort 1 eintragen und mit 2 kann man sich dann wieder einloggen. Da

In C:\albiswin\listen den Ordner „lablog“ erzeugen
In der Datei LOCAL.ini in C:\albiswin im Abschnitt [Sysparam]
den Eintrag ActivateLaborLogging=t erzeugen.
(an welcher Stelle innerhalb Sysparam spielt keine Rolle)
Sobald ALBIS neu startet, sollte das Logging aktiv sein.

Dann müsste man den Fehler provozieren, im Verzeichnis „lablog“ sollten
dann die von ALBIS importierten LDTs und ein Logfile
vorhanden sein.

<div>Dieses kleine Script probiert die möglichen Passwörter von 1000 bis 9999 durch.</div>
<div> </div>
<div>
<div>
<div>
<div>Script-Link: <a href="/../download/wsh/albis_pw_brutforce.vbs" data-cke-saved-href="../download/wsh/albis_pw_brutforce.vbs"><img src="/../images/stories/windows/thumbs/script.jpg" alt="" width="16" height="19" style="vertical-align: text-bottom; border: 0pt none;" border="0" data-cke-saved-src="../images/stories/windows/thumbs/script.jpg" /></a></div>
</div>
</div>
</div>
<div class="VBA_code">Option Explicit Dim wsh, i, j, s, z, t Set wsh = CreateObject("WScript.Shell")
MsgBox "Jetzt das Albis-Programm aktivieren." & vbcrlf &"Innerhalb von 3 Sek. Zeit!" , vbOKOnly, "Albis BruteForce PW knacken" WScript.sleep 3000 t = Time For j = 1 To 9999
z = addLeadingZero(j)
s = vbnullstring
For i = 1 To 4
s = s & "{" & Mid(z, i, 1) & "}"
Next
wsh.Sendkeys "%svv"
WScript.sleep 50 'evtl. bis 100
wsh.Sendkeys s
WScript.sleep 100  'evtl. bis 150
 
wsh.Sendkeys "{Enter}"
  'Hier muss eine gewisse Wartezeit sein damit das Formular geladen werden kann 
WScript.sleep 100
WScript.echo z
 '  wsh.Sendkeys "%n" 'neuen DS aufrufen damit Enter unterbunden wird falls das PW stimmt 
If wsh.AppActivate("Benutzerverwaltung") = True Then
t = (Time - t) * 1404
WScript.echo Time_To_minsec(t)
InputBox "Albis Benutzerverwaltung !","Das heutige Passwort ist : " & z, z    
WScript.echo "Passwort : " & z
WScript.quit
Else
wsh.Sendkeys "{Enter}"
End If
Next
Function addLeadingZero(number)
If number < 10 Then
number = "000" & number
ElseIf number < 100 Then
number = "00" & number
ElseIf number < 1000 Then
number = "0" & number
End If
addLeadingZero = number
End Function
Function Time_To_minsec(t)
Dim i, s
i = InStr(1, t, ",")    
If i = 0 Then
s = t
Else
s = Left(t, InStr(1,t, "")) & ":"
i = CInt(Right(t, Len(t) - InStr(1,t , "")) * 60)
If i = 0 Then
s = s & i
Else
s = s & i
End If    
End If
Time_To_minsec = "Dauer " & s
End Function</div>
<div> </div>

Algemeine Zuordnung

In der Registry

Formular	Format	Regedit
13a HMV Phys.Therapie	A5 Hoch / Blank.F	1052
18a HMV Ergotherapie	A5 Hoch / Blank.F	1053
Abrechnungsschein	A5 Hoch / kein Bl.F	1004
Anforderungsschein Labor 10a	A5 Quer / Blank.F	1104
AU	A5 Hoch /Blank.F	1003
Formularkopf	A4 Hoch	1017
Kinder-AU	A6 Hoch	1030
Krankenbeförderung	A5 Quer	1013
Krankenhaus	A5 Hoch / Blank.F	1006
Logopädieverordnung (Heilmittelverordnung 14a) zu Groß für A5!!!	A5 Hoch / Blank.F
Notfallschein	A5 Quer / Blank.F	1012
Praxisgebührquittung	A6 Quer	1069
Privatrezept formfrei	A6 Hoch	1007
Kassenrezept	A6 Quer	1001
Überweisung	A5 Quer / Blank.F	1002
Überweisung Labor	A5 Quer / Blank.F	1047

Administratorkennwort und Benutzerkennwort

Administratorkennwort

Benutzerkennwort

Logging einschalten in Albis

Passwort per Bruteforce herausbekommen

Albis Formular IDs