From 425e4f1ad82cc95d70e88b969916484d17ee5f27 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sat, 18 Oct 2008 20:19:16 +0000
Subject: [PATCH] fix to fix

---
 harbour/contrib/xhb/hbcrypt.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/harbour/contrib/xhb/hbcrypt.c b/harbour/contrib/xhb/hbcrypt.c
index 03d682179c..8a8f33974f 100644
--- a/harbour/contrib/xhb/hbcrypt.c
+++ b/harbour/contrib/xhb/hbcrypt.c
@@ -154,7 +154,7 @@ void nxs_scramble(
    nxs_make_scramble( scramble, key, keylen );
 
    /* Leave alone the last block */
-   len = keylen > 0 ? (cipherlen / keylen) * keylen : 0;
+   len = keylen > 0 ? (srclen / keylen) * keylen : 0;
    nxs_partial_scramble( source, cipher, scramble, len, keylen );
 
    keylen = srclen - len;