| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 06:51:15 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=e107b3f3f8c177a2cabc6d04a84fe66b7e6756824ac20723963ed000de10f86fa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22MBWKGM5KcdzzS33Pk7-gAHT4J3ytx9Q9%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cc6d8e4d29c1c7-BLR
check existing password from person NAB - Pastebin.com
SHARE
TWEET
check existing password from person NAB
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /*
- Create a Form, name it as "FORM CHANGE PASSWORD"
- strExistingPassword = doc.existingPassword(0)
- strPassword1 = doc.password1(0)
- strPassword2 = doc.password2(0)
- */
- ' docPersonDocument is person document from NAB
- Dim strExistingPasswordFromNAB As String
- strExistingPasswordFromNAB = docPersonDocument.Httppassword(0)
- ' strExistingPasswordFromNAB is encrypted
- Dim strFormulaExistingPassword As String
- strFormulaExistingPassword = "@hashpassword(" + Chr(34) + strExistingPassword + Chr(34) + ")"
- 'strExistingPassword is field value from FORM CHANGE PASSWORD
- Dim varExistingPassword As Variant
- varExistingPassword = Evaluate(strFormulaExistingPassword)
- ' "$$ existing password is " + varExistingPassword(0)
- Dim strVerifyPassword As String
- strVerifyPassword = "@verifypassword( "+Chr(34)+strExistingPassword+Chr(34)+";"+Chr(34)+strExistingPasswordFromNAB+Chr(34)+" )"
- Dim varVerify As variant
- varVerify = evaluate(strVerifyPassword)
- ' act = "$$ strVerifyPassword = " + strVerifyPassword
- act = "result strVerifyPassword " + varVerify(0)
- If GlobaldebugFlag Then Call doCreateLogAction(GlobalLogProgramName,act)
- If varVerify(0) = 0 Then
- 'password existing does not match!
- exit sub
- End If
- ' "$$ new password is " + strPassword1
- Dim strNewPassword As String
- strNewPassword = "@hashpassword(" + Chr(34) + strPassword1 + Chr(34) + ")"
- ' act = "$$ str NewP " + strNewPassword
- Dim varNewPassword As Variant
- varNewPassword = Evaluate(strNewPassword)
- ' act = "new password is " + varNewPassword(0) + "<-- encrypted "
- 'saving / update new password to NAB!
- Call docPersonDocument.Replaceitemvalue("HTTPPassword", varNewPassword(0))
- Call docPersonDocument.save(True,True)
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐ G2A Payment Exploit ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 5 sec ago | 0.24 KB
-
⭐✅ MAKE $2500 IN 15 MIN ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 15 sec ago | 0.24 KB
-
⭐ ✅ Free Products Method ✅ ✅ NEVER SEEN BEFOR...
JavaScript | 25 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ M
JavaScript | 32 sec ago | 0.24 KB
-
⭐ G2A Bug ⭐ (Get more on BTC swaps) ✅ NEVER S...
JavaScript | 34 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ H
JavaScript | 43 sec ago | 0.24 KB
-
⭐✅ Jack's Profit Method ✅ NEVER SEEN BEF...
JavaScript | 43 sec ago | 0.24 KB
-
⭐✅ Online Marketplace Exploit ✅ NEVER SEEN BE...
JavaScript | 53 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
