OS2.org - Forum - HelpDesk

Site Index - Feedback - Impressum

News

Software

Hardware

Projekte

Forum

Tipps

Links

Verschiedenes

Editorial

Diskussion

HelpDesk

Umfrage

in nach (Erweiterte Suche)

( Archiv )

( Neues Thema )

( Zeige die Threadübersicht )

( Zur Startübersicht )

11.04.2002

Bildschirmsperre- Passwort ändern (von: peter, 12:16:26)	^
Hallo, Gibt es eine Möglichkeit das Passwort für die Bildschirmsperre zu ändern, ohne das ich in die Arbeitoberfläche -> Einstellung -> Sperren (3Seite) muss. Durch ein Programm wo ich auf die Arbeitsoberfläche legen kann. [ Leser: 77 ]

12.04.2002

Re: Bildschirmsperre- Passwort ändern (von: H. Korsawe, 07:41:02)
keine Ahnung ob es da was passendes gibt, aber mit REXX läßt sich evtl. was programmieren. Man muß sich "nur" mit REXX und dem Arbeitsoberflächen-Objekt auseinandersetzen.

15.04.2002

Re: Bildschirmsperre- Passwort ändern (von: Johé, 08:47:11)

Hallo Peter,

es gibt auf Hobbes ein Paket INI2REXX.ZIP

http://hobbes.nmsu.edu/pub/new/ini2rexx.zip

Am besten du erstellst dir auf deinem Rechner ein Passwort deiner Wahl und bootest den Rechner neu.

1. In ein Verzeichnis deiner Wahl auspacken.
2. die c:os2os2.ini in dieses Verzeichnis kopieren.
3. Aus diesem Verzeichnis dann
InI2R_en.CmD os2
aufrufen
4. Es wird eine os2.cmd erstellt. Darin suchst du nach dem String "Lockup".
5. Alles was nichts mit "lockup" zu tun hat aus der os2.cmd löschen.
6. Diese Zeile im os2.cmd-Script anpassen: File='C:OS2OS2.INI'
7. Auf dem neuen Rechner die erstellte os2.cmd aufrufen. (VORHER SICHERUNG!!)
8. booten

9. Falls es klappt, kannst du es dann über Anmeldescripte installieren (Vorher aber gut TESTEN)

Das Passwort lässt sich mit "MAKEINI lock.rc" wieder zurücksetzen.
(Am besten dann über kommandline booten, falls du nicht mehr drankommst.)

Die Datei os2.cmd könnte dann so aussehen:

Wahrscheinlich benötigst du noch eine Rexx-dll namens "fastini"
Diese ist u.a. enthalten im Cfgtool http://www.os2world.com/goran/cfgtool.htm

/* Script REXX to re-create the file OS2.INI */
/* File: OS2.INI */

File='C:OS2OS2.INI'
say 'File: '||File

Say "Hit Y + Enter to go on ..."
PULL answer
IF answer = "Y" THEN DO

CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
CALL SysLoadFuncs

CALL RxFuncAdd "FastIniStart", "FastIni", "FastIniStart"
CALL RxFuncAdd "FastIniEnd", "FastIni", "FastIniEnd"
mymkfileRC = FastIniStart(File, "mymkfileHandle")

/* Application: PM_Lockup */

App='PM_Lockup'
say 'Writing application: '||App

Key ='LockupOptions' /* ASCII: 9 chars out of 46 */
Hexa ='010001123456789001006866121C000000000000'||, /* ······Ñ···hf········ */
'0000000000000100000000000100000000000100'||, /* ············dÍg·Þ··· */
'123456010100' /* (·4··· */

Value=X2C(Hexa)
Call SysInI File,App,Key,Value

Key ='LockupScreenSaverMode' /* ASCII: 0 chars out of 4 */
Hexa ='00000000' /* ···· */

Value=X2C(Hexa)
Call SysInI File,App,Key,Value

Key ='LockupBitmap' /* ASCII: 24 chars out of 25 */
Value='OS2BITMAPLKUPBGND.BMP'||'00'x
Call SysInI File,App,Key,Value

call FastIniEnd mymkfileHandle

Say " "
Say "Done"
Say " "
end

Exit

Gruß
Udo

Set or Get the WPS lockup password (von: GA, 13:35:30)

/* */
/* sample REXX functions to set and get the password for the WPS */
/* lockup feature */
/* */
/* Author: Ned Konz (see EMail Addresses) */
/* */
/* History: */
/* 12.12.1996 /bs */
/* - added code to distinguish between OS/2 2.1(1) and OS/2 WARP */
/* (Tested with OS/2 WARP 3 and OS/2 WARP 4) */
/* - added code to handle 'Password not yet set' situations */
/* */
/* */
/* note: */
/* see also Changing the Lockup page entry, */
/* Setup strings for WPDesktop objects */
/* and Activating Lockup now */
/* */

call rxfuncadd "SYSLOADFUNCS", "REXXUTIL", "SYSLOADFUNCS"
call sysloadfuncs

/* check the OS/2 version */
if SysOS2Ver() > "2.11" then
do
/* current OS/2 version is WARP 3 or newer */
LockUpOptionString = "LockupOptions"
LockUpApplication = "PM_Lockup"
end /* if SysOS2Ver() > "2.11" then */
else
do
/* current OS/2 version is v2.11 or older */
LockUpOptionString = "Lockup_options3"
LockUpApplication = "Lock Up Workplace"
end /* else */

inival = SysIni( "USER", LockupApplication, LockUpOptionString )

if iniVal = "ERROR:" then
do
/* Never opened the lockup page of the */
/* desktop setup menu until now -> */
/* The entry for the Lockup page is missing */
/* in the INI file */
say "Error: No screen saver password set!"
say "Hint: Use the setup menu of the desktop to set an" ,
"initial password."
rc = 255
end /* if IniVal = "ERROR:" then */
else
do
say "The current password is: '" || GetPassword(inival) || "'"
say
say "Enter the new password (blank line to quit)"

newpass = lineIn()

if length( newpass ) <> 0 then
do
inival = SetPassword( inival, newpass )
rc = SysIni( "USER", LockupApplication, LockupOptionString, inival )

say "Password changed. Re-boot is needed to make permanent."
end /* if length( newPass ) <> 0 then */
end /* else */

EXIT rc

/* ------------------------------------------------------------------ */
/* function: given a single character encrypted key, return */
/* decrypted key */
/* */
/* call: DecrypKey encrypted_key */
/* */
/* where: encrypted_key - encrypted character */
/* */
/* returns: decrypted key */
/* */
/* note: called by GetPassword() */
/* */
DecryptKey: PROCEDURE
RETURN d2c( c2d( arg( 1 ) ) / 3 - 12 )

/* ------------------------------------------------------------------ */
/* function: get the password from the INI file entry */
/* */
/* call: GetPassword iniFileEntry */
/* */
/* where: iniFileEntry - entry from the INI file */
/* */
/* returns: decrypted password */
/* */
/* */
GetPassword: PROCEDURE

inival = arg( 1 )
/* encrypted key */
ekey = substr( inival, 7, 1 )

/* real key */
key = DecryptKey( ekey )

/* NUL term. */
parse value substr( inival, 11, 16 ) WITH val "00"x

key = copies( key, length( val ) )

RETURN bitxor( val, key )

/* ------------------------------------------------------------------ */
/* function: create an INI file entry to change the password */
/* */
/* call: SetPassword iniFileEntry, newPassword */
/* */
/* where: iniFileEntry - entry from the INI file */
/* newPassword - new password */
/* */
/* returns: new entry for the INI file */
/* */
/* */
SetPassword: PROCEDURE
inival = arg( 1 )

parse upper value arg( 2 ) WITH newpass

/* encrypted key: "27"x */
ekey = "27"x

/* real key: "01"x */
key = copies( DecryptKey( ekey ), length( newpass ) )

key = overlay( bitxor( key,newpass ), copies( "00"x, 16 ) )

inival = overlay( key, inival, 11 )

RETURN overlay( ekey, inival, 7 )

Hinweise:

1. Bevor man diese Operation ausführt, muß die OS2.INI gerettet werden. Eine nicht mehr funktionsfähige OS2.INI ohne eine gerettete Version bedeutet die sichere Neuinstallation.

2. Während der Ausführunf muß dafür gesorgt werden, daß keine andere laufende System,operation diese Prozedur zum Absturz bringt.

3. Diese Prozedur findest du in der Datei RXTT32.INF . Man findet sie im Netz, wenn man nach RXTT323 sucht.

4. Wenn du die Datei aus 3. editiert hast, suche nach dem Begriff PASSWORD.
Du findest dann in den Quellen das Thema mit der Überschrift dieser Meldung.

5. Bei Services z.B. dann auf copy klicken und mit einem editor (z.B. E.EXE) den Text der Datei holen und in einer Datei abspeichern, womit er als REXX Prozedur zur Verfügung steht.

Korrektur: Suche im Netz( Punkt 3.) (von: GA, 13:37:57)
3. . Diese Prozedur findest du in der Datei RXTT32.INF . Man findet sie im Netz, wenn man nach RXTT32 sucht.

( Zeige die Threadübersicht )

[ Version zum Drucken ]

( Zur Startübersicht )

Datum

Thema

08.01.2017

Name: *

eMail:

Benachrichtigung

Mit * markierte Felder müssen ausgefüllt werden !