Kennwort

BAR$PWD (RPGLE)



  X * KENNWORTNEU BEGSR BAR$PWD 19  
  X * KENNWORTMIT BEGSR BAR$PWD 7  
  X * KENNWORTBEN BEGSR BAR$PWD 7  
  X * KENNWORTBEN$ BEGSR BAR$PWD 7  
  X * KENNWORTHASH BEGSR BAR$PWD 29  
  X * KENNWORTHASH2 BEGSR BAR$PWD 19  
  X * MAKEHASH BEGSR BAR$PWD 14  
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2010-2023
C          
  X * DBNEUMIT EXSR BAR$NEUED    
  X * DBNEUPWD EXSR BAR$NEUED    
  X  
C     KENNWORTNEU BEGSR                
C       CLEAR   KENNWORT3            
C *     --------------------------------------
C *     Neues Kennwort erzeugen
C *     --------------------------------------
C       DO 10              
C       CALLP(E) RANDOM ( SEED:
C         RANDNUM:
C         FEEDBACK)
C     RANDCHARSLEN MULT RANDNUM RAND            
C       ADD 1 RAND            
C     1 SUBST RANDCHARS:RAND CHAR            
C       CAT CHAR:0 KENNWORT3            
C       ENDDO                
C *     --------------------------------------
C *     Kennwort für Mitglied verschlüsseln
C *     --------------------------------------
C       EXSR KENNWORTMIT              
C       ENDSR                
C          
  X * DBCHGPWD EXSR BAR$NEUED    
  X * KENNWORTNEU EXSR BAR$PWD    
  X  
C     KENNWORTMIT BEGSR                
C *     --------------------------------------
C *     Kennwort für Mitglied verschlüsseln
C *     --------------------------------------
C       MOVEL(P) MIDATPWD SALZ            
C       EXSR KENNWORTHASH              
C       ENDSR                
C          
  X * DBCHGPWD EXSR BAR$NEUED    
  X * DBCHGMAIL EXSR BAR$NEUED    
  X * SESSION4 EXSR BAR$SID    
  X  
C     KENNWORTBEN BEGSR                
C *     --------------------------------------
C *     Kennwort für Benutzer verschlüsseln
C *     --------------------------------------
C       MOVEL(P) BEDATPWD SALZ            
C       EXSR KENNWORTHASH              
C       ENDSR                
C          
  X * SESSION2 EXSR BAR$SID    
  X  
C     KENNWORTBEN$ BEGSR                
C *     --------------------------------------
C *     Kennwort für Benutzer verschlüsseln
C *     --------------------------------------
C       MOVEL(P) B$DATPWD SALZ            
C       EXSR KENNWORTHASH              
C       ENDSR                
C          
  X * KENNWORTMIT EXSR BAR$PWD    
  X * KENNWORTBEN EXSR BAR$PWD    
  X * KENNWORTBEN$ EXSR BAR$PWD    
  X  
C     KENNWORTHASH BEGSR                
C *     --------------------------------------
C *     Kennwort verschlüsseln
C *     --------------------------------------
C       MOVEL(P) KENNWORT SOURCE$            
C       EXSR KENNWORTHASH2              
C       MOVEL(P) PWDHASH PWD            
C          
C *     --------------------------------------
C *     Kennwort verschlüsseln
C *     --------------------------------------
C       MOVEL(P) KENNWORT1 SOURCE$            
C       EXSR KENNWORTHASH2              
C       MOVEL(P) PWDHASH PWD1            
C          
C *     --------------------------------------
C *     Kennwort verschlüsseln
C *     --------------------------------------
C       MOVEL(P) KENNWORT2 SOURCE$            
C       EXSR KENNWORTHASH2              
C       MOVEL(P) PWDHASH PWD2            
C          
C *     --------------------------------------
C *     Kennwort verschlüsseln
C *     --------------------------------------
C       MOVEL(P) KENNWORT3 SOURCE$            
C       EXSR KENNWORTHASH2              
C       MOVEL(P) PWDHASH PWD3            
C       ENDSR                
C          
  X * KENNWORTHASH EXSR BAR$PWD    
  X * KENNWORTHASH EXSR BAR$PWD    
  X * KENNWORTHASH EXSR BAR$PWD    
  X * KENNWORTHASH EXSR BAR$PWD    
  X  
C     KENNWORTHASH2 BEGSR                
C       CLEAR   PWDHASH            
C *     --------------------------------------
C *     Kennwort verschlüsseln
C *     --------------------------------------
C     *BLANKS IFNE SOURCE$              
C          
C *     --------------------------------------
C *     Kennwort salzen
C *     --------------------------------------
C     SOURCE$ CAT(P) SALZ:1 SOURCE$            
C          
C *     --------------------------------------
C *     Kennwort verschlüsseln
C *     --------------------------------------
C       EXSR MAKEHASH              
C       CLEAR   SOURCE$            
C       ENDIF                
C       ENDSR                
C          
  X * KENNWORTHASH2 EXSR BAR$PWD    
  X  
C     MAKEHASH BEGSR                
C *     --------------------------------------
C *     Text verschlüsseln PWDHASH
C *     --------------------------------------
C     ' ' CHECKR SOURCE$ DATALENGTH            
C       MOVEL(P) *LOVAL HASHWORKAREA            
C       CALLP(E) CIPHER (%ADDR ( RECEIVER$PTR):
C               %ADDR ( CONTROLS):
C               %ADDR ( SOURCE$PTR))
C       CALLP(E) CVTHC ( PWDHASH:
C         RECEIVER$:
C         PWDHASHLEN)
C     UPPER:LOWER XLATE PWDHASH PWDHASH            
C       ENDSR                

146 ms | Contact | Information | Aibo-Bar © 2005-2024