PureBasic

autre code pour tacher de mieux comprendre mes erreurs :

XIncludeFile "base32.pbi"
XIncludeFile "hmac_fonctions.pbi"

Procedure.s GenerateTOTP(secretKey.s, timePeriod.l, hashAlgorithm.l, timeset.l=0,seckey_attendu.s="",hmac_attendu.s="",counter_attendu.s="",hmac_attendu_trunc.s="",totp_attendu.s ...

mon code qui ne donne pas le résultat valide :


;https://www.ionos.fr/digitalguide/serveur/securite/totp/
;https://chat.openai.com/c/2858755d-577b-4a13-a2e0-4b1e2e9643cc
;https://www.unixtime.fr/
;https://www.cyberforum.ru/pure-basic/thread2714737.html
;https://grafikart.fr/tutoriels ...

hmac_fonctions.pbi : (le code de base n'était pas de moi, je l'ai modifié)


EnableExplicit
; HMAC function implementation
; 2016 (c) Luna Sole


; convert hex string into raw bytes
; Out() unsigned char array to receive result
; Hex$ string with hex data
; RETURN: decimal value is placed to Out ...

Bonjour la communauté Purebasic !

Je viens vers la communauté car je bloque depuis un moment sur la création d'une fonction de génération de code à usage unique "TOTP" (norme très présente maintenant sur divers sites et services)
le fameux codes valide 30 secondes et générer depuis les application ...

Merci @salutcava code plus court et plus rapide !

Une typo dans la documentation ce n'est pas un bug pour moi. Bref
Sauf quand cela pose un soucis le code, pusique je ne comprenais pas pourquoi mon user-agent personalisé ne fonctionnais même en reprenant l'exemple.
Le plus important c'est que cela permettent une correction, et apporte une ...

Hello !
Il serait intéréssent de mettre en place une commande networkproxy("urlproxy") qui concernerait les commandes mails/ftp/http de manière plus générale à mon avis, qu'en penssez vous ?
de plus il n' y pas de commandes pou récupéré automatiquement le proxy InternetExplorer (j'ai bien créer ...

Fred a écrit :Effectibvement il y a un bug, car c'est "User-Agent" et non "UserAgent", je vais changer l'exemple merci !

De rien !
Heureux de rendre service

Hello !
Le bug ce situe au niveau de l'exemple pour indiqué l'user agent :

InitNetwork()

NewMap Header$()
Header$("ContentType") = "plaintext"
Header$("UserAgent") = "Firefox 54.0"

HttpRequest = HTTPRequest(#PB_HTTP_Get, "https://www.google.com", "", 0, Header$())
If HttpRequest
Debug ...

Super code merci!

Salut Jérôme,
Depuis Windows Vista, à la base, un service roule sous "session 0 "
et ne peut directement interagir avec le bureau de l'utilisateur en cours.
Pour ce faire tu devras te servir de quelques APIs,
qui devraient ultimement te permettre d'appeler CreateProcessAsUser().
Ce dernier pourra ...

Salut,

Dans le code il reste des traces du service de @swhite (authentification par carte).
C'est donc inutile.
J'ai enlevé les restes et ça compile.
Mais il faut coder le service le listing est une coquille vide.

J'espère que ca va aider.


Merci zaphod_b cela m'a permis d'avancer déjà, voici ...

J'ai essayer le code, mais j'ai une erreur :
"Ligne 167 : Structure introuvable : KardAuth"
j'ai regarder l'ensemble du code, aucune structure de déclaré
(la ligne 167 : Define lnThread.i,*lnReturnPtr,*loVFP.KardAuth,lcCID.s,lnCID.i,lnETX.i,lnSTX.i,lcTxt.s,lnLen.i,ln.i,lcIPAddr.s
)

Quelqu'un ...

Hello ami(e)s codeurs !
Voila mon PB :roll: je ne trouve pas de sources plus récente que celle ci : https://f-lefevre.developpez.com/tutoriels/purebasic/service-windows/ que ce soit sur le forum ou sur Notre ami G00GL3, hors celle ci ne semble plus fonctionner avec la version actuel de PB, quelqu'un ...

Oui en effet, j'y ai pensé raison pour laquelle je cherchait une autre solution, le petit programme que j'ai créer simplement pour faire un index de shafingerprint et emplacements et suppression de doublon, me suffit pour l'instant car cela va me permettre d'effacer les fichier en double/triple ...