Procedure DeCryptPBLib(*buffer.long,*size.long)
   Protected magic.l = $C3500
   Protected ende.l
   Protected start.l
  
  *buffer + PeekL(*buffer+4) + 12
  size       = PeekL(*buffer+4)
  *buffer  + 12
  start.l   = *buffer
  ende.l  = *buffer + size
  
  For *i.long = *buffer To ende Step SizeOf(long)
    *i\l =~ *i\l
    *i\l - magic
    magic + size
  Next
  
  *size\l = size
   
  ProcedureReturn start
EndProcedure

Procedure UnpackPBLib(buf.l,*size.long)
  Protected ubuf.l
  
  If PeekW(buf) = 'CJ'
      
    *size\l = PeekL(buf+2)
      
    ubuf       = AllocateMemory(*size\l + 8)
      
    UnpackMemory(buf,ubuf)
      
  EndIf
  
  ProcedureReturn ubuf
EndProcedure

#pfad = "C:\Users\Bubi\Desktop\"
#file = "2DDrawing"

file = ReadFile(-1,#pfad+#file)

If file

 size    = Lof(file)
 
 buffer = AllocateMemory(size)
 
	If ReadData(file,buffer,size)
	
	  CloseFile(file)
	  
	  lib = DeCryptPBLib(buffer,@size)
	
	  If lib And PeekW(lib) = 'CJ'
	     
		ubuf = UnpackPBLib(lib,@size)
	  
	  	file = CreateFile(-1,#pfad+#file+".lib")
	  
		If file
			  
			WriteData(file,ubuf,size)
			 
			CloseFile(file)
			  
		EndIf
			
		If ubuf
			  
		  FreeMemory(ubuf)
			  
		EndIf
	  
	  EndIf
	
	EndIf

	FreeMemory(buffer)

EndIf