PureBasic Forums - English

Posted: **Wed Oct 08, 2003 8:17 am**

Code updated For 5.20+

Hello,

here are two routines ported to PureBasic to recover your Passwords decrypted by the programm WS_FTP!

For new WS_FTP Versions:

Code: Select all

Procedure.s DecryptNeu(pw.s)
  
  If (Len(pw.s) < 35)
    ProcedureReturn "Err01"  ; PW-LÃ¤nge zu kurz
  EndIf
  
  noofpwchars=Len(pw.s)
  a = noofpwchars % 2                ; PW-LÃ¤nge muÃŸ ungerade sein!
  If (a = 0)
    ProcedureReturn "Err02"  ; PW falsche LÃ¤nge
  EndIf
  
  lenofpw = ((Len(pw.s)-33) / 2)
  
  For i=1 To lenofpw
    ascii.s     = Mid(pw.s, i+1, 1);
    asciiCode.l = Asc(ascii)
    asciiCode = asciiCode & 63
    
    pwchar.s = "$"+ Mid(pw.s, (32+(i*2)), 2)
    pwcharint.l = Val(pwchar.s)
    
    pwchar.s = Chr(pwcharint-asciiCode-(i-1))
    dpw.s = dpw.s+pwchar.s
  Next i
  
  ProcedureReturn dpw.s
  
EndProcedure

The Decryption-Routine for older Versions

Code: Select all

Procedure.s DecryptOld(pw.s)
  
  If (Len(pw.s) < 2)
    ProcedureReturn "Err01"  ; PW-LÃ¤nge zu kurz
  EndIf
  
  noofpwchars=Len(pw.s)
  a = noofpwchars % 2                ; PW-LÃ¤nge muÃŸ gerade sein!
  If (a <> 0)
    ProcedureReturn "Err02"  ; PW falsche LÃ¤nge
  EndIf
  
  lenofpw = (Len(pw.s) / 2)
  
  For i=1 To lenofpw
    pwchar.s = "$" + Mid(pw.s,(i*2)-1,2)
    pwcharint.l = Val(pwchar.s)
    
    pwchar.s = Chr(pwcharint - (i-1))
    dpw.s = dpw.s + pwchar.s
  Next i
  
  ProcedureReturn dpw.s
  
EndProcedure

I compiled them into a little tool, which you can download here :

http://www.weltenkonstrukteur.de/cw.html

Posted: **Sun Oct 12, 2003 4:48 pm**

The WS people sure didn't use very strong encryption did they!

Thanks for sharing!

Posted: **Sun Oct 12, 2003 7:25 pm**

@Karbon:

Indeed, I was really surprised [shocked] when I found out how simple the encryption is.

PureBasic Forums - English

WS_FTP Password Recovery

WS_FTP Password Recovery