اعتبارسنجی net/http/validate

واردسازی شبکه.اچ تی تی پی.اعتبارسنجی
واردسازی رشته

تابع بررسی(برچسب: رشته، پذیرفته: منطقی):
    سرچاپ برچسب + ": " + (پذیرفته ? "پذیرفته" : "رد شد")
پایان

تابع ریشه:
    بررسی("نام خالی"، اعتبارسنجی.الزامی(""))
    بررسی("نامی از فاصله"، اعتبارسنجی.الزامی("   "))
    بررسی("فاصله‌ها پس از پیرایش"، اعتبارسنجی.الزامی(رشته.پیرایش("   ")))
    بررسی("نام کاربری ali_75"، اعتبارسنجی.تطابق دارد("ali_75"، "^[a-z][a-z0-9_]{2,15}$"))
    بررسی("نام کاربری 7up"، اعتبارسنجی.تطابق دارد("7up"، "^[a-z][a-z0-9_]{2,15}$"))
    بررسی("کد پستی 1234567890"، اعتبارسنجی.تطابق دارد("1234567890"، "^[0-9]{10}$"))
    بررسی("رنگ #1e90ff"، اعتبارسنجی.تطابق دارد("#1e90ff"، "^#[0-9a-fA-F]{6}$"))
    بررسی("گذرواژه‌ی ۶ نویسه‌ای"، اعتبارسنجی.طول("abc123"، ۸، ۶۴))
    بررسی("نام چهار حرفی مریم"، اعتبارسنجی.طول("مریم"، ۲، ۴))
    سرچاپ "بایت‌های نام:"، "مریم".طول()
    بررسی("ایمیل [email protected]"، اعتبارسنجی.ایمیل است("[email protected]"))
    بررسی("ایمیل @."، اعتبارسنجی.ایمیل است("@."))
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.اچ تی تی پی.اعتبارسنجی
واردسازی شبکه.مسیریاب
واردسازی کدگذاری.جیسون
واردسازی رشته

تابع ثبت نام(ز: صحیح۶۴):
    نام := رشته.پیرایش(اچ تی تی پی.فرم(ز، "name"))
    ایمیل := رشته.پیرایش(اچ تی تی پی.فرم(ز، "email"))
    گذرواژه := اچ تی تی پی.فرم(ز، "password")
    ناپایا خطاها := وکتور {} برگردان وکتور<رشته>
    اگر وارونه اعتبارسنجی.الزامی(نام): خطاها.بیفزا(جیسون.رشته جیسون("نام لازم است")) پایان
    اگر وارونه اعتبارسنجی.ایمیل است(ایمیل): خطاها.بیفزا(جیسون.رشته جیسون("ایمیل درست نیست")) پایان
    اگر وارونه اعتبارسنجی.طول(گذرواژه، ۸، ۶۴): خطاها.بیفزا(جیسون.رشته جیسون("گذرواژه باید ۸ تا ۶۴ نویسه باشد")) پایان
    اگر خطاها.طول() > ۰:
        اچ تی تی پی.تنظیم وضعیت(ز، ۴۲۲)
        اچ تی تی پی.جیسون(ز، "{" + جیسون.عضو خام("errors"، جیسون.آرایه(خطاها)) + "}")
        برگشت
    پایان
    اچ تی تی پی.تنظیم وضعیت(ز، ۲۰۱)
    اچ تی تی پی.جیسون(ز، "{" + جیسون.عضو("welcome"، نام) + "}")
پایان

تابع بفرست(فرم: رشته):
    ناپایا سر := اچ تی تی پی.سرصفحه جدید()
    سر.درج("Content-Type"، "application/x-www-form-urlencoded")
    پ := اچ تی تی پی.ارسال با("http://127.0.0.1:19788/signup"، فرم، سر)
    سرچاپ اچ تی تی پی.وضعیت(پ)، اچ تی تی پی.بدنه(پ)
پایان

تابع ریشه:
    ناپایا م := مسیریاب.مسیریاب جدید()
    مسیریاب.ارسال(م، "/signup"، ثبت نام)
    ناپایا س := اچ تی تی پی.سرور جدید(۱۹۷۸۸)
    اچ تی تی پی.استفاده(س، م)
    _ := اچ تی تی پی.اجرا در پس زمینه(س)
    بفرست("name=+&email=ali&password=123")
    بفرست("name=Ali&email=ali%40example.com&password=123")
    بفرست("name=Ali&email=ali%40example.com&password=long+enough")
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.اچ تی تی پی.اعتبارسنجی
واردسازی شبکه.مسیریاب

تابع انتقال(ز: صحیح۶۴):
    مبلغ := اچ تی تی پی.پرسمان(ز، "amount")
    حساب := اچ تی تی پی.پرسمان(ز، "to")
    مبلغ معتبر := اعتبارسنجی.تطابق دارد(مبلغ، "^[1-9][0-9]{0,6}$")
    اعتبارسنجی.ادعا(ز، مبلغ معتبر، "مبلغ باید عددی صحیح از 1 تا 9999999 باشد")
    اگر وارونه مبلغ معتبر: برگشت پایان
    حساب معتبر := اعتبارسنجی.تطابق دارد(حساب، "^IR[0-9]{24}$")
    اعتبارسنجی.ادعا(ز، حساب معتبر، "مقصد باید شبا باشد: IR و پس از آن 24 رقم")
    اگر وارونه حساب معتبر: برگشت پایان
    اچ تی تی پی.جیسون(ز، `{"sent":` + مبلغ + `,"to":"` + حساب + `"}`)
پایان

تابع ریشه:
    ناپایا م := مسیریاب.مسیریاب جدید()
    مسیریاب.دریافت(م، "/transfer"، انتقال)
    ناپایا س := اچ تی تی پی.سرور جدید(۱۹۷۸۹)
    اچ تی تی پی.استفاده(س، م)
    _ := اچ تی تی پی.اجرا در پس زمینه(س)
    پایه := "http://127.0.0.1:19789/transfer"
    هر پرسش در ["?amount=0&to=IR1"، "?amount=500&to=IR1"، "?amount=500&to=IR123456789012345678901234"]:
        پ := اچ تی تی پی.دریافت(پایه + پرسش)
        سرچاپ اچ تی تی پی.وضعیت(پ)، اچ تی تی پی.بدنه(پ)
    پایان
پایان