Archives
Trending
Support
Login
clear text
XML
Django
JavaScript
MATLAB
C
C++
C#
Python
SQL
Shell
Bash
Markdown
YAML
JSON
HTML
CSS
PHP
Java
Ruby
Go
Rust
Swift
Kotlin
Arduino
TypeScript
Perl
Autohotkey
Lua
SQF
R
Scala
Haskell
Groovy
Dart
Clojure
VB.NET
Objective-C
PowerShell
Bash
CoffeeScript
Verilog
//Usage: //SAI_CleCCP = Cle_CCP_RIP("OLD",SAI_CompteCCP) //SAI_CleRIP = Cle_CCP_RIP("RIP",SAI_CompteCCP) PROCEDURE PUBLIC GLOBAL Cle_CCP_RIP(Type_Cle is string, Compte_CCP is string):string nResulta is int sCle is string = "00" SWITCH Type_Cle // Cle CCP CASE "OLD" FOR I = Length(Compte_CCP) TO 1 STEP -1 nResulta = (nResulta + Val(Compte_CCP[I]) * (Length(Compte_CCP) - I + 4)) nResulta = modulo(nResulta, 100) END // Cle Rip CASE "RIP" nResulta = (97 - ((((modulo(Val(Compte_CCP), 97)) * modulo(3, 97)) + 85) modulo 97)) OTHER CASE nResulta = 0 END //ADD "0" Like 01, 02, 03 ... etc sCle = NumToString(nResulta,"02d") Compte_CCP = NumToString(Val(Compte_CCP),"010d") RESULT sCle
Mark as private (unlisted)
for 30 minutes
for 6 hours
for 1 day
for 1 week
for 1 month
for 1 year
everlasting (like CCCP)
